Hallo,
Ich möchte mit Visual Basic 2010 die Nummern von 125khz RFID Karten auslesen. Bei dem hierfür benutzten RFID-Reader (amazon.de/gp/product/B00OZJTBT…oh_aui_detailpage_o00_s00) handelt es sich um ein Serial-to-USB-Gerät d.h. der Reader wird per USB mit dem Rechner verbunden, im Gerätemanager wird er jedoch als serielle Schnittstelle (COM3) angezeigt.
Mein erster Versuch war das Codebeispiel von Microsoft:
Dim returnStr As String = ""
Dim com1 As IO.Ports.SerialPort = Nothing
Try
com1 = My.Computer.Ports.OpenSerialPort("COM3")
com1.ReadTimeout = 10000
Catch ex As TimeoutException
returnStr = "Error: Serial Port read timed out."
Finally
If com1 Is Nothing Then com1.Close()
End Try
Do
Dim Incoming As String = com1.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
End If
Loop
In der Do/Loop-Schleife erhalte ich jedoch bei com1.Readline einen Timeout, das Auslesen des RFID-Readers scheint also nicht zu funktionieren.
Wie lässt sich der Reader also auslesen??
Leider habe ich über Visual Basic noch nie irgendwelche Hardware ausgelesen, habe also keine Ahnung auf diesem Gebiet. Wie man den "Serielle Schnittstelle"-Baustein in der Toolbox benutzt
bzw. zu was dieser gut sein soll, hab ich keine Ahnung.
Auch das hier im Forum verlinkte Codebeispiel (mikrocontroller.net/topic/66465#537034) verstehe ich leider nicht.
Hoffe ihr könnt mir weiterhelfen!
Vielen Dank,
Alex
Ich möchte mit Visual Basic 2010 die Nummern von 125khz RFID Karten auslesen. Bei dem hierfür benutzten RFID-Reader (amazon.de/gp/product/B00OZJTBT…oh_aui_detailpage_o00_s00) handelt es sich um ein Serial-to-USB-Gerät d.h. der Reader wird per USB mit dem Rechner verbunden, im Gerätemanager wird er jedoch als serielle Schnittstelle (COM3) angezeigt.
Mein erster Versuch war das Codebeispiel von Microsoft:
Dim returnStr As String = ""
Dim com1 As IO.Ports.SerialPort = Nothing
Try
com1 = My.Computer.Ports.OpenSerialPort("COM3")
com1.ReadTimeout = 10000
Catch ex As TimeoutException
returnStr = "Error: Serial Port read timed out."
Finally
If com1 Is Nothing Then com1.Close()
End Try
Do
Dim Incoming As String = com1.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
End If
Loop
In der Do/Loop-Schleife erhalte ich jedoch bei com1.Readline einen Timeout, das Auslesen des RFID-Readers scheint also nicht zu funktionieren.
Wie lässt sich der Reader also auslesen??
Leider habe ich über Visual Basic noch nie irgendwelche Hardware ausgelesen, habe also keine Ahnung auf diesem Gebiet. Wie man den "Serielle Schnittstelle"-Baustein in der Toolbox benutzt
bzw. zu was dieser gut sein soll, hab ich keine Ahnung.
Auch das hier im Forum verlinkte Codebeispiel (mikrocontroller.net/topic/66465#537034) verstehe ich leider nicht.
Hoffe ihr könnt mir weiterhelfen!
Vielen Dank,
Alex