RS-232Cで測定器からデータを受信するには？ (ID:117538)

名前

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

本文 033さん、ねろさんありがとうございます。 プログラムは、 Private Sub Command3_Click() If MSComm1.PortOpen = True Then Dim Buffer(3) As Byte 'バイト型配列 Buffer(0) = &H00 Buffer(1) = &H50 Buffer(2) = &H60 Buffer(3) = &HA4 MSComm1.Output = Buffer '受信データの取得 varBuffer = MSComm1.Input Text2.Text = Text2.Text & varBuffer End If Private Sub Command9_Click() Dim bytArray(1) As Byte If MSComm1.PortOpen = True Then bytArray(0) = &HFF bytArray(1) = &HB5 MSComm1.Output = bytArray '受信データの取得 varBuffer = MSComm1.Input Text3.Text = Text3.Text & varBuffer End If というように作成しました。 一回目の戻り値と、二回目の戻り値を判断するようなことはしていないと思います。 何かお気付きの点がありましたらご返答をお願いいたします。