Petite horloge en RAPIDQ (avec 1 qtimer ; 1 qform ; 1 qlabel !)

$optimize on
$typecheck on

declare sub timera_time

CREATE Form AS QFORM
Caption = "Horloge v0.1"
Width = 305
Height = 105
Delbordericons(1,2)
Center
CREATE Label AS QLABEL
Caption = "00:00:00"
Align = 5
Font.size = 35
Font.name = "comic sans MS"
Alignment = 2
END CREATE
END CREATE

dim timera as qtimer

timera.interval = 1000 '--- 1 sec ---
timera.onTimer = timera_time

Form.ShowModal

SUB timera_time
label.caption = left$(time$,2) & ":" & mid$(time$,4,2) & ":" & right$(time$,2)
END SUB

' petite horloge toute simple.