Loopとフリーズ

数ヶ月前からＶＢを始め、プログラムを組んでいる者です。

VB6.0を使用しています。
I/0ボードを用いてロボットの信号を受け取れるような環境を作りました。
『Do Until～Loop』処理で、信号を監視させているのですが、
プログラムを実行させるとCPU=100%になり、フリーズします。
『Do Until～Loop』処理の代わりになるような処理はないでしょうか？
以下に少し詳しく書き込んでおきますので、
よろしくお願いします。


信号Ａは１(ON)と０(OFF)のどちらかの信号を常に出しています。
(タイミングは機械が制御しています)
信号Ｂも１(ON)と０(OFF)のどちらかの信号を常に出しています。
(タイミングはランダムです)

＜目的＞
信号Ａが１のとき、信号Ｂの信号を受け取り、
信号Ａが０のとき、信号Ｂの信号は受け取りません。

＜アルゴリズム＞
(1)信号Ａが１になるまで『Do Until～Loop』処理を行う
　待機させる
(2)信号Ａが０になるまで『Do Until～Loop』処理を行う
　その処理の中で、信号Ｂの信号を常に監視させる

No.1 ベストアンサー 回答者： redfox63 回答日時： 2007/01/21 18:11

監視にDo-Loop構文を使っても構いませんがWindowsのメッセージループを止めない工夫をするようにしましょう

メッセージループとは ボタンのクリックやウィンドウの再描画などOSが処理している部分です

ループ中に DoEventsめっそどを適宜実行するようにしてみましょう
たとえば 10回ループを回ったら1回DoEventsを実行するようにするとか

dim nCnt as Integer

nCnt = 0
Do Until 終了条件
　監視処理
　nCnt = nCnt + 1
　if nCnt > 10 then
　　DoEvents
　　nCnt = 0
　end if
loop

といった具合です

この回答へのお礼

どうもありがとうございました！
おかげさまでプログラムも正常に動いてくれました。

お礼日時：2007/01/23 10:02

No.2 回答者： khazad-lefty 回答日時： 2007/01/22 22:58

↓に加えて、APIの"Sleep"で、適当に感覚をあけるといいかも知れません。

参考URL：http://hp.vector.co.jp/authors/VA017795/vbuseful …

この回答へのお礼

Sleepもとても便利な命令だなと感じました。
どうもありがとうございます！

お礼日時：2007/01/23 10:04