討論區快速選單
知識庫快速選單
軟體開發過程中有哪些資安漏洞? 網路投保旅行平安險 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
想請教各位大大關於DO LOOP迴圈會產生的問題
更改我的閱讀文章字型大小
作者 : r70636(智將古市)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/12/10 下午 10:19:21
是這樣的 小弟剛接觸VB不久 最近需要寫到溫度監視方面的CODE

我中間有一段讀取溫度的副程式CODE是這樣寫的

1 Mscomm1.Output = "#01" & CHr(13)
2
3 Do
4 Doevents
5 Buffer$ = Buffer$ & Mscomm1.Input
6 Loop Until InStr(Buffer$ , vbCr)
7
8 Text1.Text = MID(Buffer$ , 2 , 7)
9 Text2.Text = MID(Buffer$ , 9 , 7)
10 Text3.Text = MID(Buffer$ , 16 , 7)
11 Text4.Text = MID(Buffer$ , 23 , 7)
12 Text5.Text = MID(Buffer$ , 30 , 7)
13 Text6.Text = MID(Buffer$ , 37 , 7)
14 Text7.Text = MID(Buffer$ , 44 , 7)
15 Text8.Text = MID(Buffer$ , 51 , 7)

然後這個東西是包在副程式裡用TIMER去執行 TIMER的interval是100

經過幾次執行發現程式會卡住後我就用偵錯模式看過程

然後發現到本來可以一直重覆執行的CODE 跑到某個地方就會一直卡在第3行到第6行這邊跑不出去

看起來像UNTIL判斷失效 可是小弟目前想不出辦法解決

想請教版上的大大是否可以幫小弟解惑一下或是有什麼前文可以讓小弟連過去看一下嘛 感激不盡!
作者 : qazujm(joe) Visual Basic卓越專家C#優秀好手貼文超過1000則
[ 貼文 1521 | 人氣 2524 | 評價 9070 | 評價/貼文 5.96 | 送出評價 90 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人r70636註記此篇回應為最佳解答 2013/12/11 上午 09:33:43
>是這樣的 小弟剛接觸VB不久 最近需要寫到溫度監視方面的CODE
>中間有一段讀取溫度的副程式CODE是這樣寫的

>1 Mscomm1.Output = "#01" & CHr(13)
>3 Do
>4 Doevents
>5 Buffer$ = Buffer$ & Mscomm1.Input
>6 Loop Until InStr(Buffer$ , vbCr)

>然後這個東西是包在副程式裡用TIMER去執行 TIMER的interval是100
>經過幾次執行發現程式會卡住後我就用偵錯模式看過程
>然後發現到本來可以一直重覆執行的CODE 跑到某個地方就會一直卡在第3行到第6行這邊跑不出去
>看起來像UNTIL判斷失效 可是小弟目前想不出辦法解決
>想請教版上的大大是否可以幫小弟解惑一下或是有什麼前文可以讓小弟連過去看一下嘛 感激不盡!

儀器是什麼型號?可能是沒收到vbCr,把interval設大一點試試...

作者 : r70636(智將古市)
[ 貼文 3 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 1 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/12/11 下午 06:25:19
謝謝大大的回覆
小弟已經找到問題所在了 感謝您~
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2230 
6 史努比 1950 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.140625