[求] 求VB中各种延时方法。。

Question

我现在做MSCOMM串口通信的
现在需要各种延时方法。我以前试过API延时但是感觉不好就是一但运行到API延时时就不动了像死机一样。我设置的是延迟3秒。在这三秒内软件像死机一样。不太理想后来我改用
for i=1 to 8000
Doevents
next这方法可以收到数据。但感觉还是不理想。主要是他影响的程序的速度。因为我发数据都是很多的。如果每发一条数据都循环这么多次。感觉不行。小弟实在没多少分。所以只能说谢谢了/。

Answer 1

写一个延时函数吧，
Private Sub wait(pintSec As Integer)
  Dim sngNow As Single
  sngNow = Timer
  Do While Timer < sngNow + pintSec
    DoEvents
  Loop
End Sub

Answer 2

为什么要固定的延时呢？
用Timer来控制，SendBuffer有数据就发送，串口有数据就接收。