مینی سورس کورنومتر در بیسیک فور اندروید

[MR.B4A 252]

با استفاده از کدهای پست بعدی یک کورنومتر بسیار زیبا برای پروژه خود بسازید

سورس

فقط کافیه این دستورات رو در برنامه خود کپی کنید:

Sub Process_Globals
	Dim t As Timer
End Sub
 
Sub Globals
	Dim MiliS = 0 ,Secound = 0, Minute=0 As Int
	
	Private Label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("MainLayout")
	
	t.Initialize("T",10)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Btn2_Click

End Sub
Sub T_Tick
	If MiliS = 100 Then
	  Secound = Secound + 1
	  MiliS = 0
	    If Secound = 60 Then
		 Minute = Minute + 1
		 Secound = 0
		  If Minute = 60 Then
		   Minute = 0
		   Secound = 0 
		   MiliS = 0
		  End If
	    End If
	 Else
	 MiliS = MiliS + 1
	 End If
	 
	Label2.Text=Minute&":"&Secound&":"&MiliS
End Sub

Private Sub Button1_Click
	t.Enabled = True
End Sub

Private Sub Button2_Click
	t.Enabled = False
End Sub

Private Sub Button3_Click
	Label2.Text=0
	Label2.Text=""
	
	Minute=0
	Secound=0
	MiliS=0
End Sub

لینک کانال ایتا: https://eitaa.com/basic4androidlan

لینک کانال بله: https://web.bale.ai/chat?uid=5896703188

 

طراح و تهیه کننده:
مرتضی صباغی
MR.B4A