This example demonstrates a minimal RFID phidget.

Very simple program just displays the current tag number and the number of times that tag has been seen.

'Name:    rfid_Simplest
'Author:  Saul Greenberg, April 2002
'Purpose: Display a tag's id and how many times it is sensed
Dim WithEvents PM As PhidgetManager
Dim WithEvents rfid As PhidgetRFID

Private Sub Form_Load()
    Set PM = New PhidgetManager
    lblTag.Caption = "Attach an RFID Tag Reader"
End Sub

Private Sub PM_OnAttach(ByVal PHIDGET As PHIDGET.IPhidget)
    
    If PHIDGET.DeviceType = "PhidgetRFID" Then
        Set rfid = PHIDGET
        rfid.OutputState(3) = True        'Output #3 Enables RFID reader
        lblTag.Caption = "Tag number: "
    End If
End Sub

Private Sub PM_OnDetach(ByVal PHIDGET As PHIDGET.IPhidget)
    If PHIDGET.DeviceType = "PhidgetRFID" Then
        lblTimes.Caption = ""
        lblTag.Caption = "Attach an RFID Tag Reader"
    End If
End Sub

Private Sub rfid_OnTag(ByVal TagNumber As String)
    Static PreviousTag As String
    Static Count As Long
    If TagNumber = PreviousTag Then Count = Count + 1 Else Count = 1
    lblTag.Caption = "Tag number: " & TagNumber
    lblTimes.Caption = "Times seen: " & Count
    PreviousTag = TagNumber
End Sub