- Code: Select all
Event Init()
Tm1.Interval = 1000
Tm1.Enabled = True
Tm1.Stop()
doDelay = True
MyDelay = 5
Tm1.Start()
Do While doDelay = True
stdout("nothing " & String(DelaySeconds))
Loop
MsgBox("ready waiting")
The Timer Event,
- Code: Select all
Signal on_Tm1_Event()
DelaySeconds = DelaySeconds + 1
stdout(DelaySeconds)
If DelaySeconds = MyDelay Then
doDelay = False
End If
End Signal
The Do While Loop is preventing that the Timer Event is called.
stdout(DelaySeconds) show no output until you disable the Do While Loop.