مشکل در if

[dr.mohammad 68]

سلام دوستان سه تا رادیو باتن دارم سه تا ادیت تکست ویه باتن میخوام وقتی روی باتن می زنم اگر ادیت تکست ها پر بود و یکی از رادیو باتن هاانخاب شده بود یه سری کار ها انجام بده اگه حتی یکی ازادیت تکست ها پر نشده بود یا رادیو باتن ها انتخاب نشده بودند اون گار رو انجام نده اگه رادی وباتن ها نبود می دونستم چه کنم ولی رادیو باتنا اومدن نمی دونم چه کنم

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

[salmana 174]

نمیدونم متوجه شدم یا نه .شما میخای هر 3 تا ادیت تکست پر باشه و همچنین هر 3 تا رادیوباتن؟

 

اینجوری منظورته :

if editext1.text = "" or edittext2.text = "" or edittext3.text = "" then

msgbox("kary anjam nade","eror")

else

if RadioButton1.Checked = False or RadioButton2.Checked= False or RadioButton3.Checked= False  then

dim b as int

dim edittext1 as edittext
dim edittext1 as edittext
dim edittext1 as edittext

If RadioButton1.Checked = True Then
	b = 1
	Else If RadioButton2.Checked = True Then
	b = 2
   Else If RadioButton3.Checked = True Then
	b = 3
   End If

sql.ExecNonQuery("INSERT INTO bashgah (id,noe,esm,gh,ghf) VALUES (null,'"&b&"','"&EditText1.text&"','"&EditText2.text&"','"&EditText3.text&"')")

else

msgbox("kary anjam nade","eror")
end if
end if

[razavioo 310]

سلام دوستان سه تا رادیو باتن دارم سه تا ادیت تکست ویه باتن میخوام وقتی روی باتن می زنم اگر ادیت تکست ها پر بود و یکی از رادیو باتن هاانخاب شده بود یه سری کار ها انجام بده اگه حتی یکی ازادیت تکست ها پر نشده بود یا رادیو باتن ها انتخاب نشده بودند اون گار رو انجام نده اگه رادی وباتن ها نبود می دونستم چه کنم ولی رادیو باتنا اومدن نمی دونم چه کنم

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

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

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
	Dim r As RadioButton
	Dim hi , bye As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
	r.Initialize("r")
End Sub

Sub r_CheckedChange(Checked As Boolean)
	If r.Text = "hi" Then
		hi True
		bye = False
	Else
		hi = False
		bye = True
	End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

رادیو باتن ها تفاوتشون با بقیه View ها فقط یک ویژگی به نام Checked و یک رویداد به نام CheckedChange هست که می تونید ازش استفاده بکنید.

 

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

 

پی نوشت: کدم کامل نیست فقط بخش های مورد نظر رو نوشتم.

[dr.mohammad 68]

ممنون از راهنماییتون 

من در اکتیویتیم سه تا رادیو باتن دارم که سه حالت مختلف رو برسی می کنه و سه تا ادیت تکست دارم که سه تا متن رو از کار بر دریافت می کنه و بعد از زدن باتن اون حالت رادیو باتن و سه تا متن رو برای کار بر در دیتا بیس ذخیره می کنه با تو جه به کد زیر

dim b as int

dim edittext1 as edittext
dim edittext1 as edittext
dim edittext1 as edittext

If RadioButton1.Checked = True Then
	b = 1
	Else If RadioButton2.Checked = True Then
	b = 2
   Else If RadioButton3.Checked = True Then
	b = 3
   End If

sql.ExecNonQuery("INSERT INTO bashgah (id,noe,esm,gh,ghf) VALUES (null,'"&b&"','"&EditText1.text&"','"&EditText2.text&"','"&EditText3.text&"')")

این مرحله اول 

حالا من میخوام اگر حتی یکی از اون ادیت تکست ها خالی بود هیچ کاری انجام نده که از کد زیر استفاده می کنم

if editext1.text = "" or edittext2.text = "" or edittext3.text = "" then

msgbox("kary anjam nade","eror")

else

dim b as int

dim edittext1 as edittext
dim edittext1 as edittext
dim edittext1 as edittext

If RadioButton1.Checked = True Then
	b = 1
	Else If RadioButton2.Checked = True Then
	b = 2
   Else If RadioButton3.Checked = True Then
	b = 3
   End If

sql.ExecNonQuery("INSERT INTO bashgah (id,noe,esm,gh,ghf) VALUES (null,'"&b&"','"&EditText1.text&"','"&EditText2.text&"','"&EditText3.text&"')")



end if

خوب تا اینجاشو بلدم ینی اگر حتی یکی از ادیت تکست ها خالی بود هیچ کار انجام نمی شود 

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

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

من می خوام اگر حتی رادیو باتن هارو هم انتخاب نکرد اون ارور ام اس جی باکس رو بده و هیچ کاری رو انجام نده

امید وارم منظورمو رسونده یاشم

 

لطفا ارهنمایی کنید

 

از کد شما ها هم چیزی متوجه نشدم نمی دونم بدردم می خوره یا ولی مشکلمو باز کردم اگر کدتون  بدردم می خوره لطفا توضیحش بدید اگر نه راحل جدید بدید

 

ممنون میشم از لطفتون جواب بدید