salam bikar bodam goftam ba timer yekam kar konam
khob 2 ta timer tarif mikonim to ghesmate
va bad to ghesmate
va bad miyaym to ghesmate
va dar nahayat
Manba haminja
Good Luck
khob 2 ta timer tarif mikonim to ghesmate
- Code:
Sub Process_Globals
Dim timer1 As Timer
Dim timer2 As Timer
End Sub
va bad to ghesmate
- Code:
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
' Add Kardane Ye range be delkha
Activity.TitleColor = Colors.Black
'
timer1.Initialize("timer1","200")'inam ke malome
timer2.Initialize("timer2","2000")' //
timer1.Enabled = True 'starte timer 1
End Sub
va bad miyaym to ghesmate
- Code:
Sub timer1_tick
Activity.TitleColor = Colors.White' range sefid ro entekhab mikonim
timer2.Enabled = True ' timer 2 ro vasl mikonim
timer1.Enabled = False' timer 1 ro ghat mikonim
End Sub
va dar nahayat
- Code:
Sub timer2_tick
Activity.TitleColor = Colors.Black' range meshki ro entekhab mikonim
timer1.Enabled = True' timer 1 vasl she
timer2.Enabled = False' timer 2 ghat she
End Sub
Manba haminja
Good Luck
Last edited by Armin Ramzani on Sun Aug 24, 2014 2:52 pm; edited 1 time in total