#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 400
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Label1 As Label
Private Label3 As Label
Private TextArea1 As TextArea
Private myserial As Serial
Private astream As AsyncStreams
Private MyPort As String
Private BaudRate As Int=9600
Private btn_Connect As Button
Private btn_Quit As Button
Private rcvStr As String
Private cb_UARTList As ComboBox
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
myserial.Initialize("")
For Each ComPort In myserial.ListPorts
cb_UARTList.Items.Add(ComPort)
Next
End Sub
Sub btn_Quit_MouseClicked (EventData As MouseEvent)
ExitApplication
End Sub
Sub btn_Connect_MouseClicked (EventData As MouseEvent)
Log("Com Port: " & MyPort)
If btn_Connect.Text="Connect" Then
btn_Connect.Text="Disconnect"
myserial.Open(MyPort)
myserial.SetParams(BaudRate,8,1,0)
astream.Initialize(myserial.GetInputStream,myserial.GetOutputStream,"astream")
Else
btn_Connect.Text="Connect"
astream.Close
myserial.Close
End If
End Sub
' Called when bt stream gets new data
Sub astream_NewData (Buffer() As Byte)
rcvStr = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
Log("Received: " & rcvStr)
End Sub
Private Sub cb_UARTList_ValueChanged (Value As Object)
MyPort=Value
End Sub
