Sub Process_Globals
Public Serial1 As Serial
Private RFID As SoftwareSerial
Private Astream As AsyncStreams
Private LED As Pin
Dim D1 as D1Pins
End Sub
Private Sub AppStart
RFID.Initialize(9600,D1.D2,D1.D3)
Astream.Initialize(RFID.Stream ,"ReadRFID","RFIDerr")
Serial1.Initialize(115200)
LED.Initialize(13, LED.MODE_OUTPUT)
LED.DigitalWrite(False)
Log("AppStart")
End Sub
private Sub ReadRFID(Buffer() As Byte)
LED.DigitalWrite(True)
Log (Buffer.Length)
Log(Buffer)
End Sub
private Sub RFIDerr()
Log("Error")
End Sub