Sub Process_Globals
Public Serial1 As Serial
Private name(17) As Byte
Private bc As ByteConverter
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
Dim years = 2016, months = 10, DayOfMonth = 19 As UInt
SetFileName(years, months, DayOfMonth)
Dim filename As String = bc.StringFromBytes(name)
End Sub
Private Sub SetFileName(years As UInt, months As UInt, days As UInt)
Private raf As RandomAccessFile
raf.Initialize(name, True)
raf.WriteBytes("dbase/", 0, 6, raf.CurrentPosition)
raf.WriteBytes(NumberFormat(years,4,0), 0, 4, raf.CurrentPosition)
raf.WriteBytes(NumberFormat(months,2,0), 0, 2, raf.CurrentPosition)
raf.WriteBytes(NumberFormat(days,2,0), 0, 2, raf.CurrentPosition)
raf.WriteBytes(".db", 0, 3, raf.CurrentPosition)
End Sub