Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Sp As Serial
Private astream As AsyncStreams
Dim ValRX As String
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
Sp.Initialize("")
Sp.Open(4)
Sp.SetParams(2400,8,1,0)
astream.Initialize(Sp.GetInputStream,Sp.GetOutputStream, "astream")
Procedura MAIN
End Sub
Sub ProceduraMAIN()
.......
.....
......
ProceduraDati
.....
....
End Sub
Sub Ricezione Dati()
' solo a questo punto ricevo i dati seriali ed attendo di ricevere tanti caratteri quanti previsti.
??? ValRX = BytesToString(Buffer,0,Buffer.Length,"iso-8859-1") ??
End Sub