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:
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
Robin W.
Ein Computer kann (fast) alles.... Man muss es ihm nur beibringen