ＶＢ２００５のシリアル通信で (ID:138986)

名前

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

本文

ありがとうございます。
Public Class RS232CForm

Dim ADRS As Integer '後で書き付け足した場所
    Dim DT As Integer '後で書き付け足した場所

Private Sub RS232CForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

With ComSerialPort
            .PortName = "COM4"                  '  通信ポートはCOM4
            .BaudRate = 4800                    '  通信速度は4800bps
            .DataBits = 8                     '  データ長は８ビット
            .Parity = IO.Ports.Parity.None     '  パリティチェック偶数
            .StopBits = IO.Ports.StopBits.One   '  ストップビットは１
            '  ハードウェアによるハンドシェイク
            .Handshake = IO.Ports.Handshake.None
            .RtsEnable = True                  '  RTSラインを有効にする

End With

End Sub

Private Sub ConnectButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectButton.Click

Try
            '  通信ポートが開いているかどうかの判定
            If ComSerialPort.IsOpen = False Then
                '  通信ポートを開く場合の処理
                ComSerialPort.Open()            '  通信ポートを開く
                ConnectButton.Text = "通信停止"
            Else
                '   通信ポートを切断する場合の処理
                ComSerialPort.Close()           '  通信ポートを切断
                ConnectButton.Text = "通信開始"
            End If
        Catch ex As Exception
            '  通信ポートの接続・切断時のエラー処理
            MessageBox.Show(ex.Message, "接続エラー", _
                MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

End Sub

Private Sub SendButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendButton.Click

'  通信ポートが開いているかどうかの判定
        If ComSerialPort.IsOpen Then
            Try
                '  データの送信

ADRS = &H80 Or &H7 '後で書き付け足した場所

ComSerialPort.WriteLine(ADRS)
            Catch ex As Exception
                '  送信エラー時の処理
                MessageBox.Show(ex.Message, "送信エラー", _
                    MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        Else
            MessageBox.Show("通信が開始されていません", "送信エラー", _
                MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

End Sub

'  デリゲート型の宣言
    Delegate Sub RecieveDataDelegate(ByVal RecieveData As String)

'  デリゲート型のプロシージャを宣言
    Private Sub SetRecieveData(ByVal DataString As String)

RecieveDataTextBox.Text &= DataString '受信したデータをtextboxに書き込む

End Sub

'  SerialPortコントロールのDataReceivedイベントハンドラ
    Private Sub ComSerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles ComSerialPort.DataReceived

Dim RecieveData As String
        '  デリゲート型の変数の宣言と生成
        Dim recieve As New RecieveDataDelegate(AddressOf SetRecieveData)

Try
            '  データの受信
            Dim D1 As Integer
            DT = &H10 Or D1
            D1 = 0

RecieveData = ComSerialPort.ReadLine
        Catch ex As Exception
            '  受信エラー時の処理
            RecieveData = ex.Message
        End Try

'デリゲート型のプロシージャを呼び出す
        Invoke(recieve, RecieveData)

End Sub

End Class

USB-RSAQ5をつかってブルーボックスとシリアル通信をしようとしています。
まだできません。どなたかご教授お願いします。

←解決時は質問者本人がここをチェックしてください。

戻る