Hilfe
ResetTimer
Aufruf
Parameter
Rückgabewert
Beschreibung
Zusatzinformation
Beispiel
Siehe auch
ResetTimer timer
Parameter
timer |
Identität des Timers (ermittelt mit CreateTimer![]() |
Rückgabewert
-
Beschreibung
Die Anweisung ResetTimer setzt einen Zeitgeber zurück. Nach Definition eines Timers mit CreateTimer wird jedes Mal ein Event gesendet. Diese Timer-Ticks werden gezählt - die Anzahl kann mit TimerTicks
ermittelt werden. ResetTimer setzt diesen Wert wieder auf 0.
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

