سه رقم سه رقم کردن عدد

[farboodj1375 30]

سلام خدمت همه اساتید عزیز..عیدتون مبارک//

من همونطوری که از عنوان تاپیک معلومه ، تو این قضیه گیر کردم .میشه عددی که داره توی EditText وارد میشه رو بصورت سه رقم سه رقم نشون داد؟!!

واقعا بهش نیاز دارم.

پیشاپیش ممنون از راهنمایی هاتون....

[Amir - B 185]

سلام 

من فکر میکنم به کتابخونه ای نیاز نباشه

حقیقتش سریع براتون کد نوشتم اگر مشکلی داشت بگید درست کنم .

Sub Globals
Dim Edit As EditText
Dim i As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Edit.Initialize("Edit")
	Activity.AddView(Edit,0,40%y,40%x,10%y)
	Edit.InputType = Edit.INPUT_TYPE_NUMBERS
	Activity.Color = Colors.White
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Edit_TextChanged (Old As String, New As String)
	i = i+1
	
	If i=3 Then
		Edit.Text=New&","
		Edit.SelectionStart = New.Length+1
		i=0
		
	End If
End Sub

 

[رضا جابرپور 179]

با استفاده از کتابخانه core این فرمان قرار گذاشته شده :

NumberFormat (Number As Double, MinimumIntegers As Int, MaximumFractions As Int) As String
Converts the specified number to a string. 

The string will include at least Minimum Integers and at most Maximum Fractions digits.

Example:

Log(NumberFormat(12345.6789, 0, 2)) '"12,345.68"

Log(NumberFormat(1, 3 ,0)) '"001" NumberFormat2 (Number As Double, MinimumIntegers As Int, MaximumFractions As Int, MinimumFractions As Int, GroupingUsed As Boolean) As StringConverts the specified number to a string. 

The string will include at least Minimum Integers, at most Maximum Fractions digits and at least Minimum Fractions digits.

GroupingUsed - Determines whether to group every three integers.

Example:

Log(NumberFormat2(12345.67, 0, 3, 3, false)) '"12345.670"

سه رقم سه رقم اعداد.rar

[esmaeil57 64]

سلام. عيد شما هم مبارک

از کتابخونه ICOSstrings بايد استفاده کنيد. الان با موبايل اومدم. اگه ندارين بگين تا با يه مثال واستون بذارم.

[farboodj1375 30]

سلام ، خیلی خیلی ممنون از راهنماییتون .

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

یک دنیا ممنون.

[esmaeil57 64]

سلام

این برنامه میاد اول چک میکنه ببینه عدد وارد شده در ادیت تکست بر 3 بخش پذیره یا نه( برای جلوگیری از ارور برنامه) . اگه بخش پذیر بود که خب 3 تا 3تا با ویرگول یا هر چی خودتون خواستین جدا میکنه

اگه بر 3 بخش پذیر نبود دسته های سه تایی رو مینویسه و از سمت راست ادیت تکست ، باقیمانده رو جدا کرده و به دنبالش اضافه میکنه.

موفق باشین

رمز فایل : basic4android.org

Part 3.rar

[farboodj1375 30]

واقعا ممنون، ولی جسارتا فکر میکنم رمز فایل اشتباهه ، میشه یه بررسی بکنید؟!ممنون.

[farboodj1375 30]

ببخشید ، درست بود رمز.

ممنون.

[esmaeil57 64]

درسته . تایپ کنید خودتون بهتره و گزینه رو هم بزنید روی مشاهد تا رمز دیده شه درست میزنید یا خیر

[farboodj1375 30]

ببخشی فقط یه سوال

این یه مشکلی داره ، ینی 3 رقم 3 رقم کردن رو از سمت راست انجام میده

ینی شما اگه عدد 12345678 رو بهش بدید ؛ به این شکل خروجی میده : 123,456,78

در صورتی که باید به این شکل باشه :

12,345,678

میشه راهنماییم کنید؟ممنون.

[esmaeil57 64]

خب آره دیگه من فکر کردم شما همین رو میخوان. برنامه خیلی ساده است بخونیدش اگه باز هم سر در نیاوردین اصلاح کنم

یا علی

[farboodj1375 30]

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

خیلی ممنون میشم اگه بتونید راهنماییم کنید که کجاشو اصلاح کنم.ممنون

[رضا جابرپور 179]

خدمت شما دوست عزیز

اینم یکی دیگه : http://answercenter.ir/thread1781.html#post11242

اینم کتابخانه ها : http://answercenter.ir/thread1848.html

سه رقم سه رقم.rar

[esmaeil57 64]

بجای کدهای قسمت Else اینا رو بذارین:

S1=Str.StrLeft(EditText1.Text,M)
L=L-M
TXT=S1&","
M=M+1
For i=M To L Step 3
S=Str.Mid(EditText1.Text,i,3)
TXT=TXT&S&","
Next

[farboodj1375 30]

خدمت شما دوست عزیز

اینم یکی دیگه : http://answercenter.ir/thread1781.html#post11242

اینم کتابخانه ها : http://answercenter.ir/thread1848.html

سلام ؛ ممنون .کدتون کاملا درست بود . فقط یه مشکلی بود ؛ هرکاری میکردم که همونجوری که توی EditText داره تایپ میکنه کاربر ؛ همون موقع 3 رقم 3 رقم کردن انجام بشه و توی خود همون EditText دیده بشه.

راهی نداره؟ هرکار میکردم ارور میداد.

کدمو اینطوری نوشتم ارور میده :

Sub EditText1_TextChanged (Old As String, new As String)
Dim mys As String 
Dim NewMatn As String = EditText1.Text.Replace("," , "")
For I = NewMatn.Length  To 0 Step -3
If I > 3 Then
mys = "," & str.Mid(NewMatn, I - 2, 3) & mys
Else
mys = str.Mid(NewMatn, 1, I) & mys
End If
Next 
EditText1.Text =mys
EditText1.SelectionStart = EditText1.Text.Length
End Sub

[امیرنیوکی 147]

از اینم میشه استفاده کر د

    Dim str As String = edittext1.Text
   Dim i As Int
   Dim c As Int = 0
   Dim str2 As String = ""
   For i = 0 To str.Length - 1
       If c = 3 Then
           c = 0
           str2 = str2 & ","
       End If
       c = c+1
       str2 = str2 & str.CharAt(i)
   Next
   EditText2.Text = str2

[farboodj1375 30]

ممنون ؛ ولی مشکل کد شما اینه که سه رقم سه رقم رو از راست انجام نمیده .

البته میشه اصلاحش کرد.ممنونم.

[امیرنیوکی 147]

من فک کردم شما میخواین از چپ به راست جدا کنین

اینم از سمت راست به چپ 3تا 3تا جدا میکنه

    Dim str As String = edittext1.Text
   Dim i As Int 
   Dim c As Int = 0
   Dim str2 As String = ""
   For i = str.Length - 1 To 0 Step -1
       If c = 3 Then
           c = 0
           str2 =  "," & str2 
       End If
       c = c+1
       str2 =  str.CharAt(i) & str2
   Next
   EditText2.Text = str2

[sorena.king.24 11]

سلام

تمام سورسا دانلود نمیشه

نمیدونم چرا

لطفا اگه میشه یه بار دیگه بفرستین

خیلی بهش نیاز دارم

از کدهایی که دادین استفاده کردم گذاشتم تو چنج ادی تکست

هی لوپ میشه

کرش میشه میپره بیرون