Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public Serial1 As Serial
Private Stream2 As AsyncStreams
Private SerialNative2 As Stream
Private timer1 As Timer
Private x As Int = 1
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
' Display
RunNative("SerialNative2",Null)
Stream2.Initialize(SerialNative2, "Stream2_newdata", Null)
timer1.Initialize("T1_action",100)
timer1.Enabled = True
End Sub
Sub t1_action
Log("Timer:",NumberFormat(x,0,0))
x = x+1
Stream2.Write("page 2").Write(Array As Byte(0xFF, 0xFF, 0xFF))
Stream2.Write("stunde.txt=").Write(QUOTE).Write(NumberFormat(x,0,2)).Write(QUOTE).Write(Array As Byte(0xFF, 0xFF, 0xFF))
Stream2.Write("t11.txt=").Write(QUOTE).Write(NumberFormat(x,0,2)).Write(QUOTE).Write(Array As Byte(0xFF, 0xFF, 0xFF))
Stream2.Write("j0.val=").Write(NumberFormat(x,0,0)).Write(Array As Byte(0xFF, 0xFF, 0xFF))
End Sub
Sub stream2_NewData (Buffer() As Byte)
End Sub