シリアル通信の受信は？ (ID:145639)

名前

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

本文

私はフォームに貼るコントロールは使わないのですが・・・

参考に！

DataReceivedの中身ですが、サンプルはアスキー通信ですので
バイナリ通信の場合は・・・

Dim dev As SerialPort
        Dim buff() As Byte
        Dim iRet As Integer
        Dim count As Integer

dev = CType(sender, SerialPort)

If e.EventType = SerialData.Chars Then
            count = dev.BytesToRead
            If count >= 2 Then
                ReDim buff(1)
                iRet = dev.Read(buff, 0, 2)
                If iRet = 2 Then
                    RaiseEvent ReceiveData(buff)
                End If
            End If
        End If

エラー処理は、ご自身でお考え下さい。
尚、上記コードは、別クラスにシリアル通信部分を分離して
います。

RaiseEvent ReceiveData の部分は・・・

Public Event ReceiveData(ByVal dt() As Byte)

と宣言してあります。

アプリ側では・・・

Private WithEvents devSerial As Serial2

と宣言して

Private Sub devSerial_ReceiveData(ByVal dt() As Byte) Handles devSerial.ReceiveData

Debug.WriteLine(dt(0).ToString("XX") + "," + dt(1).ToString("XX"))

End Sub

で、受信部分の処理をしています。

※  実験動作していませんので、動作するかは解りません。

以上。あくまで参考に！

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

戻る