Sub Process_Globals
Public Serial1 As Serial
Private wifi As ESP8266WiFi
Private IRRecv As IrReceive
Private d0 As Pin
Private d1pins As D1Pins
End Sub
Private Sub AppStart
Serial1.Initialize(9600)
Log("AppStart")
'example of connecting to a local network
' If wifi.Connect2("SSID", "PASSWORD") Then
' Log("Connected to network")
' Else
' Log("Failed to connect to network")
' End If
d0.Initialize(d1pins.D0, d0.MODE_INPUT)
IRRecv.Initialize(d0.PinNumber, "IRRecv_Decoded")
End Sub
Sub IRRecv_Decoded (Result As IrResult)
Log(Result.SONY)
End Sub