Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
シリアル通信の受信データを表示
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30252#CommentId82868
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
vb素人
 (社会人)
投稿日時
2017/7/5 14:59:51
kiku様
回答ありがとうございます。
教えていただきました通り、
MessageBox.Show(BitConverter.ToString(dat))
に変更してみましたところ、
メッセージBoxには、「FF-FF-FF」が表示されます。(FF-FFが連続して表示)
⇒送信しているデータは、1023なので、「FF-03」または「03-FF」と表示されると考えていましたが、
なぜか「FF-FF」となってしまいます。
その後、次のメッセージが表示されます。
「型'System.Byte[]'のオブジェクトを型'System.String'に変換できません」
テストした際のコードを掲載させていただきます。
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 As Byte() = New Byte(SerialPort1.BytesToRead - 1) {}
SerialPort1.Read(data, 0, data.GetLength(0))
MessageBox.Show(BitConverter.ToString(data))
'受信したデータをテキストボックスに書き込む.
Dim args(0) As Object
args(0) = data
Invoke(New Delegate_RcvDataToTextBox(AddressOf Me.RcvDataToTextBox), args)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub RcvDataToTextBox(data As String)
'受信データをテキストボックスの最後に追記する.
If IsNothing(data) = False Then
RcvTextBox.AppendText(data)
End If
End Sub