Hilfe
TimerTicks
Aufruf
Parameter
Rückgabewert
Beschreibung
Zusatzinformation
Beispiel
Siehe auch
anzahl = TimerTicks (timer)
Parameter
timer |
Identität eines Timers (ermittelt mit CreateTimer![]() |
Rückgabewert
Anzahl der "Ticks", die ein Zeitgeber produziert hat.
Beschreibung
Die Funktion TimerTicks liefert Anzahl der "Ticks", die ein Zeitgeber produziert hat. Bei jedem Tick wird ein Event gesendet. Mit PauseTimer kann ein Zeitgeber angehalten und später mit ResumeTimer
fortgesetzt werden. ResetTimer
setzt diesen Timer zurück.
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

