Hilfe
ResumeTimer
Aufruf
Parameter
Rückgabewert
Beschreibung
Zusatzinformation
Beispiel
Siehe auch
ResumeTimer timer
Parameter
timer |
Identität des Timers (ermittelt mit CreateTimer![]() |
Rückgabewert
-
Beschreibung
Die Anweisung ResumeTimer setzt die Ausführung eines Zeitgebers fort. Ein Zeitgeber kann mit CreateTimer definiert werden. Es kann, falls notwendig, mit PauseTimer
angehalten werden - dann werden keine Timer-Events mehr gesendet.
Zusatzinformation
Dies ist ein undokumentierter Befehl. Sollte dieser Befehl wieder offiziell entfernt werden, wären Programme zu allen zukünftigen Updates nicht mehr kompatibel und müssten umgeschrieben werden. Die Anwendung ist daher auf eigenes Risiko.
Beispiel
Erstellt einen Zeitgeber und zeigt Anzahl der Ticks in der Titelleiste. Dieser Zeitgeber kann angehalten, fortgesetzt oder zurückgesetzt werden:
window = CreateWindow ("",0,0,300,300,0,1)
button1 = CreateButton ("Anhalten",10,10,100,25,window)
button2 = CreateButton ("Fortsetzten",10,50,100,25,window)
button3 = CreateButton ("Zurücksetzten",10,90,100,25,window)
timer = CreateTimer (4)
Repeat
If GetKey () = 27 Then End
Select WaitEvent ()
Case $401
gadget = EventSource ()
If gadget = button1 Then PauseTimer timer
If gadget = button2 Then ResumeTimer timer
If gadget = button3 Then ResetTimer timer
Case $803 : End
Case $4001 : SetGadgetText window, TimerTicks (timer)
End Select
Forever
button1 = CreateButton ("Anhalten",10,10,100,25,window)
button2 = CreateButton ("Fortsetzten",10,50,100,25,window)
button3 = CreateButton ("Zurücksetzten",10,90,100,25,window)
timer = CreateTimer (4)
Repeat
If GetKey () = 27 Then End
Select WaitEvent ()
Case $401
gadget = EventSource ()
If gadget = button1 Then PauseTimer timer
If gadget = button2 Then ResumeTimer timer
If gadget = button3 Then ResetTimer timer
Case $803 : End
Case $4001 : SetGadgetText window, TimerTicks (timer)
End Select
Forever
Siehe auch

