Sub Process_Globals
Private fel As felUsbSerial
Private felAST As felAsyncStreamsText
End Sub
Sub Globals
End Sub
Sub Activity_Create(FirstTime As Boolean)
If FirstTime Then
fel.Initialize("fel", ...)
felAST.Initialize(Me, "felAST")
End If
End Sub
Sub fel_DataAvailable (Buffer() As Byte)
felAST.astreams_NewData(Buffer) '<------push the data to felAST
End Sub
Sub felAST_NewText (Text As String) '<--- will be raised when a new line character is found
Log("Message received: " & Text)
End Sub