发表于:2005-05-16 14:47:00
2楼
以下是TICKS做时钟的应用程序,供参考.VR(3)代表小时;VR(2)代表分钟;VR(1)代表秒.
VR(1)=0
VR(2)=0
VR(3)=0
SERVO_PERIOD=250
REPEAT
TICKS=4000
loop:
IF TICKS<=0 THEN
IF VR(1)<60 THEN PRINT #6,VR(3), VR(2),VR(1)
VR(1)=VR(1)+1
IF VR(1)>=60 THEN
VR(2)=VR(2)+1
VR(1)=0
IF VR(1)=60 THEN PRINT #6,VR(3), VR(2),0
IF VR(2)>=60 THEN
VR(3)=VR(3)+1
VR(2)=0
IF VR(2)=60 THEN PRINT #6,VR(3),0,VR(1)
ENDIF
IF VR(3)>=24 THEN VR(3)=0
ENDIF
ELSE
GOTO loop
ENDIF
UNTIL FALSE