This.iRepeats = This.iRepeats - 1
If This.iRepeats < 0
Clear Events
EndIfHello comunity
I need to create a Form with a timer on it to run every 30 minutes. for display for example a messagebox, or coomand to SQL to display BROWLIST.
I found this code for the timer:
Public goShutdownTimer
goShutdownTimer = CreateObject("ctmrshutdown")
Read Events
Define Class ctmrshutdown as Timer
iRepeats = 10
Interval = 500
Procedure Timer()
This.Enabled = .F.
? "ran at",Datetime(),time(), second()
This.Enabled = .T.
EndProc
EndDefine
But when the timer Stop, all the program is closed !?
Someone could give me a simple example for create programmatically a Form with a Timer . The purpose is when i define timer to run every 30 minutes, i can display for example a messagebox, and after than the timer is reset to 0 (zero) and restart again.
Many thanks
Best regards
LS