rs232cでの受信データ(mscomm)の受信方法ＶＢ６

質問

ＶＢ６で、シリアル通信プログラムを作っています。
機器からレスポンスが、02 00 44 03 61 62 63 03 72 0Dと９バイトくるのですが、
８バイト受信した後に、また、最後の0Dを１バイト目として受信しているので困っています。
ｏｎ　ｃｏｍｍイベントで以下のようにして受信データをテキストボックスに表示しているのですが、

Select Case MSComm1.CommEvent
　　Case comEvReceive
　　　　　　Dim Buffer() As Byte
　　　　　　Buffer() = MSComm1.Input
　　　　　　For t = 0 To 6 + Buffer(3)　　,BUffer(3)はデータ長です。
　　　　　　Text1.Text = Text1.Text & Hex$(Buffer(t)) & Chr(&H3A)
　　　　　　Next t
８バイト表示した後、１バイト受信が起こるので、Buffer(3)が範囲外となりエラーが起こります。
inputLenは0にしています。
この問題は解決するにはどうしたらよいでしょうか？
0Dは終了コードです。0Dを受信するまで、きちんと１バイトづづ格納していくなどというようにできたらよいのですが、、、
他にも簡単な方法があったらよいのですが、、、
よろしくお願いいたします。

回答No.2

khazad-lefty

CommEventの受信って、別に１通信単位を認識して決まったタイミングで起こるものじゃなかった記憶が…。
なので、6 + Buffer(3)みたいに固定の長さでループをまわすことに無理があると思います。
とりあえず来たデータをすべて文字列なりに格納して、終了判断などはその後行えばいいのでは？

たとえば、bufStr as string をモジュール変数で定義して、
　　　　　　For t = 0 To ubound(Buffer)　　,BUffer(3)はデータ長です。
　　　　　　if Buffer(t)=&h0D then
　　　　　　 Text1.Text =bufStr
　　　　　　bufStr = ""
　　　　　　else
　　　　　　bufStr = bufStr & Hex$(Buffer(t)) & Chr(&H3A)
　　　　　　end if
　　　　　　Next t

という感じで。とにかくループは来たデータのデータ長で単純に回すということがポイントだと思います。

回答No.1

otto0001otto

Select Case MSComm1.CommEvent
Case 2
Inp$ = MSComm1.Input
InpStr = InpStr + Inp
If Inp = Chr(13) Then
RcvData = InpStr
InpStr = ""
Text1.Text = Text1.Text & vbCrLf & RcvData
End If
End Select

のようにして、１行ずつ取得すればどうですか？
0Dを検出したら、処理を行ないます。

お礼

回答ありがとうございます。
試してみたのですが、text1には何も表示されなかったです。
初心者なもので、やり方がまずいのだと思うのですが、、。
参考にさせていただきます。ありがとうございました。

また、プログラムをＶＢ2005で書く必要ができたために、
これから回答くださる方、できればＶＢ２００５での記述をお願いします。