※ 引述《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