您所在位置：主题：延时的用法
qb45
[专家分：2880] 发布于 2005-07-31 08:53:00
在QB中,如果碰到要等待延时然后继续运行的情况,可以有这样的用法
最简单的用SLEEP,秒语句
例如
DO
I=I+1
PRINT I
SLEEP,5 '5秒后退出
LOOP
还有个另类的用法，用sound语句
sound 频率，时间
sound 32767，1
如果你要在毫秒级别,就要调用TIMER语句了
T=TIMER
DO
LOOP UNTIL TIMER-T>0.5
如果是时间到就执行跳转,或者是程序运行时不断显示时间,就要用到时间陷阱
语句：ON TIMER(N) GOSUB 行号
N的范围为1秒到86400秒
语句TIMER ON （打开时间陷阱）
例如：
on timer(1) gosub showtime
timer on
do
loop until inkey$=chr$(27)
end
showtime:
locate 10,25:print time$
return
在这个例子中最小只能1秒
最简单的用SLEEP,秒语句
例如
DO
I=I+1
PRINT I
SLEEP,5 '5秒后退出
LOOP
还有个另类的用法，用sound语句
sound 频率，时间
sound 32767，1
如果你要在毫秒级别,就要调用TIMER语句了
T=TIMER
DO
LOOP UNTIL TIMER-T>0.5
如果是时间到就执行跳转,或者是程序运行时不断显示时间,就要用到时间陷阱
语句：ON TIMER(N) GOSUB 行号
N的范围为1秒到86400秒
语句TIMER ON （打开时间陷阱）
例如：
on timer(1) gosub showtime
timer on
do
loop until inkey$=chr$(27)
end
showtime:
locate 10,25:print time$
return
在这个例子中最小只能1秒
