ایجاد آپشن Digit Group برای تکست باکس ( مثل ماشین حساب ویندوز XP )

[pooya1072]

سلام
این سوال رو تاحالا چند بار به عناوین مختلف مطرح کردم ولی تمام جوابها یه طوری برای من اون جواب اصلی نبودن.همه دوستان احتمالا با ماشین حساب ویدوز xp کار کردن.گزینه ای هست به نام digit grouping که ارقام قبل از ممیز رو به صورت گروه سه تایی دسته بندی می کنه.

key press=1 ===> textbox.text=1

key press=2 ===> textbox.text=12

key press=3 ===> textbox.text=123

key press=4 ===> textbox.text=1,234

key press=.1 ===> textbox.text=1,234.1

دوستان عزیز توجه کنید که با هر بار وارد کردن یک رقم این دسته بندی تغییر می کند.پس از ورود ممیز اعداد بعد از ممیز دسته بندی نمی شوند.

1,234,567.2055482245

لطفا جوابتون رو به صورت دستوری که قراره درون text_change event نوشته بشه قرار بدید.خیلی ممنون میشم اگه کمک کنید.1 ماهه گیر همینم.

[tam2145]

سلام آقا پویا
من می تونم این سورس را برایتون بنویسم !! فقط چند تا سوال دارم :
1- آیا می خواهید مثل ماشین حساب ویندوز ، نقطه ی ممیز اعداد نمایش داده شود ؟؟
2- آیا بعدا خودتان می توانید سورس اعمال ریاضی این گونه اعداد را بنویسید ؟؟
لطفا جواب این دو سوال را بدهید ....
راستی خودم در گیرم و مشکلی دارم ، اما اگر ضروری نباشه تا آخر هفته براتون می نویسم !!

[pooya1072]

سلام دوست عزیز....
از توجه شما ممنون و متشکرم.ببخشید که دیر جواب دادم. تازه از کار برگشتم.
در جواب سوالات شما :
1-بله نقطه ممیز نشان داده شود
2- بله .سورس رو خودم می نویسم.

البته اگه درگیر کاری هستید فقط منو راهنمایی کنید هم خیلی ازتون ممنون میشم.

[tam2145]

سلام
خواهش می کنم ! اگه ببینم به کسی می تونم کمک کنم ، بهش کمک می کنم ، فرقی برایم ندارد که کی هست !!
چون در گیر کاری هستم و شما هم انگار عجله دارید این نمونه پروژه را که خودم نوشتم را می گذارم :

http://faupload.com/upload/91/Khorda...by-tam2145.rar
در ضمن بگم که این پروژه با vb.net 2008 نوشته شده !!

توی این برنامه ای که من گذاشتم :
1- میاد اعداد را اینگونه فرمت دهی می کند : 1,234,567.2055482245
2- محل قرارگیری اعداد در تکست باکس در سمت راست تکست باکس تنظیم شده است !!
3- همزمان با تغییر ، عدد بدون قالب بندی را در اختیار شما می گذارد تا با آن اعمال ریاضی خود را انجام دهید .
4- سریع عمل می کند !! به هر تغییری ، تکست ، آپدیت می شود !!

مشکلات :
1- نشانگر مکان متن حذف و یا غیر قابل نمایش نشده است !!
2- مانند ماشین حساب ویندوز ، "." کنار اعداد ندارد !!
3- باید محدوده متغییر ها را متناسب با کار خود تنظیم کنید !!
4- با فشردن هر گونه حرف و یا هر چیزی به جز عدد و ممیز ، برنامه هنگ می کند .
5-- برنامه برای جلوگیری از وارد شدن دو ممیز تنظیم نشده است .
6-برای اعداد منفی تنظیم نشده است !!
....

دوست عزیز مشکلاتی که گفتم را اگر می توانید خودتان حل کنید چون سرم شلوغه فقط نیاز به دقت و ابتکار عمل دارد !!
راستی بگم که اول می خواستم یک کد طولانی و خیلی کند بنویسم ولی با دیدن این آدرس که خودتان این سوال را مطرح کرده بودید :
منظورم این آدرس هست :
http://www.dreamincode.net/forums/to...rouping-option
و دیدن این لینک :
http://msdn.microsoft.com/en-us/library/0c899ak8.aspx
توی اون تایپک و کمی ابتکار عمل تونستم ، این سورس و برنامه را بنویسم !!
اگه راهنمایی خواستید من در خدمتم .....

[Saman_12]

xp ندارم اما این میتونه کمک کنه:

    Private Function Spiler(decnum As Decimal) As String



        Dim dotindex As Int32 = decnum.ToString.IndexOf(".")



        If dotindex > 0 Then



            Dim befordot As String = Mid(decnum, 1, dotindex)

            Dim afterdot As String = Mid(decnum, dotindex + 1, (decnum.ToString.Length - 1) - (dotindex))



            befordot = Format(decnum, "###,###")



            Return befordot & afterdot

        Else



            Return Format(decnum, "###,###")

        End If

    End Function

[pooya1072]

با سلام مجدد و تشکر از دوستانی که در این تایپیک به من کمک کردند. کامل شده این تیکه از برنامه رو جهت استفاده دوستانی که لازم دارند میذارم.

PrivateSub TextBox1_KeyPress(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim TextTag AsString = sender.tag

Dim IntegerPart AsString = ""

Dim EditedIntegerValue AsString = ""

Dim EditedValue AsDecimal

Dim DecimalPart AsString = ""

C = e.KeyChar

SelectCase C

Case"."

If TestDot = FalseThen

TextTag += "."

TestDot = True

EndIf

Case vbBack

IfStrings.Right(TextTag, 1) = "."Then TestDot = False

If Len(TextTag) > 0 Then

IfStrings.Mid(TextTag, TextTag.ToString.Length, 1) = "."And Len(TextTag) > 1 Then

TextTag = Strings.Left(TextTag, TextTag.ToString.Length - 2)

Else

TextTag = Strings.Left(TextTag, TextTag.ToString.Length - 1)

EndIf

EndIf

Case"0"To"9"

TextTag += C

Case vbTab

TestDot = False

EndSelect

If TextTag.IndexOf(".") = -1 Then

IntegerPart = TextTag

Else

IntegerPart = Strings.Left(TextTag, TextTag.IndexOf("."))

If Val(IntegerPart) = 0 Then IntegerPart = "0"

DecimalPart = Strings.Right(TextTag, Len(TextTag) - (TextTag.IndexOf(".") + 1))

EndIf

If Len(IntegerPart) > 0 Then

EditedValue = CType(IntegerPart, System.Decimal)

EditedIntegerValue = EditedValue.ToString("#,#", CultureInfo.InvariantCulture)

Else

EditedIntegerValue = "0"

EndIf

If Val(TextTag) < 1 Then EditedIntegerValue = "0"

sender.tag = TextTag

sender.Text = EditedIntegerValue & "." & DecimalPart

sender.selectionstart = sender.textlength

Label1.Text = Val(sender.tag)

e.Handled = True

EndSub

[amirzandi]

ببخشید ، ولی formatNumber(Number,0) کار نمی کنه؟

[pooya1072]

ببخشید ، ولی formatNumber(Number,0) کار نمی کنه؟

سلام.
من 2 ماهه گیر همینم.اگه تایپیک رو نگاه کنی خیلی هم تو این سایت هم سایتهای خارجی این سوال رو مطرح کردم.ولی هیچ کس جواب یا راه حلی نداد.با FormatNumber هم کار کردم.ولی جواب نمی داد.اگه شما راه حلش با استفاده از FormatNumber رو بگی ممنون میشم.
در ضمن به این تیکه برنامه توجه کنید:

Dim LengthValue AsString = "1234567890.1"

Dim WidthValue AsString = "1234567"

Dim Area AsDouble = Val(LenghtValue) * Val(WidthValue)

Dim DecPartLength AsInteger

Dim IndexDot AsInteger = Area.ToString.IndexOf(".")

If IndexDot = -1 Then

DecPartLength = 0

Else

DecPartLength = Len(Area.ToString) - IndexDot

EndIf

AreaValue.Text = FormatNumber(CType(Area, System.Double), DecPartLength, , , TriState.True)

ببینید چرا جواب با جواب ماشین حساب یکی نیست.
توجه کنید که من می خوام تعداد اعداد اعشاری جواب بستگی داشته باشه به ارقام اعشاری دو عددی که در هم ضرب شده اند.