Orologio
DECLARE SUB ADJUST
DIM T AS QTIMER
T.ONTIMER=ADJUST
T.INTERVAL=1000
CREATE FORM AS QFORM
CENTER
END CREATE
FORM.SHOWMODAL
SUB ADJUST
FORM.REPAINT
DIM TI AS STRING,X AS INTEGER,Y AS INTEGER
TI=TIME$
X=100+(COS(VAL(RIGHT$(TI,2))*(44/7/60)-11/7))*50
Y=100+(SIN(VAL(RIGHT$(TI,2))*(44/7/60)-11/7))*50
FORM.LINE(100,100,X,Y,0)
X=100+(COS(VAL(MID$(TI,4,2))*(44/7/60)-11/7))*50
Y=100+(SIN(VAL(MID$(TI,4,2))*(44/7/60)-11/7))*50
FORM.LINE(100,100,X,Y,&HFF0000)
X=100+(COS(( VAL(LEFT$(TI,2) )+VAL(MID$(TI,4,2))/60)*(44/7/12)-11/7))*40
Y=100+(SIN((VAL(LEFT$(TI,2))+VAL(MID$(TI,4,2))/60)*(44/7/12)-11/7))*40
FORM.LINE(100,100,X,Y,&H00FF00)
END SUB
|