作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 跳出无穷回圈
时间Mon Jun 18 13:39:16 2007
※ 引述《kunhui (埃柏龙)》之铭言：
: 我写了一个回圈用来等待Com1上的资料
: Do Until Comm1.InBufferCount > 0
: DoEvents
: Loop
: 正常情况下是没有问题的
: 但是万一因为干扰导致对方没回应时我的程式会当在那边
: 我想要写一个计时器在里面 当进入回圈就开始计时
: 当等待T时後若还没收到资料则自动跳出回圈 想不出来要怎麽写
: 请教一下我该如何下手
参考 z,12,3,5 GetTickCount 可取得计数器时间
(timeGetTime会比GetTickCount精准一点，用法相同)
vb亦有提供 Timer函数，不过只能传回当日的秒数而已
回圈前
StartTime = timeGetTime()
回圈里
If (timeGetTime - StartTime) / 1000 > 30 Then Exit Do
'设定逾时时间为30秒
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.224.174