Sub Process_Globals
Public Serial1 As Serial
Private ir As IrReceive
Private lcd As LiquidCrystal
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
lcd.Initialize(8, 255, 9, Array As Byte (4, 5, 6, 7))
Log("AppStart")
ir.Initialize(3, "ir_Decoded") 'receiver is connected to pin 6, GND and 5v (or 3.3v on ESP8266)
ir.Enable
End Sub
Private Sub ir_Decoded (Result As IrResult)
Log("result: ", Result.DecodeType, ", ", Result.Value)
lcd.Clear
lcd.SetCursor (0,0)
lcd.Write(Result.DecodeType)
lcd.SetCursor(0,1)
lcd.Write(Result.Value)
End Sub