Damit dir die Mathematik dahinter etwas deutlicher wird:
Delphi-Quellcode:
// Das hier ist die Summe der Ascii-Zeichen des Befehls
sum := 13 + address + Ord('
S') + Ord('
1');
// Wähle die Prüfsumme so, dass alle 5 Zeichen addiert im low byte 0 ergeben
crc := (256 - sum)
mod 256;
Den VB Code hat offensichtlich jemand verfasst, der nicht wusste, dass es dort auch einen Mod-Operator gibt. Ist sogar noch ein Fehler drin: es kann nämlich (theoretisch) 256 herauskommen.