こんにちは、VBはじめたての初心者です。MSCommコマンドを利用して

質問

こんにちは、VBはじめたての初心者です。MSCommコマンドを利用してマイコンと
通信するプログラムを作成中なのですが、わからないことがあるので質問させていただきます。

public aub form_load()
MSComm1.CommPort = 3 'ポート番号設定
MSComm1.Settings = "115200,N,8,1" '設定
MSComm1.PortOpen = True 'ポートオープン
MSComm1.Handshaking = comNone 'フロー制御無し
MSComm1.RTSEnable = False 'RTS制御無し
MSComm1.RThreshold = 1 '１バイト受信毎にOnCommイベント発生

Dim txBuffer As String

End sub

'テキストに表示した受信文字列を変数に格納、さらに必要な文字列だけ抽出する
Private Sub botan_Click()

txBuffer = Text2.Text
x = InStr(1, txBuffer, "e" & vbCrLf, 1)
txBuffer = Mid(txBuffer, x + 3, (Len(txBuffer) - (x + 2)))
Text1.Text = txBuffer 'txBufferの内容確認用

End Sub

Private Sub cmdr_Click()

Text2.Text = ""
MSComm1.Output = "r a0 s 00 j ff" & Chr(13) 'マイコンのデータを読み込むコマンド

End Sub

Private Sub MSComm1_OnComm()

Select Case MSComm1.CommEvent
Case comEvReceive
Buffer = MSComm1.Input
Text2.Text = Text2.Text & Buffer
・
・
・
End Select
End Sub

おおざっぱですがこのようなプログラムをつくりました。
目的は受信された文字列（テキストに表示）を変数に格納、さらに必要な文字列だけ抽出する
ことなのですが、このプログラムだとデータを読み込むコマンドを送るボタンとそのデータを
変数に格納して必要な部分を抽出するボタンを二回押さなければならず面倒なので、botan_Click()
の中の命令をそのままcmdr_Click()に入れたのですが、そうするとエラーが出てしまいます。
いろいろと試したのですがどうやらtxBufferの中に受信データが入ってくれないみたいです。
原因は何か。何かいい方法がないかアドバイスいただけたら幸いです。
やりたいことは、一回のボタンクリックで変数に受信データのほしいとこだけを格納させることです。
よろしくお願いします。

回答No.1

LuzBlue · ベストアンサー

たぶんMScommに対して、送信文字列を設定した時点では、まだ、マイコンのほうからデータがおくられてきていないためです。　マイコンのほうからデータが送られてくると、MSComm1_OnCommが実行され、データが格納されるわけです。
文字列抽出用のボタンを押すのが面倒であれば、MSComm1_OnCommの中で、文字列抽出用のボタンを押すようにすればいいと思います(直接コールするのでなく、イベントとしてコールされるようにするのがお勧めです)

お礼

連絡が遅れて申し訳ありません。LuzBlueさんの意見を参考にプログラムを修正してなんとか思惑通りの動作を実現させることができました。
貴重なご意見どうもありがとうございました。