VFP 代码做的时钟程序
[日期:2009-02-02] 来源: 作者: [字体:大 中 小]
ouserform=CREATEOBJECT("userform")
ouserform.SHOW
DEFINE CLASS userform AS form
CAPTION="Form1"
CURRENTX=51
CURRENTY=110
DRAWWIDTH=1
FORECOLOR=0
HEIGHT=201
LEFT=95
NAME="Form1"
TOP=52
VISIBLE=.T.
WIDTH=201
_S1=100
_S2=100
_M1=100
_M2=100
_H1=100
_H2=100
ADD OBJECT Timer1 AS Timer WITH ;
HEIGHT=0,;
INTERVAL=100,;
LEFT=0,;
NAME="Timer1",;
TOP=0,;
WIDTH=0
PROCEDURE ACTIVATE
store 100 to x, y
this.circle(100,100,100)
for s=0 to 59 && 繪刻度
x1 = x + (100 * Sin(S * 6 * 0.01745))
y1 = y + (100 * -Cos(S * 6 * 0.01745))
x2 = x + (90 * Sin(S * 6 * 0.01745))
y2 = y + (90 * -Cos(S * 6 * 0.01745))
this.drawwidth= iif(mod(s,5)=0,3,1)
this.line(x1,y1 , x2,y2)
endfor
READ EVENTS