Einzelnen Beitrag anzeigen

Benutzerbild von robinWie
robinWie

Registriert seit: 26. Okt 2005
Ort: Lippcity
404 Beiträge
 
Delphi 2005 Personal
 
#1

VBasic > Delphi ich verstehe das was nicht

  Alt 13. Jul 2006, 14:59
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
  Mit Zitat antworten Zitat