مشکل این دستور شرطی چیه؟

[مجتبی خیری 21]

سلام دوستان

 

من این دستور شرطی رو نوشتم

If (EditText1.Text<> "" And EditText2.Text <> "" And EditText3.Text <>"") Then
		r = (((EditText1.Text - EditText2.Text)*3)/(EditText3.Text*3)) * 100
		ToastMessageShow(r,False)
		Else
			ToastMessageShow("عدد را وارد کنید",False)
	End If

قسمت اول اون یعنی شرط کار می کنه اگه سه تا ادیت تکس پر باشه ولی وقتی خالی میزارم باید قسمت Else کار کنه در صورتی که اینطور نیست و پیغام عدد وارد کنید رو نشون نمیده و از برنامه میاد بیرون

 

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

[پژمان نیکروان 6,055]

سلام.

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

از برنامه میپره بیرون؟؟ چه خطایی داخل لاگ میده؟

[مجتبی خیری 21]

سلام.

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

از برنامه میپره بیرون؟؟ چه خطایی داخل لاگ میده؟

پزمان جان هر سه هم خالی باشه بازم میاد بیرون

الان میبینم اگه لاگ داد میزارم اینجا

 

[مجتبی خیری 21]

سورس هم لازم هست بگین بزارم

[محمدرضا شاهپیری 5,579]

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

بارها این موضوع مطرح شده عزیز برای اینکه چک کنی مقدار ادیت تکست خالی هست یا نه نمیتونی با = چک کنی چون رشته هست و باید از تابع زیر استفاده کنید

if EditText1.Text.EqualsIgnoreCase("") then
اینجا یه مسیج نشون بده که ادیت تکست خالیه
End if

در ضمن چیزی هم که شما واسه چک کردن خالی بودن ادیت تکست نوشتین غلطه کلا،  اینجوری شرط زمانی true هست که همه باهم خالی باشن به شکل زیر چک کنید

if EditText1.Text.EqualsIgnoreCase("") then
اینجا یه مسیج نشون بده که ادیت 1 تکست خالیه
else if EditText2.Text.EqualsIgnoreCase("") then
اینجا یه مسیج نشون بده که ادیت 2 تکست خالیه
else if EditText3.Text.EqualsIgnoreCase("") then
اینجا یه مسیج نشون بده که ادیت 3 تکست خالیه
else
اینجا تو هز سه تا ادیت تکست عدد وارد شده و خالی نیستن کاری که میخوای انجام بده مثلا مثال خودت 
r = (((EditText1.Text - EditText2.Text)*3)/(EditText3.Text*3)) * 100
ToastMessageShow(r,False)

End if 

موفق باشید

[Kazem Forghani 2,927]

سلام خدمت آقای شاهپیری عزیز ،

یعنی شما می گید کد زیر اشتباهه ؟

If e.Text <> "" Then
	Msgbox("متن خالی نیست!", "")
End If

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

--------------------

http://answercenter.ir/topic/6849-%D8%A8%D8%B1%D8%B1%D8%B3%DB%8C-%D8%AE%D8%A7%D9%84%DB%8C-%D9%86%D8%A8%D9%88%D8%AF%D9%86-%DA%86%D9%86%D8%AF-edittext/

[پژمان نیکروان 6,055]

یعنی شما می گید کد زیر اشتباهه ؟

توی جاوا اشتباهه. ولی تو بیسیک مشکلی نداره، میشه با همین شرط ="" یا <>"" بررسی کرد.