Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
USB.Initialize("USB")
Log(USB.ListPorts) '(ArrayList) [COM5]
Log(USB.ListPorts.Get(0)) 'COM5
USB.Open(USB.ListPorts.Get(0))
astream.Initializeprefix(USB.GetInputStream, True, USB.GetOutputStream, "astream")
'USB.SetParams(9600, 8, 1, 0)
End Sub
Sub MainForm_Closed
USB.Close
End Sub
Sub astream_NewData (Buffer() As Byte)
Dim s As String = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
Log(s)
End Sub