绘制钟表

绘制一个钟表动画，显示当前系统时间，引发学生兴趣。

<br />SCREEN 12: x0 = 320: y0 = 200: r = 70: pi = 4 * ATN(1)<br />CIRCLE (x0, y0), 80: CIRCLE (x0, y0), 110<br />LOCATE 7, 40: PRINT "12": LOCATE 19, 40: PRINT "6"<br />LOCATE 8, 34: PRINT "11": LOCATE 8, 47: PRINT "1"<br />LOCATE 10, 30: PRINT "10": LOCATE 10, 51: PRINT "2"<br />LOCATE 13, 28: PRINT "9": LOCATE 13, 53: PRINT "3"<br />LOCATE 16, 30: PRINT "8": LOCATE 16, 51: PRINT "4"<br />LOCATE 18, 34: PRINT "7": LOCATE 18, 47: PRINT "5"<br />FOR i = 1 TO 11<br /> a = i * pi / 6<br /> x = r * COS(a): y = r * SIN(a)<br /> PSET (x + x0, y + y0)<br />NEXT i<br />LOCATE 3, 36: PRINT DATE$<br />PSET (x0, y0)<br />DO<br /> LOCATE 5, 37: PRINT TIME$<br /> s = VAL(TIME$): f = VAL(MID$(TIME$, 4, 2)): m VAL(MID$(TIME$, 7, 2))<br /> sd = -(30 * s + f / 2) MOD 360: fd = -6 * f: md = -6 * m<br /> DRAW "C15TA=" + VARPTR$(sd) + "NU35"<br /> DRAW "C9TA=" + VARPTR$(fd) + "NU45"<br /> DRAW "C12TA=" + VARPTR$(md) + "NU55"<br /> DO<br /> IF INKEY$ <> "" THEN END<br /> qm = VAL(MID$(TIME$, 7, 2))<br /> LOOP WHILE m = qm<br /> DRAW "C0"<br /> DRAW "TA=" + VARPTR$(sd) + "NU35"<br /> DRAW "TA=" + VARPTR$(fd) + "NU45"<br /> DRAW "TA=" + VARPTR$(md) + "NU55"<br />LOOP<br />END<br />