#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 300
#End Region
Sub Process_Globals
Public Serial1 As Serial
Dim lcd As LiquidCrystal
Dim mif As MFRC522
Dim bc As ByteConverter
End Sub
Private Sub AppStart
Serial1.Initialize(9600)
lcd.Initialize(3,255,4, Array As Byte(5, 6, 7,8))
lcd.Begin(2,16)
lcd.Clear
lcd.Write("Start...")
Delay(2000)
lcd.Clear
lcd.Write("HELLO")
mif.Initialize(10,9,"mif_CardPresent") 'micro 8 pins for miso, mosi , ss ,sck: 12,11,10,13'
mif.LogVersion
End Sub
Sub mif_CardPresent (UID() As Byte, CardType As Byte)
If mif.IsMifare Then
Dim id As String
id=bc.HexFromBytes(UID)
lcd.clear
lcd.SetCursor(0,0)
lcd.Write(id)
End If
End Sub