Sub Process_Globals
Private sp As Serial
Private astream As AsyncStreams
End Sub
Sub AppStart (Form1 As Form, Args() As String)
sp.Initialize("sp")
Log(sp.ListPorts)
sp.Open("COM11") '*** COM PORT ***
sp.SetParams(115200, 8, 1, 0) '*** BAUD RATE ***
astream.Initialize(sp.GetInputStream, sp.GetOutputStream, "astream")
End Sub
Sub AStream_NewData (Buffer() As Byte)
Dim LogHeader As String = DateTime.Now & " " & Buffer.Length & " :"
Dim LogBytes As String = ""
For I = 0 To Buffer.Length - 1
LogBytes = LogBytes & " " & Buffer(I))
Next
Log(LogHeader & LogBytes)
Dim LogString As String = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
Log(LogHeader & " [" LogString & "]")
End Sub