2002-06-16 08:17

     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))*(44/7/12)-11/7))*40
'  y=100+(sin(val(left$(ti,2))*(44/7/12)-11/7))*40
      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

2002-06-16 08:17