سوال در رابطه با چند دستور و متد در b4a

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

سلام

من تازه بیسیک 4 اندروید شروع کردم و میخوام ادامه بدم

در رابطه با چند دستور و متد در بیسیک 4 اندروید کمک میخواستم

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

1. دستور if not

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

اینو چطوری مینویسن*نگاه بد* ؟؟

2. بخوام متد سترینگ یا بولی اَن یا اینت بنویسم که خروجی مقدار و بم بده چطوری باید بنویسم ؟؟

3. برنامه ای رو که مینویسیم چطوری برنامه رو بسازیم و فایل apk رو بگیریم ؟؟

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

[Farzad Musavi 576]

1-

if et1.text="" then 

else
roydade morede nazaret
end if

2- نفهمیدم منظورتو

3- داخل پروژه یه فولدر به اسم object هس که بعد اجرا فایل apk توش ذخیره میشه

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

مرسی اما منظور من این نبود که با else کارمو راه بندازم

من میخوام تو یه شرط if چندتا شرط چک کنه مثلا

اگه تکس باکس1 خالی نبود و تکست باکس 2 خالی بود اینکارو کنه

سی شارپ اینجوری مینویسم

if((textBox1.Text != "") && (textBox2.Text == ""))i

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

واسه مورد 2 هم اونایی که وی بی.نت مینویسن بش میگن

functions

خیلی لازم دارم اینو ک توی بیسیک 4 اندروید چطوری مینویسن

[ارمین رمضانی دلیجانی 381]

اونجا باید از دستور if تو if استفاده کنید این سوال های که پرسیدین تو سورس ها و فیلم های تصویری هست

مثال

if label1.text = "armin" then
msgbox("hale","")
else if label2.text = "taghi" then
msgbox("salam bede")
end if

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

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

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

واسه شرط if

If chk1.Checked = true AND chk2.Checked = false

ولی چطو میشه فهمید یه تکست باکس خالی نیست ؟؟؟

[مجید آرتا 5,874]

سلام

برای گذاشتن چند شرط از دستور And که باید تمامی حالات برقرار باشد تا کد مربوط به بلوک IF اجرا بشه و OR هم فقط کافیه یک حالت برقرار باشه.

برای چک کردن خالی بودن یا نبودن بسیار راه هست:

if EditText1.Text.Lenght <> 0 Then
MsgBox("Matni Dar EditText Vojod Dara",""(
End If

برای ایجاد فانکشن یا تابع یا متد به این شکل عمل می کنیم

تابع بدون مقدار برگشتی:

Sub MyFunc(a As Int , b As Int)
Dim R As Int 
R = A + B
MsgBox(R,"")
End Sub

تابع با مفدار بازگشتی:

Sub MyFunc(a As Int , b As Int) As Int
Dim R As Int
R = a + b
Return R
End Sub

موفق باشید

[مهدی ایزدی 9,203]

دوست عزیز و گرامی بهتون درود و خوش آمد میگم

لطفا در یک تاپیک چندین سوال رو مطرح نفرمایید...

لطفا عنوان مناسب انتخاب کنید...

دوستان عزیز و مدیران بخش ها و ارشد هم همچین تاپیک هایی رو حذف کنند یا اخطار در مورد جست و جو قبل از پست بدن.

دلیل حذف کردن هم اینه که عنوان تاپیک کاملا نامعلوم است و در هیچ جست و جویی کاربرد نداره برای آیندگان...

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