'シリアルポートを開く記述
Try                          　 　　　                 '例外処理のはじまり
            If SerialPort1.IsOpen = True Then          'ポートはオープン済み
                MsgBox("エラー", MsgBoxStyle.OkOnly, MessageBoxIcon.Error)
                Exit Sub
            End If
            SerialPort1.Open()                         'ポートオープン       
        Catch ex As Exception                          '例外処理           
            MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

SerialPort1.RtsEnable = True                    'RTSをON


'------------------------------------------------------------------------------------
'シリアルポートからデータを受信するための記述 
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        ReceivedData = "0"
        Try
            ReceivedData = SerialPort1.ReadLine     'データを受信

        Catch ex As Exception
            ReceivedData = ex.Message               '例外処理
        End Try
        'Invokeメソッドにより実行されるメソッドへのデリゲートの宣言を行い、受信データを表示
        Dim adre As New DataDelegate(AddressOf PrintData)

        Me.Invoke(adre, ReceivedData)
        
End Sub
    
Delegate Sub DataDelegate(ByVal sdata As String)
    
Private Sub PrintData(ByVal sdata As String)       
        AD1 = CInt(sdata)                       'AD1というInt型変数に受信データを格納
    End Sub