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
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
Routines di invio dati:
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