Hallo PicNick,

also ich habe den Empfang auch umgeschrieben.

geht leider auch nicht....

Der Empfänger "findet" das Starbyte scheinbar nicht und sortiert die Dabenbytes völlig falsch ein.

Er zeigt mir nur Müll an.

und nun? Ich weis nicht mehr weiter.

Er kommt mit den 10 Bytes vom "Header" scheinbar nicht klar.

Ohne diese geht es wunderbar.

Hast Du noch eine Idee?

Hier der bisherige Code:

Sender:
Code:
Dim Ta As Byte
Dim Tv As Long
Dim Eu As Word
Dim B(7) As Byte At Ta Overlay

Dim Stb As Byte
Dim C As Byte
Dim D As Byte
Dim Header(4) As Byte

Header(1) = 255
Header(2) = 0
Header(3) = 3
Header(4) = 15
C = 0
D = 0
Stb = 233

For D = 1 To 7
 C = C Xor B(d)
Next
Printbin Header(1) , 4 ; Header(1) , 4 ; Stb ; B(1) ; C
Empfänger:
Code:
Dim Ta As Byte
Dim Tv As Long
Dim Eu As Word
Dim B(7) As Byte At Ta Overlay
Dim A As Byte
Dim C As Byte
Dim D As Byte

D=0
C=0

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

Loop

'--- Subs---

Empfang:
A = Inkey()
   If D > 0 Then
      If D < 8 Then B(d) = A
      C = C Xor A
      Incr D
Else
        If A = 233 Then Incr D
End If

Return

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