#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 300
#End Region
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
' Public timer1 As Timer
Public stream As AsyncStreams
End Sub
Private Sub AppStart
'timer1.Initialize("timer1_Tick",1000)
Serial1.Initialize(115200)
stream.Initialize(Serial1.Stream,"stream_NewData","stream_Error")
'timer1.Enabled=True
End Sub
Sub timer1_Tick
'stream.Write(Array As Byte(0x41,0x42,0x43,0xA))
End Sub
Sub stream_NewData (Buffer() As Byte)
stream.Write(Buffer)
End Sub
Sub stream_Error
' Log("Errore...")
End Sub