#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 300
#End Region
Sub Process_Globals
Public Serial1 As Serial
Private astream As AsyncStreams
Private GPSsoftserial As SoftwareSerial
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("AppStart")
astream.Initialize(Serial1.Stream, "Astream_NewData", "Astream_Error")
GPSsoftserial.Initialize(4800, 10, 11)
astream.Initialize(GPSsoftserial.Stream, "astream_newdataGPS", Null)
End Sub
Sub Astream_NewData (Buffer() As Byte)
' Log("Received: ", Buffer)
End Sub
Sub Astream_NewDataGPS (Buffer() As Byte)
Log("Received: ", Buffer)
End Sub
Sub AStream_Error
Log("error")
End Sub