Timer wartet 20 Minuten zwischen zwei Ereignissen

Timer wartet 20 Minuten zwischen zwei Ereignissen
Store the next event time in a variable. use a timer to check periodically to see if the time has arrived.
Private Const INTERVAL_SECONDS = 20 * 60
Private NextEventTime As Single
Private Sub StartTimer()
NextEventTime = Timer + INTERVAL_SECONDS
If NextEventTime - Timer < 60000 Then
tmrTrigger.Interval = (NextEventTime - Timer) * 10
Else
tmrTrigger.Interval = 60000
End If
tmrTrigger.Enabled = True
End Sub
Private Sub Form_Load()
StartTimer
lblEventTime.Caption = Format$(DateAdd("s", INTERVAL_SECONDS, Time))
End Sub
Private Sub tmrTrigger_Timer()
If Timer >= NextEventTime Then See if it time for the event.
lblEventTime.Caption = Format$(DateAdd("s", _ Process the event.
INTERVAL_SECONDS, Time))
NextEventTime = NextEventTime + INTERVAL_SECONDS Set the new event time.
End If
If NextEventTime - Timer < 60 Then Set the timers interval.
tmrTrigger.Interval = (NextEventTime - Timer) * 10
Else
tmrTrigger.Interval = 60000
End If
End Sub

Mehr Tipps: ProgressBar programmieren

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt