ارور پس از کلیک روی دکمه...:((((((

[SoRoUsH 300]

سلام دوستان من روی یه دکمه میزنم این ارور رو میدهالبته وقتی که این کد رو از  Sub Button1_Click پاک میکنم اوکی میشه! چه ایرادی داره این کد؟!     

   i = EditText1.Text

در ضمن دوستان...اونجایی که این ادیت تکست رو Private کردم زیرش خط بنفش داره...

اینم عکس:

[کاربر ناشناس 2,148]

دوست عزیز یک سمپل یا خود سورس رو بزارید تا بررسی کنم

والا اینجا فقط شما به من یک کد دادی

من چه میدونم i نوع چیه و ...

[SoRoUsH 300]

شرمنده i همون Int هست

[amirbeigi 192]

سابه Setting click save رو بزارید

[SoRoUsH 300]

متوجه نشدم جناب deadpool

[amirbeigi 192]

توی کد هاتون یه ساب دارید به این اسم Sub Setting_Save_Click

اینو از sub تا end sub بفرستید

[SoRoUsH 300]

آهان فهمیدم بفرمایید

Sub save_Click
    i = EditText1.Text
    
	If rbw1.Checked=True Then
		sss.wifi=True
		ToastMessageShow("ذخیره شد!",True)
	else If rbw2.Checked=True Then
		sss.wifi=False
		ToastMessageShow("ذخیره شد!",True)
	End If
	
	If rbb1.Checked=True Then
		sss.bl=True
		ToastMessageShow("ذخیره شد!",True)
	else If rbb2.Checked=True Then
		sss.bl=False
		ToastMessageShow("ذخیره شد!",True)
	End If
	
	If rbn1.Checked=True Then
		sss.noor=True
		ToastMessageShow("ذخیره شد!",True)
	else If rbn2.Checked=True Then
		sss.noor=False
		ToastMessageShow("ذخیره شد!",True)
	End If
	
    If EditText1.Text="" Then
		ToastMessageShow("لطفا عددی را وارد کنید!",True)
    End If
	
End Sub

[SoRoUsH 300]

دوستان جواب بدین دیگه

[SoRoUsH 300]

راستی من یه چیزی فهمیدم! که نمیدونم چرا هرچی توی ادیت تکست مینویسم عدد حسابش نمیکنه! چون من این کد رو زدم:

If IsNumber(EditText1.Text) = False Then
		ToastMessageShow("لطفا عدد وارد کنید!",True)
	End If

و هرموقع لرور میده ، این toastmessegeshow رو هم همراهش میده!

[salar_blackdroid 408]

متغیر i نوعش چی هست ؟

[SoRoUsH 300]

Int

[محمد رشوند 1,208]

راستی من یه چیزی فهمیدم! که نمیدونم چرا هرچی توی ادیت تکست مینویسم عدد حسابش نمیکنه! چون من این کد رو زدم:

If IsNumber(EditText1.Text) = False Then
		ToastMessageShow("لطفا عدد وارد کنید!",True)
	End If

و هرموقع لرور میده ، این toastmessegeshow رو هم همراهش میده!

اینو true کن

شاید این کدا بتونن کمکت کنن

	
	Dim ed As EditText
	ed.Initialize("ed")
	If IsNumber(ed.Text) = True Then
		ToastMessageShow("لطفا عدد وارد کنید!",True)
	End If
Dim i As Int
For i=0 To 100 
	ed.Text=i
Next
If ed.Text = 72 Then
	ToastMessageShow("عملیات شروع شد",True)
Else if ed.Text.Length=0 Then 
	ToastMessageShow("لطفاً عددی وارد کنید",True)
	End If

اگه نشد i رو از نوع long تعریف کن

[SoRoUsH 300]

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

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