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