none
如何在eVB讀取RFID ID之語法? 謝謝 RRS feed

  • 問題

  • 版主、前輩們 您好:

    我想在PDA連結RFID,用eVB來撰寫的,如何收集到ID?
    開啟這個RFID讀取器後,
    Comm1.CommPort = 5
    Comm1.Settings = "9600,n,8,1"
    Comm1.PortOpen = True

    如何用COMM寫一個接收這組ID呢?謝謝!

    RFID READER:PCR125 (125khz)
    http://www.best-kassensystem.de/artikelbilder/pmpcr125.pdf

     

    在書面上Communication protocol有著下面的說明,我不是很懂....

    Operation: put the card into the RF area of PCR125

    PCR125 to PC : STX + Care ID + CR + LF

     

     

    2006年6月9日 上午 07:58

解答

  • 弄出來了,與大家分享,如果有和我一樣硬軟體的朋友,謝謝!

    Private Sub Comm1_OnComm()
      Dim d, i As Integer, hwnd As Long
       
      On Error Resume Next
      
      If Comm1.InBufferCount > 0 Then
         d = Comm1.Input
           
         For i = LBound(d) To UBound(d)
             Select Case d(i)
                    Case &H2
                        strId = ""
                    Case &HD
                        TextID1.Text = strId
                        strId = ""
                    Case Else
                        If d(i) >= &H20 And d(i) <= &H7F Then
                            strId = strId & Chr(d(i))
                        End If
             End Select
        Next i
      End If
       
    End Sub

    2006年6月9日 下午 03:02