ComPort empfangen - VisualBasic express

Imports System.IO.Ports

Public Delegate Sub rxDataDelegate()

Public Class Form1

    Dim WithEvents SerialPort As New SerialPort

    Dim rev(80) As Byte

    Dim cnt_index As Byte

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

        If SerialPort.IsOpen Then

            SerialPort.Close()

        End If

        Try

            With SerialPort

                .PortName = "Com4"

                .BaudRate = 9600

                .Parity = Parity.None

                .DataBits = 8

                .StopBits = StopBits.One

            End With

            SerialPort.Open()

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

    REM Private Sub com1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles com1.DataReceived

    REM Dim returnStr As String

    REM returnStr = com1.ReadLine

    REM ReceiveSerialData(returnStr)

    REM End Sub

    Sub SendSerialData(ByVal data As String)

        ' Send strings to a serial port.

        SerialPort.WriteLine(data)

    End Sub

    Private Sub ReceiveSerialData()

        'TextBox1.AppendText(SerialPort.ReadLine)

        rev(cnt_index) = SerialPort.ReadByte

        ListBox1.Items.Add(rev(cnt_index))

        ListBox1.Items.Add(cnt_index)

        cnt_index = cnt_index + 1

    End Sub

    Private Sub serialport_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived, SerialPort1.DataReceived

        TextBox1.Invoke(New rxDataDelegate(AddressOf ReceiveSerialData), New Object() {})

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'SendSerialData("TestString")

        SendSerialData("hhhh")

    End Sub

    Private Sub GetSerialPortNames()

        ' Show all available COM ports.

        For Each sp As String In My.Computer.Ports.SerialPortNames

            ListBox1.Items.Add(sp)

        Next

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        GetSerialPortNames()

    End Sub

    Private Sub SetuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetuToolStripMenuItem.Click

        GetSerialPortNames()

    End Sub

End Class