#AutoFlushLogs: True
#CheckArrayBounds: True
'set the stack buffer size!
#StackBufferSize: 600
Sub Process_Globals
Public Serial1 As Serial
Private clock As Timer
Private ssd As AdafruitSSD1306
Private d1pins As D1Pins
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
clock.Initialize("clock_Tick", 5000)
ssd.InitializeI2C(d1pins.D6, 0x3c)
ssd.ClearDisplay
End Sub
Public Sub TimeIsAvailable
clock.Enabled = True
End Sub
Private Sub Clock_Tick
ssd.ClearDisplay
ssd.GFX.SetCursor(0, 0)
ssd.GFX.ConfigureText(1, ssd.WHITE, False)
ssd.GFX.DrawText("Date: ").DrawText("14/05").DrawText(CRLF).DrawText(CRLF)
ssd.Display
End Sub