Sub Process_Globals
Public Serial1 As Serial
Private lcd As LiquidCrystal
Private bigNum As LCD1602BigNumbers
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
' Init the LCD: RS,RW,EN,Data(4)
lcd.Initialize(12,255,11, Array As Byte(5,4,3,2))
lcd.Begin(16,2)
lcd.DisplayOn = True
' Init the bignum with lcd display
bigNum.Initialize(lcd)
' Write 1234
bigNum.WriteBigNumber(1, 0)
bigNum.WriteBigNumber(2, 4)
bigNum.WriteBigNumber(3, 8)
bigNum.WriteBigNumber(4, 12)
Delay(2000)
lcd.Clear
' Write 12:34 (time format)
bigNum.WriteBigNumber(1, 0)
bigNum.WriteBigNumber(2, 4)
lcd.SetCursor(7,0)
lcd.Write(".")
lcd.SetCursor(7,1)
lcd.Write(".")
bigNum.WriteBigNumber(3, 8)
bigNum.WriteBigNumber(4, 12)
End Sub