关于EXCEL VBA 延时程序

sub delay(T as single)

dim T1 as single

t1=timer

do

doevents

loop while timer-t1<t

end sub

调用时，使用 delay 3 即可延时3秒源洞渣

除了用timer函数颤宏外，还可以使用gettickcount函数，不过使用它之前要声明它，过程与上面的过程差不多，只是参数便是毫秒作为单位了

SLEEP函数延时是毫秒级的，精确度比较高，但它在延时时会占用很多系统时间，使 *** 作系统暂时无法响应用户 *** 雹悄作，所以在长延时的时候不适合使用它

汇编语言中，延迟有几种方式：

1、通过一些专门的语句，比如

NOP执行一个空 *** 作磨唤

2、通过空循环，比如：

setb p1.0IO口置1

mov r2,#200R2赋值200

djnz r2,$ 循环200次，延历备时约400微妙

clr p1.0IO口清肢游毁0

3、通过调用延时程序，比如：

lcall delay调用延时子程序

.....

delay:延时约400微妙

mov r2,#200

djnz r2,$

ret

---