Hallo, ich bräuchte mal Hilfe beim ändern einer Routine in Basic4Android.
Wenn B4A keiner kennt, das ist eine IDE zum entwickeln von Android Apps an VB bzw. Basic angelehnt, leider bekomm ich da keine Antwort in diesem Forum.
Also es geht um Serielle Kommunikation und den Teil für den Empfang von Daten.
Problem ist hier das der Empfang wirklich nur Funktioniert wenn auch "13" "10" als Endzeichen ankommt, sonst passiert da nichts.
Meine Gegenstelle sendet als Endzeichen "$" !
Kann man das ändern in der Routine?
Ich denke ein fähiger VB Progger kann fix die 5 Zeilen interpretieren und so ändern das es auf $ reagiert:..........................ich bin noch nicht so fähig
Danke Heiko
Wenn B4A keiner kennt, das ist eine IDE zum entwickeln von Android Apps an VB bzw. Basic angelehnt, leider bekomm ich da keine Antwort in diesem Forum.
Also es geht um Serielle Kommunikation und den Teil für den Empfang von Daten.
VB.NET-Quellcode
- Private Sub astreams_NewData (Buffer() As Byte)
- Dim newDataStart As Int = sb.Length
- sb.Append(BytesToString(Buffer, 0, Buffer.Length, charset))
- Dim s As String = sb.ToString
- Dim start As Int = 0
- For i = newDataStart To s.Length - 1
- Dim c As Char = s.CharAt(i)
- If i = 0 AND c = Chr(10) Then '\n...
- start = 1 'might be a broken end of line character
- Continue
- End If
- If c = Chr(10) Then '\n
- CallSubDelayed2(mTarget, mEventName & "_NewText", s.SubString2(start, i))
- start = i + 1
- Else If c = Chr(13) Then '\r
- CallSubDelayed2(mTarget, mEventName & "_NewText", s.SubString2(start, i))
- If i < s.Length - 1 AND s.CharAt(i + 1) = Chr(10) Then '\r\n
- i = i + 1
- End If
- start = i + 1
- End If
- Next
- If start > 0 Then sb.Remove(0, start)
- End Sub
Problem ist hier das der Empfang wirklich nur Funktioniert wenn auch "13" "10" als Endzeichen ankommt, sonst passiert da nichts.
Meine Gegenstelle sendet als Endzeichen "$" !
Kann man das ändern in der Routine?
Ich denke ein fähiger VB Progger kann fix die 5 Zeilen interpretieren und so ändern das es auf $ reagiert:..........................ich bin noch nicht so fähig
Danke Heiko