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

名前

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

本文 我龍院さんへ。 その後ご指摘いただいた点を見直して、受信部分を修正しました。 と言っても、殆どが龍院さんのページを引き写したようなものですが・・・。 連続してデータを受信した場合も予想通りの動きをします。 アドバイスをありがとうございました。 Delegate Sub ReceiveDataDelegate(ByVal iData As Integer) Private Sub DataAnalyze(ByVal iData As Integer) '// 受信データの内容チェック '// 受信データからデータを組み立てる処理 '// ラベルに表示する処理 End Sub Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _ Handles SerialPort1.DataReceived Dim dlgData As ReceiveDataDelegate = New ReceiveDataDelegate(AddressOf DataAnalyze) Dim ReadBuff(SerialPort1.BytesToRead - 1) As Byte SerialPort1.Read(ReadBuff, 0, SerialPort1.BytesToRead) For i As Integer = 0 To ReadBuff.Length - 1 Me.Invoke(dlgData, CInt(ReadBuff(i))) Next End Sub