فروشگاه یاهو ۹۸

آموزش کد: بازی حدس عدد (با راهنمایی هوشمند)

یک بازی کامل حدس عدد: برنامه در شروع یک عدد مخفی بین ۱ تا 50 با Rnd انتخاب می‌کند (فقط بار اول چون داخل If FirstTime است) و کاربر با هر حدس در btnCheck یکی از سه مسیر را می‌بیند: ب

رایگان
مشاهده صفحه محصول و راه‌های دریافت

توضیحات محصول

یک بازی کامل حدس عدد: برنامه در شروع یک عدد مخفی بین ۱ تا 50 با Rnd انتخاب می‌کند (فقط بار اول چون داخل If FirstTime است) و کاربر با هر حدس در btnCheck یکی از سه مسیر را می‌بیند: برد با نمایش تعداد تلاش‌ها، راهنمایی «برو بالاتر» یا راهنمایی «عدد کوچک‌تری انتخاب کن». زنجیره If / Else If / Else پایه تصمیم‌گیری چندمسیره در B4A است و شمارنده tries یادتان می‌دهد متغیرهای زنده باید در Globals یا Process_Globals باشند تا با هر کلیک صفر نشوند. همین منطق پایه هر بازی حدس، آزمون و کوییز است.

بدون نیاز به کتابخانه جانبی (فقط کتابخانه‌های داخلی 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