یک بازی کامل حدس عدد: برنامه در شروع یک عدد مخفی بین ۱ تا 200 با Rnd انتخاب میکند (فقط بار اول چون داخل If FirstTime است) و کاربر با هر حدس در btnGuess یکی از سه مسیر را میبیند: برد با نمایش تعداد تلاشها، راهنمایی «عدد بزرگتری انتخاب کن» یا راهنمایی «عدد کوچکتری انتخاب کن». زنجیره 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
' عدد مخفی بین ۱ تا 200
secretNumber = Rnd(1, 201)
tries = 0
End If
End Sub
Sub btnGuess_Click
Dim guess As Int = edtName.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