یک بازی کامل حدس عدد: برنامه در شروع یک عدد مخفی بین ۱ تا 50 با Rnd انتخاب میکند (فقط بار اول چون داخل If FirstTime است) و کاربر با هر حدس در btnCheck یکی از سه مسیر را میبیند: برد با نمایش تعداد تلاشها، راهنمایی «برو بالاتر» یا راهنمایی «عدد کوچکتری انتخاب کن». زنجیره If / Else If / Else پایه تصمیمگیری چندمسیره در B4A است و شمارنده tries یادتان میدهد متغیرهای زنده باید در Globals یا Process_Globals باشند تا با هر کلیک صفر نشوند. همین منطق پایه هر بازی حدس، آزمون و کوییز است.
بدون نیاز به کتابخانه جانبی (فقط کتابخانههای داخلی B4A)
این قطعهکد بهصورت خودکار توسط «موتور مولد B4A» ساخته و قبل از انتشار از نظر تکرارینبودن بررسی شده است. برای دیدن تکهکدهای جدید، همین بخش را دنبال کنید؛ هر بازه زمانی یک کد کاربردی جدید اضافه میشود.
| دستهبندی | تکه کدها |
| تعداد بازدید | ۳ |
| تعداد فروش | ۰ |
| فرمت تحویل | فایل دانلودی (بعد از پرداخت آنی فعال میشود) |
| پشتیبانی | تیکت پشتیبانی در پنل کاربری |
ویژگیهای کلیدی
- کد B4A آماده استفاده
- توضیح کامل فارسی
- کاملاً رایگان
- بدون کتابخانه جانبی
هنوز نظری ثبت نشده است. اولین نفر باشید!
برای ثبت نظر وارد شوید. (ثبت نظر پس از خرید فعال میشود)
Sub Process_Globals
Private secretNumber As Int
Private tries As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
' عدد مخفی بین ۱ تا 50
secretNumber = Rnd(1, 51)
tries = 0
End If
End Sub
Sub btnCheck_Click
Dim guess As Int = edtInput.Text
tries = tries + 1
If guess = secretNumber Then
lblMsg.Text = "آفرین! در " & tries & " تلاش درست حدس زدی"
Else If guess < secretNumber Then
lblMsg.Text = "برو بالاتر"
Else
lblMsg.Text = "عدد کوچکتری انتخاب کن"
End If
End Sub