Hmm... es funktioniert so nicht..

Ich sende die Daten binär...

Er findet den Anfang mit den Startbyte nicht mehr.

Ich habe Waitkey() durch Inkey() ersetzt. Dumm ist nur, das er jetzt das Startbyte nicht mehr findet und mir nur noch Datenverhau anzeigt.

Der Sender gibt folgendes raus:

C = 0
D = 0
Stb = 233

For D = 1 To 7
C = C Xor B(d)
Next
Printbin Header(1) , 5 ; Header(1) , 5 ; Stb ; B(1) ; C


Empfänger sieht nun so aus:

Do
If Ischarwaiting() = 1 Then Empfang
If D = 9 Then Auswertung
Loop

'---Subs--------
Empfang:
A = inkey()
If D > 0 Then Empfang2
If A = 233 Then Incr D
Return

Empfang2:
If D < 8 Then B(d) = A
C = C Xor A
Incr D
Return

Auswertung:
If C <> 0 Then
D = 0
C = 0
Return
End If

'Daten werden hier ausgewertet----

D=0
C=0
Retrurn

Wie löse ich nun das Problem? Ich hab echt keine Idee... Bild  

Muss doch irgenwie gehen. Die ersten 10 Bytes ignorieren, Einsprung im Startbyte (das 11. Byte) , Auswertung des darauffolgenden Arrays (7 Datenbytes), Checksum prüfen. Wie kann ich das Starbyte noch anders definieren da die Zahl 233 nochmal vorkommen kann.

Gruß
Markus