Guidance
指路人
g.yi.org
software / rapidq / Examples / Date & Time / simple clock.bas

Register 
注册
Search 搜索
首页 
Home Home
Software
Upload

  
     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
掌柜推荐
 
 
 
 
 
 
 
 
 
 
 
 
© Sun 2022-9-25  Guidance Laboratory Inc.
Email:webmaster1g.yi.org Hits:0 Last modified:2002-06-16 08:17:28