投稿者 vb素人  (社会人) 投稿日時 2017/7/5 18:13:05
魔界の仮面弁士さま

何回も申し訳ありません。
少し進んだような気がします。

↓のコードで確認をした所、
受信データは、「FFFFFFF」と確認できました。(FFがずっと続く)

しかし、送信側からは1023を送信してきているため、
受信データは、「03FF」が表示されると考えています。

なぜ、FFと表示されてしまうのか理解できておりません。
教えていただけると助かります。



    Private Delegate Sub Delegate_RcvDataToTextBox(data As Byte())

    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        'シリアルポートをオープンしていない場合、処理を行わない.
        If SerialPort1.IsOpen = False Then
            Return
        End If

        Try

            Dim data(SerialPort1.BytesToRead - 1) As Byte
            SerialPort1.Read(data, 0, data.Length)

            Dim args(0) As Object
            args(0) = data
            Invoke(New Delegate_RcvDataToTextBox(AddressOf Me.RcvDataToTextBox), data)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub RcvDataToTextBox(data As Byte())

        '受信データをテキストボックスの最後に追記する.
        If IsNothing(data) = False Then
            'RcvTextBox.AppendText(CStr(data))
            RcvTextBox.AppendText(BitConverter.ToString(data))
        End If

    End Sub