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

سوال

سلام

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

Dim s1,s2 as int
s1=1
s2= s1+1
Dim i as int
For i= 0 To s2
Next

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

حل شد 0
, 2017-10-15T18:40:42+03:30 1 پاسخ ها کاربر تازه 0

پاسخ ( 1 )

  1. SOLTANE GHALBHA
    0
    2017-10-16T18:36:00+03:30
    پاسخ

    سلام

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

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

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

    متغیر ها:

    Dim i As Int
Private Label1 As Label
Private Button1 As Button

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

    i = i+1
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+1
	Label1.Text = i
End Sub

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

    موفق باشید.

    بهترین پاسخ

ارسال یک پاسخ