Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private cmbPort As ComboBox
Private sp As Serial
Private astream As AsyncStreams
Private btnClose As Button
Private lblStatus As Label
Private btnRefresh As Button
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("123") 'Load the layout file.
MainForm.Show
MainForm.Title = "Test"
MainForm.BackColor = fx.Colors.White
sp.Initialize("")
cmbPort.Items.AddAll(sp.ListPorts)
End Sub
Sub cmbPort_SelectedIndexChanged(Index As Int, Value As Object)
'btnOpen.Enabled = Index > -1 'enable the button if there is a selected item
sp.Open(cmbPort.Value)
astream.Initialize(sp.GetInputStream, sp.GetOutputStream, "astream")
'astream.InitializePrefix(sp.GetInputStream, True, sp.GetOutputStream, "astream")
btnRefresh.Enabled = False
cmbPort.Enabled = False
lblStatus.Text = "Status: Open"
End Sub
Sub btnClose_Action
astream.Close
sp.Close
btnRefresh.Enabled = True
cmbPort.Enabled = True
lblStatus.Text = "Status: Close"
End Sub
Sub btnRefresh_Action
sp.Initialize("")
cmbPort.Items.Clear
cmbPort.Items.AddAll(sp.ListPorts)
End Sub