タイトル | : SerialPort1_DataReceivedが発生しません |
記事No | : 10871 |
投稿日 | : 2012/08/04(Sat) 17:34 |
投稿者 | : et |
お世話になります。 シリアルポートの受信について投稿させていただきます。 開発環境:VB2010pro Win7
Form1_LoadでSerialPort1.Open()して、SerialPort1_DataReceivedのイベントを取得しようとしていますが、イベントが発生しません。 パソコン2台で送信側、受信側を作ってMU-2ソフトで送受信の確認はできました。 SerialPort1.Open()の設定で足りないこととか、受信方法の違いを教えて頂けないでしょうか。 宜しくお願いします。
Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load 'シリアルポートをオープンする。 Call SerialOpen() End Sub
Private Sub SerialOpen()
'シリアルポート SerialPort1.PortName = "COM3" 'ボーレート SerialPort1.BaudRate = 19200 'データビットをセットする. (データビット = 8ビット) SerialPort1.DataBits = 8 'パリティビットをセットする. (パリティビット = なし) SerialPort1.Parity = Parity.None 'ストップビットをセットする. (ストップビット = 1ビット) SerialPort1.StopBits = StopBits.One
Try 'シリアルポートをオープンする. SerialPort1.Open() Catch ex As Exception MsgBox(ex.Message) End Try
End Sub 'シリアルポートがデータ受信した時のイベント Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Call DataRead() End Sub ' Private Sub DataRead() Dim data As String = "" '受信する data = SerialPort1.ReadLine()
|