Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: Modbus CRC

   
    by marabu, 4. Feb 2006
  Lass uns überlegen, warum es bei mir funktioniert und bei dir nicht. Als Denkhilfe habe ich ein Testprogramm angehängt.
  
  marabu
• Forum: Programmieren allgemein

  Re: Modbus CRC

   
    by marabu, 3. Feb 2006
  Da sind schon Unterschiede zwischen CRC und CRC. Hier die tabellen-gestützte Version nach den Vorgaben des Herstellers:
  
  
  const
  CRCTable: array of Word = (
  $0000, $C0C1, $C181, $0140, $C301, $03C0, $0280, $C241,
  $C601, $06C0, $0780, $C741, $0500, $C5C1, $C481, $0440,
  $CC01, $0CC0, $0D80, $CD41, $0F00, $CFC1, $CE81, $0E40,
  $0A00, $CAC1, $CB81, $0B40, $C901, $09C0, $0880,...
• Forum: Programmieren allgemein

  Re: Modbus CRC

   
    by marabu, 3. Feb 2006
  Herzlich willkommen in der Delphi-PRAXiS, Enzo.
  
  Vielleicht funktioniert es hiermit:
  
  
  function CRC16(const s: String; const start, polynom: Word): Word;
  var
  w, i, j: Word;
  b: Byte;
  begin