Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
シリアル通信の受信データを表示
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30252#CommentId82873
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
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