Italian [RISOLTO]Temporizzazione invio dati su bluetooth

[Luciano Veneziano]

Buongiorno.

Invio dei dati ad un device con una porta bluetooth (che per funziona perfettamente
per tutti gli altri tipi di messaggi, inviati e ricevuti) purtroppo non posso inviarli senza
che si sia un minimo di stacco temporale.

Ho creato una ruotine support.wait() che però è assolutamente inefficace.

Esiste un modo per fermare l'esecuzione per xxx millisecondi come si faceva con il C?

Grazie a tutti

Private Sub sendHeader(item As TItemData, prog As Int)
    Dim s As String = item.caption
    
    Do While s.Length < 18
        s = s&" "
    Loop
    
    s = support.Sprintf("A3%d%02d%03d%s",Array As Object(prog,item.index,255,s.ToUpperCase))
    sendString(s)
    support.wait(150)
End Sub

Private Sub sendFreqs(items As String, prog As Int)
    Dim divs() As String = Regex.split("\;",items)
    Dim freqs() As String = Regex.split("\|",divs(3))

    Dim s As String

    Dim p As Int
    Dim d As Int
    Dim f As Long

    p = 0   
    For i = 0 To freqs.Length-2 Step 2
        d = freqs(i+1)
        f = freqs(i)
        f = 10.73741824*f
        
        p = p+1
        s = support.Sprintf("A4%d%02d%07d%03d",Array As Object(prog,p,f,d))
        
        sendString(s)
        support.wait(150)
    Next
    
End Sub

 

[Xfood]

Metti semplicemente sleep(150)
Oppure poi alzi il valore a quello che ti serve

 

[Luciano Veneziano]

Grazie XFood, penso che dovrei comprare un libro... ne esiste uno in italiano?

 

[MarcoRome]

Grazie XFood, penso che dovrei comprare un libro... ne esiste uno in italiano?

In italiano esisteva un testo risalente a molte release fa....
In ogni caso puoi vedere questa sezione "LEARN" che trovi qui in B4X ( guarda i menu nella pagina )

B4A Documentation

www.b4x.com

Se non ti è sufficiente puoi acquistare:

B4A Book Now Covers Version 11.20

I am happy to announce that both the paperback and electronic versions of the B4A tutorial and reference book “B4A Rapid Android App Development using BASIC” by Wyken Seagrave have now been updated to cover version 11.20 of B4A. It includes documentation of all the latest core B4X libraries...

www.b4x.com

 

[Luciano Veneziano]

Ti ringrazio ancora, sei prezioso senza fare il prezioso (sai a chi mi riferisco).

 

[Sagenut]

Con lo Sleep devi solo fare attenzione al fatto che il flusso del programma verrà rimandato al punto di chiamata.
Quindi la tua Sub dovrà diventare qualcosa così per attendere che abbia compiuto tutto, compreso la pausa, prima di procedere

Private Sub sendHeader(item As TItemData, prog As Int) as ResumableSub
    Dim s As String = item.caption
 
    Do While s.Length < 18
        s = s&" "
    Loop
 
    s = support.Sprintf("A3%d%02d%03d%s",Array As Object(prog,item.index,255,s.ToUpperCase))
    sendString(s)
    Sleep(150) 'Pausa
    Return Null 'Questo restituisce qualcosa alla chiamata Wait For per farla terminare e proseguire
End Sub

e dovrai chiamarla con

Wait For (sendHeader(item, prog)) complete (Unused as Object)

 

[Luciano Veneziano]

Con lo Sleep devi solo fare attenzione al fatto che il flusso del programma verrà rimandato al punto di chiamata.
Quindi la tua Sub dovrà diventare qualcosa così per attendere che abbia compiuto tutto, compreso la pausa, prima di procedere

Private Sub sendHeader(item As TItemData, prog As Int) as ResumableSub
    Dim s As String = item.caption
 
    Do While s.Length < 18
        s = s&" "
    Loop
 
    s = support.Sprintf("A3%d%02d%03d%s",Array As Object(prog,item.index,255,s.ToUpperCase))
    sendString(s)
    Sleep(150) 'Pausa
    Return Null 'Questo restituisce qualcosa alla chiamata Wait For per farla terminare e proseguire
End Sub

e dovrai chiamarla con

Wait For (sendHeader(item, prog)) complete (Unused as Object)

Grazie! notavo che il l flusso prosegue dopo l'uscita dalla sub, questo è un problema se si mette un waitdialog, perchè si chiude prima che il flusso dati verso l'apparecchio sia terminato.

 

[Sagenut]

Grazie! notavo che il l flusso prosegue dopo l'uscita dalla sub, questo è un problema se si mette un waitdialog, perchè si chiude prima che il flusso dati verso l'apparecchio sia terminato.

Intendi tipo una animazione che la comunicazione è in corso?
È tutto un gioco di Wait For.
All'inizio sembrano complicati, ma se li capisci e li gestisci bene aiutano tantissimo.

 

[Luciano Veneziano]

Intendi tipo una animazione che la comunicazione è in corso?
È tutto un gioco di Wait For.
All'inizio sembrano complicati, ma se li capisci e li gestisci bene aiutano tantissimo.

No, modificherò il codice oggi, appena torno da lavoro. mi riferisco a quello originale. sul log mi appaiono i comandi che invio e ricevo dalla seriale anche dopo l'uscita dalla sub.

 

[Sagenut]

Quando avrai fatto saremo qui per aiutarti se avrai ancora bisogno.

 

[Luciano Veneziano]

Quando avrai fatto saremo qui per aiutarti se avrai ancora bisogno.

Ti ringrazio.