Как я могу пойти о реализации чтения / записи m302 RFID в программу VB? - PullRequest
0 голосов
/ 25 сентября 2018

Я намерен использовать RFID-ридер (в частности, kkmoon m302 reader / writer ) в моей курсовой работе CS, чтобы выступать в качестве опции для входа / выхода и некоторых других функций.У меня есть представление о том, как работает читатель: как использовать гекс в сочетании с ним;как получить доступ и прочитать связанный com-порт с помощью vb;как я хочу его использовать, но я сталкиваюсь с довольно проблемным обстоятельством - поскольку это устройство чтения / записи, устройство не сканирует карты автоматически, в отличие от других вариантов, которые действуют как клавиатура, поэтому у меня нет способа сделатьон «ищет» карту, не используя плохо собранное программное обеспечение, которое идет в комплекте.

Короче, я спрашиваю, может ли кто-нибудь знать, как заставить сканер карт сканировать, как только я знаю, какя могу зациклить его и использовать по своему усмотрению.

Для справки, вот код, который я использовал для извлечения любых данных из последовательного порта в его нынешнем виде:

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

Конечный модуль

...