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

名前

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

本文 オショウさん、我龍院さん。 その後我龍院さんのページを参考にして作業を行い、それなりの動作をするようになったのでご報告します。 まず、仕様と問題点を整理しておきます。 ・VB2008でSerialPortコンポーネントを使ったシリアル通信の受信部のプログラミング。 ・相手の機器からは「連続する2Bytesのバイナリデータ」がくる。 ・2Bytesのカタマリがさらに連続してくる場合があるので、なるべく高速に処理すべく、 2Bytes受け取った時点でDataReceivedイベントを発生させたい(ReceivedBytesThreshold=2)。 ・最終的には、受信したバイナリデータをメインスレッドに引き継ぎ、内容をチェックし、 データを組み立て、ラベルに表示する、というプログラムを作成したい。 ・当面、DataReceivedが発生するスレッドから2Bytesデータをメインスレッドに引き継ぎ、 ラベル(下記の lblAZ, lblEL)に表示する部分を作成する。 ・とりあえず、エラー処理は行っていない。 以下、作成したプログラムリスト。 Delegate Sub ReceiveDataDelegate(ByVal iData1 As Integer, ByVal iData2 As Integer) Private Sub DataAnalyze(ByVal iData1 As Integer, ByVal iData2 As Integer) lblAZ.Text = Convert.ToString(iData1) lblEL.Text = Convert.ToString(iData2) 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 ReceiveData1 As Integer = 0 Dim ReceiveData2 As Integer = 0 ReceiveData1 = SerialPort1.ReadByte ReceiveData2 = SerialPort1.ReadByte Me.Invoke(dlgData, ReceiveData1, ReceiveData2) End Sub 改善点が多々あると思いますので、ご指摘下さい。よろしくお願いします。 .