[CODICE lang="b4x" titolo="esempio"]
mpa.Load(File.DirAssets,"cash.wav")
mpa.Play
If BTConnected = True Then
imgscansione.Bitmap=LoadBitmap(File.DirAssets,"operaiook.jpg")
Dim msg As String
Log("Astreams_NewData " & connected)
msg = BytesToString(buffer,0,buffer.Length,"UTF8")
txtlog.Text = txtlog.text & msg
txtlog.SelectionStart = txtlog.Text.length
txtdisplay.Text=txtlog.Text
'ToastMessageShow(msg, False)
Log("messaggio: " & msg)
'Log(txtlog.Text)
Dim k As Int
k = txtdisplay.Text.IndexOf("#")'
If k >= 0 Then
txtoperatore.Text = txtdisplay.Text.SubString2(k + 1, txtdisplay.Text.Length)
tts1.Speak(txtoperatore.Text,True)
txtutensile.Visible=True
imgadd.Visible=True
lsw1.Visible=True
imgentrata.Visible=True
imguscita.Visible=True
sputensili.Visible=True
End If
Dim i As Int
If txtdisplay.Text.Contains("#") Then
Else
i = txtdisplay.Text.IndexOf("letti:")
If i >= 0 Then
txtutensile.Text = txtdisplay.Text.SubString2(i + 6, txtdisplay.Text.Length)'
End If
End If
End If
[/CODICE]