Imports System.IO.Ports
Imports System.Timers
 
'/ Klasse RFID
Public Class RFID
 
    '/ globale Variablen
    Private WithEvents _Port As SerialPort
    Private zeitrumm As Boolean = False
 
    '/ Konstruktor
    Public Sub New(ByVal comport As String)
 
        '/ COM-Port oeffnen, falls Aufruf Sinn macht!
        If comport = "COM1" Or comport = "COM2" Then
            _Port = New SerialPort(comport, 9600, Parity.None, 8, StopBits.One)
        End If
 
    End Sub
 
    '/ Methode Start
    Public Sub Start()
 
        '/ 5s-Timer einrichten
        Dim fsTimer As New Timer()
        fsTimer.Interval = 5000
        fsTimer.Enabled = True
        AddHandler fsTimer.Elapsed, AddressOf zeitrummwahr
 
        '/ COM-Port oeffnen
        _Port.Open()
 
    End Sub
 
    '/ Methode RFID_Received
    Protected Sub RFID_Received(ByVal sender As Object, ByVal e As _
      SerialDataReceivedEventArgs) Handles _Port.DataReceived
 
        ' irgendetwas tun, sobald der der Event eintritt, dass Daten am COM1 
        ' anstehen!
        If zeitrumm Then
            Console.WriteLine("In RFID_Received() und Daten werden bearbeitet")
            zeitrumm = False
        End If
 
        ''/ Garbage Collector ausführen usw. --> nützt alles nix!
        '_Port.DiscardInBuffer()
        'e = Nothing
        'sender = Nothing
        'GC.SuppressFinalize(Me)
        'GC.Collect()
 
    End Sub
 
    '/ Methode zeitrummwahr
    Private Sub zeitrummwahr(ByVal source As Object, ByVal e As _
      ElapsedEventArgs)
        Console.WriteLine("=========== Zeitrumm = True ==============")
        zeitrumm = True
    End Sub
 
End Class