' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' 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



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb