回 帖 发 新 帖 刷新版面

主题:QB的N个问题

1  QB71中怎么调用中断
2  暂停几秒用什么语句(SLEEP 只能暂停整数秒,那么暂停0.1秒怎么办)

回复列表 (共7个回复)

沙发

2、暂停用timer
1、没有用过qb71

板凳

DECLARE SUB delay (tim!)

PRINT TIMER
delay (.1)
PRINT TIMER

SUB delay (tim)
  tim = tim + TIMER
  WHILE TIMER < tim
  WEND
END SUB

3 楼

xiexie!

4 楼

1 关键字是 INTERRUPT,具体自己去查
2 你可以读取 0x0000046C 处的 integer 型数据,保存下来,然后用实时更新的 0x0000046C 减去你刚才保存的数据,如果比你要延时的时间长就停止,可以用 while.wend 循环实现。我手头只有 C 的代码, 至于 qbasic 嘛,好像读内存的函数是 peek 还是 poke 自己去查.

5 楼

以上都是暂停整数秒 [color=FF0000]那么暂停0.1秒怎么办[/color]

6 楼

飞鸟写的就是毫秒的啊!
看来你并没有运行他的程序啊
为什么不自己试验一下
do
   locate 10,10:print timer
   locate 11,10:print time$
loop

7 楼

不好意思我一直以为 TIMER=TIME$

我来回复

您尚未登录,请登录后再回复。点此登录或注册