主题：怎么用QB来做一个闹钟，有声音，有传统界面的有数字界面的
542335997
[专家分：0] 发布于 2008-01-18 13:16:00
有声音，有传统界面的 有数字界面的
回复列表 （共2个回复）
沙发
Matodied [专家分：7560] 发布于 2008-01-22 22:23:00
详见[url=http://www.programfan.com/club/post-252701.html]这个程序[/url]
板凳
zhangyurui2000427 [专家分：80] 发布于 2009-11-14 11:18:00
REM CLOCK
INPUT "(SHURUXIAOSHI FEN MIAO);", T$
TIME$ = T$
SCREEN 1, 0
COLOR 1, 0
KEY OFF: CLS
LOCATE 5, 12: PRINT "12"
LOCATE 13, 22: PRINT "3"
LOCATE 21, 12: PRINT "6"
LOCATE 13, 3: PRINT "9"
CIRCLE (94, 100), 80, 1, , , 7 / 8
C = 6.28 / 60
75 J = VAL(RIGHT$(TIME$, 2)) + 45
X1 = 60 * COS(J * C) + 94
Y1 = 60 * SIN(J * C) + 100
LINE (X1, Y1)-(94, 100), 2
CIRCLE (94, 100), 2
100 IF T$ = TIME$ THEN 100 ELSE LOCATE 10, 9: PRINT TIME$
T$ = TIME$
LINE (X1, Y1)-(94, 100), 0: PRINT CHR$(7)
IF INKEY$ = "" THEN 75
SCREEN 0: WIDTH 80: KEY ON
END
我来回复
您所在位置：