如何实现vb的延时？

[iroi2008]

我使用vb做pc与单片机的串口通讯程序，
有一些命令是让单片机返回参数的，需要先从pc发送命令字，
单片机判断后再返回。这需要一个延时，请问怎么实现。thx

[holydiablo]

Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Public Declare Function SleepEx Lib "kernel32" Alias "SleepEx" (ByVal dwMilliseconds As Long, ByVal bAlertable As Long) As Long
都可以延时
不过循环判断怕是少不了，你能确定单片机返回的确定时间吗

[water_j]

用TIMER控件!

[浩子]

用For循环比较好.
Dim i,j as integer
for i = 1 to 1000
for j = 1 to 1000
next j
next i

http://www.lhren.com/bbs/index.asp

[qqyong]

declare Function gettickcount lib "kernel32" () as long

t=gettickcount()
do
doevents
loop until gettickcount-t>100
'gettickcount的使用：任何硬件动作的进行必定需要时间，当对方传送字符串到我方计算机时一样需要时间，
因此需要上面的延迟片段时间

要给分哟！

[dwei]

用Timer控件和Sleep函数都应该可以，
你可以都试试，再选择一种更合适的，
用For循环不好设置延迟时间，建议不用。
^_^