VB6 MSComm - Protokol erkennen

[Philipp (Gast)]

Hi,

ich muss im Rahmen eines Schulprojektes Daten, die eine AVR Platine 
sendet, mit VB6 empfangen und auswerten. Wie ich die MSComm 
Schnittstelle konfiguriere und wie ich die Daten im Event auslese weiß 
ich bereits.

Die Nachricht wird mit einer Baud von 250k über einen FT232 gesendet und 
in ASCII übertragen.
Eine Beispiel Nachricht:
"$0,3,4.5352,3.25252,7.456456,3.555532@
Die Anzahl der Parameter zwischen den Kommas ist immer gleich.

Mein Problem ist, dass ich nicht weiß, wie ich in VB6 so ein Frame 
erkennen kann. Wenn ein receive Event ausgelöst wird, sind ja idr. 
mehrere Zeichen im Buffer.

Kann mir da vielleicht jemand einen Ansatz nennen? Oder einen Beispiel 
geben, den man noch irgendwo rumfliegen hat?


Lg
Philipp

[Peter II (Gast)]

Philipp schrieb:
> Kann mir da vielleicht jemand einen Ansatz nennen?

Das einfachste ist:

lese zeichen

if Zeichen = '$'  { start = 1; puffer leer machen }
if Zeichen = '@'  { auswerten(puffer); start = 0; }
if start = 1 puffer.add( zeichen )


Das ganze musst du nur noch in VB umsetzen.

[Philipp (Gast)]

Hi,

viel dank. Ich habe jetzt auch endlich rausgefunden, wie ich mit Strings 
arbeite. Hier ist mein Code, ich denke das ganze sollte so passen.
Lg
Philipp

Private Function check_buffer(str_data As String)
    'Datenpuffer und Kontrollvariable ob ein Startzeichen erkannt wurde
    'Frame: $[Int],[Byte],[Byte],[Byte],[Float],[Float],[Float],[Float],[Float]@
    'Frame Nummer, Anzahl Zellen, Mosfet aktiv, Fault Pin, Sp1,Sp2,Sp3,Sp4,Strom
    Static str_buffer As String
    Static b_start As Boolean
    
    Dim l_tmp As Long
    
    'Prüfe ob ein Startzeichen erkannt wurde
    l_tmp = InStr(str_data, "$")
    If l_tmp > 0 Then
        'Alles ab dem Startzeichen in den Buffer schreiben
        str_buffer = Right$(str_data, Len(str_data) - l_tmp + 1)
        'Starterzeichenerkennung
        b_start = True
        'Prüfe ob auch ein Endzeichen verfügbar ist
        l_tmp = InStr(str_buffer, "@")
        If l_tmp > 0 Then
            'Alles hinter dem Endzeichen abschneiden
            str_buffer = Left$(str_buffer, l_tmp)
            'Buffer weiterverarbeiten
            parse_buffer (str_buffer)
            'Startzeichenerkennung auf False und Funktion verlassen
            b_start = False
            Exit Function
        End If
        'Funktion verlassen weil die Daten schon verarbeitet wurden
        Exit Function
    End If
    
    'Wenn kein Startzeichen erkannt wurde aber Startzeichen schon vorhanden ist
    If b_start = True Then
        str_buffer = str_buffer + str_data
        'Prüfen ob Endzeichen vorhanden ist
        l_tmp = InStr(str_buffer, "@")
        If l_tmp > 0 Then
            'Alles hinter dem Endzeichen abschneiden
            str_buffer = Left$(str_buffer, l_tmp)
            'Buffer weiterverarbeiten
            parse_buffer (str_buffer)
            'Startzeichenerkennung auf False und Funktion verlassen
            b_start = False
            Exit Function
        End If
    End If
    
    MsgBox str_buffer
    
End Function