MScommでデータを分割し、各テキストに表示するには？ (ID：105638)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

初めて投稿します。よろしくお願いします。
現在、MScommを使用して2次元バーコードのデータを受信する、というプログラムを組んでいるのですが、受信データの表示でつまずいています。

初期設定は以下の通りです。
MSComm1.CommPort = 2 'ポートの指定
MSComm1.Settings = "38400,N,8,1" '通信条件
MSComm1.InputMode = comInputModeText 'テキストで受信
MSComm1.Handshaking = comRTS 'ハンドシェイク有り
MSComm1.RThreshold = 1 
MSComm1.InputLen = 0 'Input で受信バッファから全バイト取得
MSComm1.PortOpen = True 'ポートオープン

そして、受信したデータの表示部分は以下の通りです。
受信データの例：田中n東京都j....

Dim Str_Data As String,Data As String, Buffer As String
Dim Num As Integer

If MSComm1.CommEvent = comEvReceive Then

Buffer = MSComm1.Input
Data = Data & Buffer

'名前の取得と表示
Num = InStr(Data, "n")
Str_Data = Left(Data, Num - 1)
txtname.Text = Str_Data
Data = Mid(Data, Num + 1)

'住所の取得と表示
Num = InStr(Data, "j")
Str_Data = Left(Data, Num - 1)
txtjusho.Text = Str_Data
Data = Mid(Data, Num + 1)
.
.
End If

Dataの中に受信データが格納されてくれません。しかも、まったく格納されない時と、受信データの半分ほどを格納する時があり、非常に不安定です。
  さらに、If MSComm1.CommEvent = comEvReceive Then  の箇所で
ブレークポイントを打ち、データを追っていくとエラーが出ません。

データを追っても解決できないのは始めての事で、途方に暮れています。
どなたか、問題の原因・解決策をご存知の方がいらっしゃったら
ご教授お願い致します。よろしくお願いします。

長文失礼しました。

←解決時は質問者本人がここをチェックしてください。

戻る