我打算在我的CS课程中使用RFID阅读器(特别是kkmoon m302 reader/writer)作为登录/注销的选项以及其他一些功能。我已经了解了读者的工作方式:如何结合使用十六进制;如何使用vb访问和读取关联的com端口;我希望如何使用它,但遇到一个相当麻烦的情况-因为它是读写器,所以该设备不会自动扫描卡,这与其他用作键盘的变体不同,因此我无法制作它可以“搜索”一张卡,而无需使用附带不良软件的软件。
简而言之,我在问是否有人会知道如何强制读卡器进行扫描,因为一旦我知道如何进行扫描,便可以按照自己的意愿循环使用它。
作为参考,这是我用来从串行端口中获取任何数据的代码:
Module Module1
Sub Main()
Console.WriteLine(ReceiveSerialData())
Console.ReadLine()
End Sub
Function ReceiveSerialData() As String
' Receive strings from a serial port.
Dim returnStr As String = ""
Dim com1 As IO.Ports.SerialPort = Nothing
Try
com1 = My.Computer.Ports.OpenSerialPort("COM1")
com1.ReadTimeout = 10000
Do
Dim Incoming As String = com1.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
End If
Loop
Catch ex As TimeoutException
returnStr = ("Error: Serial Port read timed out.")
Finally
If com1 IsNot Nothing Then com1.Close()
End Try
Return returnStr
End Function
最终模块