Hallo,
ich habe mir die Relaiskarte K8056 von Velleman gekauft und möchte eine eigene Anwendung dafür in Delphi entwickeln. In der Anleistung steht, dass die Befehlsfolge so ausehen muss:

Zitat:

1. CHR$(13)
2. Karntenaddresse(1...255)
3. Befehl
4. Addresse(1 ... 255) oder Relaisnummer ('1'..'9' ASCII)
5. 'checksum' Summe prüfen (2-Komplement der Summer der 4 vorigen Bytes +1);

Hier mal die Wichtigsten Befehle

Zitat:

[...]
'S': Relias einstellen. 'S'-Befehl soll durch Relais # '1' bis '8' gefolgt werden. [...]
'C': Relias löshcen. 'C'-Befehl soll durch Relais # '1' bis '8' gefolt werden. [...]

Das mit der Checksumme verstehe ich nicht. In Visual Basic sieht das so aus:

markieren

Code:

checksum = (255 - ((((13 + address + Asc("S") + Asc("4")) / 256) - Int((13 + address + Asc("S") + Asc("4")) / 256)) * 256)) + 1

Niergendwo ist definiert was checksum eigentlich für ein Typ sein soll, das macht es für mich ja noch schwerer. Ihr könnt euch das Programm hier runterladen, wenn euch das hilft. der Code ist in der Datei "K8056.frm".
Der Com-Port muss so konfiguriert werden:
Baud: 2400
Paritätt: Keine
Databits: 8
Stopbits: 1

Weiss jemand wie man das in Delphi umsetzt?

Danke im Voraus

ja

markieren

Delphi-Quellcode:

var
  checksum: byte; // vieleicht integer

begin
  checksum := (255 - ((((13 + address + ORD("S") + ORD("4")) / 256) - ((13 + address + ORD("S") + ORD("4")) DIV 256)) * 256)) + 1

ich habs zwar nicht im compiler ausprobiert - sollte ab so laufen.

ich habe es ausprobiert aber bekomme immer die Meldung:
[Fehler] Unit2.pas(41): E2010 Inkompatible Typen: 'Byte' und 'Extended'
bzw.
[Fehler] Unit2.pas(41): E2010 Inkompatible Typen: 'Integer' und 'Extended'
Dann habe ich checksum als Extended definiert aber dann bekomme ich den nicht mehr in den String reinkopiert

Ersetz das "/" durch ein div.

Damit dir die Mathematik dahinter etwas deutlicher wird:

markieren

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.

ist dieses "CHR$" eingentlich eine Routine? Ich habe ehrlich gesagt keinen Plan von VB
Ach ja und wenn ich über mein Prog ein Befehl sende, blitzt die Lampe für den Port auf der Karte nicht einmal auf Dabei habe das richtig konfiguriert

schau mal bitte in diesen Thread -> http://www.delphipraxis.net/internal...light=velleman
dann sollten sich Deine Fragen von alleine beantworten.

Grüße
Klaus

Danke für den Link Klaus