Italian Seriale - Ricezione lettura dati ain procedura definita.

marco.canta

Active Member
Licensed User
Longtime User
Buongiorno, ho bisogno di un vostro aiuto.

Ho la necessita di realizzare una procedura che quando lanciata mi riceva / legga i dari dalla porta seriale.
Ho fatto delle prove con AStream_NewData e leggo tranquillamente i dati quando arrivano , ma a me serve di leggerli o attendere che arrivino in un punto preciso del programma.

L'idea sarebbe questa

B4X:
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

come ricevere/leggere i dati solo in quel punto del programma ?

Grazie MARCO.
 
Top