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 erfolgt 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
Grundlagen Zeit & Zufall
2D Grafik
Grundlagen