تنخاب چند کاراکتر از کاراکتر های موجود در EditText

[javad122367 12]

1- چه طوری میشه که ما از بین چند عددی که توی edit text هست چند مورد را در یک لیبل فراخوانی کنیم

به عنوان مثال اگر تو edit text نوشته شده 123456 ما چه طور می تونیم بگیم مثلا رقم اول و سوم و چهارم را برامون تو لیبل بنویس .

چه طوری میشه یک عدد 10 رقمی به صورت رندم تو این باکس ایجاد کنیم که فقط یک بار در اول برنامه تولید شه فقط یک بار تولید بشه و دیگه با اجرای مجدد برنامه تغییر نکنه و همیشه همون عدد رو بهمون نشون بده

( به این صورت می خوام که رو هر گوشی که نصب شد یه عدد متفاوت رو به طرف نشون بده و دیگه هیچوقت رو اون گوشی تغییر نکنه )

امید وارم مطلب رو خوب گفته باشم .

ممنون میشم از جوابهای حکیمانه شما دوستان عزیز

[javad122367 12]

سلام ممنون .

کسی هست که بتونه بازم راهنمایی کنه

[arash127 488]

این طوری میتونی مثلا عدد دوم را بگیری

dim s as string = "123456"
s = s.SubString2(1,2)

[berayan 88]

با سلام 

 

سه ایتم در لایوت بسازید ListView1  / EditText1 / Button1 و بعد کدهای زیر را در صفحه اکتیویتی بنویسید . این یک مثال است و می توانید ان را برای برنامه خود تغییر دهید .

Sub Process_Globals

End Sub
-----------------------------------------

Sub Globals
   Private ListView1 As ListView
   Private EditText1 As EditText
   Private Button1 As Button
End Sub
-----------------------------------------------------------
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("split")
End Sub
-------------------------------------------------------------
Sub Activity_Resume

End Sub
----------------------------------------------------------
Sub Activity_Pause (UserClosed As Boolean)

End Sub
------------------------------------------------------------
Sub Button1_Click
  
  Dim s As String = edittext1.Text
  
  ListView1.AddSingleLine(s.CharAt(0))
  ListView1.AddSingleLine(s.CharAt(2))
  ListView1.AddSingleLine(s.CharAt(4))
   
End Sub