Imports System.IO.Ports
 
Module Module1
 
 
    Public Delegate Sub SerialDataReceivedEventHandler(ByVal sender As Object, _
      ByVal e As SerialDataReceivedEventArgs)
    Public Event DataReceived As SerialDataReceivedEventHandler
 
    Dim port As New SerialPort("COM1", 9600, Parity.None, 8, StopBits.One)
    Dim zweitversuch As Boolean = False
 
 
    Sub Main()
 
        ' Handler anlegen und registrieren
        Dim handler As System.IO.Ports.SerialDataReceivedEventHandler = _
          AddressOf port_DataReceived
        AddHandler port.DataReceived, handler
 
        ' Endlos-Schleife starten, Event wird ggf. aktiv und verarbeitet die ID 
        ' weiter
        port.Open()
        While (True)
            Threading.Thread.Sleep(100)
            Console.WriteLine("Main!")
        End While
        port.Close()
 
    End Sub
 
 
    Sub port_DataReceived(ByVal sender As Object, ByVal e As _
      SerialDataReceivedEventArgs)
 
        ' die zweite Ausgabe verhindern
        If zweitversuch Then Exit Sub
 
        ' Array von 0 bis 12, also mit 13 Stellen
        Dim ausgabe As Char() = New Char(12) {}
        Dim id As Char() = New Char(9) {}
 
        ' 25ms warten, um (zumindest auf diesem Rechner) die gewünschte 13Byte 
        ' Übertragung zu erreichen!
        ' 13Byte über eine 9600bit/s Leitung brauchen eben seine Zeit!
        Threading.Thread.Sleep(25)
 
        ' Daten am COM-Port lesen
        Console.WriteLine("Getting Data")
        port.Read(ausgabe, 0, 13)
 
        ' (Steuer-)Zeichen Nummer 1,2 und 13 abschneiden (index 0,1 und 12 aus 
        ' dem Array)
        For i As Integer = 2 To ausgabe.Length - 2
            id(i - 2) = ausgabe(i)
        Next
 
        ' Ausgabe der 10-stelligen ID
        Console.WriteLine("Ausgabe: ")
        Console.WriteLine(id)
 
        ' übermittelte ID weiterverarbeiten, also in der DB checken usw. ( 
        ' momentan deaktiviert, erstmal soll der Rest funktionieren, bevor ID 
        ' weiterverarbeitet wird!)
        'id_check(id)
 
        ' InBuffer löschen + Wartezeit, so dass nicht immerzu der Event 
        ' anspringt
        port.DiscardInBuffer()
        Console.WriteLine("BytesToRead: " & port.BytesToRead)
        Threading.Thread.Sleep(5000)
 
        ' zweiter Versuch signalisieren
        If zweitversuch Then
            zweitversuch = False
        Else
            zweitversuch = True
        End If
 
    End Sub
End Module