ساخت شمارنده در b4a

سوال

سلام

من میخواستم یک کنتور در برنامم ایجاد کنم که مثلا با هر بار فشردن یک باتن یک عدد نشون بده مثلا دفعه اول کلیک عدد یک دفعه دوم عدد ۲ و ..
یک حلقه تعریف کردم ولی جواب نداده

۱
۲
۳
۴
۵
۶
Dim s1,s2 as int
s1=۱
s2= s1+۱
Dim i as int
For i= ۰ To s2
Next

کسی میتونه کمکم کنه؟

حل شد 0
, ۱۳۹۶/۷/۲۳ ۱۸:۴۰:۴۲ 1 پاسخ ها کاربر تازه 0

پاسخ ( 1 )

  1. SOLTANE GHALBHA
    0
    ۱۳۹۶/۷/۲۴ ۱۸:۳۶:۰۰
    پاسخ

    سلام

    حلقه برای زمانی هست که بخواید یک شرط رو برقرار کنید، برای مثال تا زمانی که i=1 هست فلان کار رو انجام بده.

    ولی برای کاری که شما میخواید انجام بدید، مراحل زیر را طی کنید:

    • یک Button و یک Label به برنامه اضافه کنید.
    • و یک متغیر از نوع int تعریف کنید.

    متغیر ها:

    ۱
    ۲
    ۳
    Dim i As Int
    Private Label1 As Label
    Private Button1 As Button

    رویداد کلیک دکمه:

    ۱
    ۲
    i = i+۱
    Label1.Text = i

    • کل کدهای اکتویتی Main:

    ۱
    ۲
    ۳
    ۴
    ۵
    ۶
    ۷
    ۸
    ۹
    ۱۰
    ۱۱
    ۱۲
    ۱۳
    ۱۴
    ۱۵
    ۱۶
    ۱۷
    ۱۸
    ۱۹
    ۲۰
    ۲۱
    ۲۲
    ۲۳
    ۲۴
    ۲۵
    ۲۶
    ۲۷
    ۲۸
    ۲۹
    ۳۰
    ۳۱
    ۳۲
    ۳۳
    #Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
    #End Region
     
    #Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
    #End Region
     
    Sub Process_Globals
     
    End Sub
     
    Sub Globals
    Dim i As Int
    Private Label1 As Label
    Private Button1 As Button
    End Sub
     
    Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("lm")
    End Sub
     
    Sub Button1_Click
    i = i+۱
    Label1.Text = i
    End Sub

    خروجی برنامه:

    موفق باشید.

    بهترین پاسخ

ارسال یک پاسخ