Sub Process_Globals
Public Serial1 As Serial
Private RFID As SoftwareSerial
Private RFIDbuffer(14) As Byte
Private RFIDena As Pin
Private Ba As Byte
End Sub
Private Sub AppStart
RFIDena.Initialize(4,RFIDena.MODE_INPUT_PULLUP)
RFIDena.AddListener ("RFIDchanged")
RFID.Initialize(9600,2,3)
Serial1.Initialize(115200)
Log("AppStart")
End Sub
private Sub RFIDchanged(State As Boolean)
If State = False Then
CallSubPlus ("ReadRFID",50,0)
End If
End Sub
private Sub ReadRFID(tag As Byte)
Ba = RFID.Stream.BytesAvailable
Log(Ba)
'If Ba >=1 Then
RFID.Stream.ReadBytes(RFIDbuffer,0,14)
Log(RFIDbuffer)
'End If
End Sub