Sub Process_Globals
Public Serial1 As Serial
Private usocket As WiFiUDP
Private wifi As ESP8266WiFi
Private fs As ESP8266FileSystem
Private ip(4) As Byte
Private port As UInt = 3661
Private astream As AsyncStreams
Private bc As ByteConverter
Private lcd As LiquidCrystal
Private PIN_A0, PIN_CLK, PIN_DATA As Pin
Private btnValues() As UInt = Array As UInt(50, 180, 330, 520, 820, 1025) ' RIGHT, UP, DOWN, LEFT, SELECT, NO BUTTON
Private btn As UInt
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
astream.Initialize(Serial1.Stream, "astream_NewData", "astream_Error")
lcd.Initialize(16, 255, 2, Array As Byte (12, 13, 14, 15))
lcd.Begin(16, 2)
PIN_A0.Initialize(PIN_A0.A0, PIN_A0.MODE_INPUT)
PIN_CLK.Initialize(4,PIN_CLK.MODE_INPUT_PULLUP)
PIN_CLK.AddListener("PIN_CLK_StateChanged") 'in lieu of attachInterrupt(1, clkStatusFall, FALLING)
PIN_DATA.Initialize(5,PIN_DATA.MODE_INPUT_PULLUP)
If(fs.initialize) Then
Log("File system successfully initialized")
Else
Log("Could not initialize filesystem")
End If
SelectDataPath
End Sub