Hilfe
PauseTimer
Aufruf
Parameter
Rückgabewert
Beschreibung
Zusatzinformation
Beispiel
Siehe auch
PauseTimer timer
Parameter
| timer |
Identität des Timers (ermittelt mit CreateTimer )
|
Rückgabewert
-
Beschreibung
Die Anweisung PauseTimer hält einen Zeitgeber an, der mit CreateTimer definiert wurde. Wenn ein Zeitgeber so angehalten wird, dann werden keine Timer-Events mehr gesendet. Erst mit ResumeTimer wird die Ausführung fortgesetzt.
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