Hallo Dino Dieter,

super Programm !

ich habe jedoch ein kleines Problem
Wenn ich Dein Programm auf einem µC laufen lasse und mit das Ausgangsignal auf einem Oszi anschaue kommt der Start und 7 einzelne Impulse von ca. 500µs Länge - aber eben alle gleich
Also gesucht und gefunden ...

************************************************** ***********
Sub Send_byte(byval Daten As Byte , Byval Crc_select As Byte)

If Crc_select = 1 Then
Temp1 = Daten
Gosub Calc_crc
End If
Temp = Make_manchester(daten)

Print "manch_daten " ; Make_manchester(daten)
Print "Temp " ; Temp

Call Send_code(temp)

End Sub

************************************************** ***********

folgendes:

das erste Print gibt eine 5 stellige Zahl aus
das zweite Print gibt immer nur 0 aus
wie kann das sein ? funkt da mein Bascom nicht richtig ?

mfg Tobias