Re: [VB6 ] 跳出無窮迴圈
※ 引述《fumizuki (矇面加菲獅)》之銘言:
: ※ 引述《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秒
藉這個討論串延伸問一個問題
我現在每隔一段時間就要從Com1上讀取資料
但想寫一個取消按鈕 也就是按下去後就全部停止 跳出迴圈
請問這個按鈕要怎麼寫呢 感謝~
--
我我受不了你我決定要跟你分手原先我以為我是被夾在幸福和痛苦之間後來發現我是被排
在幸福和痛苦之外雖然追求的本身就是一種收穫付出的意義就是一項取得我寧可斷不可亂
也不願剪不斷理還亂我要跟你一刀兩斷
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.136.124.86
討論串 (同標題文章)