Sub Process_Globals
Private FlashTimer As Timer
Private FlashOn As Boolean = False
End Sub
Sub Activity_Create(FirstTime As Boolean)
FlashTimer.Initialize("FlashTimer", 1)
FlashTimer.Enabled = True
End Sub
Sub FlashTimer_Tick
FlashTimer.Interval = 250
If FlashOn = False Then
FlashOn = True
Log("Switch-on the flash")
Else
FlashOn = False
Log("Switch-off the flash")
End If
End Sub