In Process_Globals
Dim Stream1 As AsyncStreamsText 'data from/ to Arduino via USB
Sub AppStart (Args() As String)
sp.initialize("AStream")
sp.Open("/dev/ttyUSB0")
sp.SetParams(115200,8,1,0)
Stream1.Initialize(Me,"Stream1",sp.GetInputStream,sp.GetOutputStream)
RedirectOutput("/home/pi/MyApps/Domo", "logs.txt")
mcode=8
Stream1.Write("8|3|"&CRLF)
StartMessageLoop
End Sub
Sub Stream1_NewText (Text As String) 'receive information from the Arduino node via USB
Dim requester As Int
Log(Text.Length)
Log(Text)