Probleme beim umschrieben in Bascom Basic (CRC8)

[PicNick]

Warum willst du den Bascom-Crc8 nicht verwenden ?

Function Berechnecrc(s As String) As Byte 
Dim L As Byte 
          L = LEN(s)
          Berechnecrc = CRC8( s, L) 
END FUNCTION