Relaiskarte K8056 von Velleman seriell ansteuern

[HaGü]

Wer lesen kann ist klar im Vorteil.
Wenn man alles liest, ist der Vorteil noch größer.
Unten stets.

[Arno Beekmann]

Moin Moin
ich benutze die c-control Staion um die Relaiskarte anzusteuern.
in VB lässt sich die Befehlsfolge wie im Beispiel aufbauen.
Ich habe übrigends nicht die erfahrung gemacht das der Befehlssatz 2x gesendet werden muss.
put 13
put 1 Kartenadresse
put 66 B befehl
put 1h Byte für Relais hier 00000001
Checksumm=13+1+66+1h
Checksumm=(Checksumm XOR FFh) +1
put checksumm

näheres auch im c-control Forum. :roll:


MfG Arno

[HaGü]

Hallo Arno,

es geht auch mit einmal senden.
Laut Beschreibung von Velleman "Zur Bedienung mit einem Kabel muss die Sequenz von Befehlen mindestens zweimal gesendet werden. Zur drahtlosen Bedienung empfehlen wir, dass die Sequenz von Befehlen fünfmal hintereinander gesendet wird. Für eine höhere Zuverlässigkeit, sorgen Sie am besten für eine Pause von minimal 300ms zwischen 2 verschiedenen Befehlen"

Grüsse von der Mosel
HaGü

[robinWie]

Für die, die immernoch nicht verstanden haben, wie man die Checksummen ausrechnet (mich eingeschlossen) poste ich hier mal ne Liste, die die richtigen Summen enthält. Ich habe einfach bei den Befehlen eine FOR-Schleife von 0 bis 255 durchlaufen lassen und geguck wo das Relai schaltet.

Hier ist die Tabelle

Code:

Relai | Set | Clear | Toogle
============================
1     | 110 | 126   | 109
2     | 109 | 125   | 108
3     | 108 | 124   | 107
4     | 107 | 123   | 106
5     | 106 | 122   | 105
6     | 105 | 121   | 104
7     | 104 | 120   | 103
8     | 103 | 119   | 102
Alle  | 102 | 118   |  -

Emergency Break / Notaus: 124

PS: Set = Relai einschalten; Clear = Relai ausschalten; Toogle = Relai umschalten

[Cyberbob]

Die Checksumme kann aber auch berechnet werden, was einfacher ist, wenn man mehr als eine Karte betreibt.

[EDatabaseError]

Mal ne dumme Frage - vergisst man aber mal:

-Stimmt Baudrate, Parität, DBs, SBs
-Ist das Kabel richtig belegt
-Stimmen die Handshakes (wenn vorhanden)

Probier mal alles mit dem Hyperterminal aus.

Ich könnte bei gelegenheit auch noch ne RS232 Compo beisteuern. Oder die Primitive nehen die in der OS Sparte liegt EDEComPort imho...

Tobi

[Reinhard Kern]

Zitat:

Zitat von HaGü

Hallo Leute,

bin rel. neu hier und bis jetzt nur im LeseStatus.
Da ich aber für mein Problem keine Lösung finden kann, schreibe ich heute mal.
Also, ich möchte die Relaikarte K8056 von Velleman seriell ansteuern.
Um einen Befehl auszuführen, muss die richtige Befehlsfolge übertragen werden.
Eigentlich sieht solch eine Befehlsfolge so aus:
1. CHR$(13)
2. Kartenadresse(1...255)
3. Befehl
4. Adresse (1...255) oder Relaisnummmer('1'..'9' ASCII)
5. 'checksum' Summe prüfen(2-Komplement der Summe der 4 vorigen Bytes +1)

Befehle:
'E': Nothalt
'D': Display-Adresse
'S': Relais einstellen
'C': Relais löschen
'T': Toggle-Relais
'A': Adresse einer Karte wechseln
'F': Alle Karten auf Adresse 1
'B': Byte senden. Ermöglicht es, den Status aler Relais mit einem Befehl zu steuern.

Ich versuche dauernd folgenden Befehl in verschiedenen Versionen und Fariationen zu senden:
CHR($13)+CHR($31)+CHR($84)+CHR($31)+CHR($98)
1. CHR($13)
2. CHR($31) - Kartenadresse 1
3. CHR($84) - Befehl('T' Toggle)
4. CHR($31) - Relaisnummer 1
5. CHR($98) - Checksumme

Was ist falsch und/oder wie funktionierts
Brauche dringend Hilfe

Mit Grüssen von der Mosel
HaGü

Hallo,

wenn die Karten von 1..255 nummeriert werden, dann wird die Karte 1 GANZ BESTIMMT NICHT mit $31 angesprochen, sondern mit $01. Ausserdem ist CR 13 oder $0D (oder soll es DC3 sein, das wäre $13), und "T" ist 84 oder $54 ...

Ohne Anspruch auf Vollständigkeit.

Gruss Reinhard

[TimonWorld]

Sorry, ich habe da noch eine Frage.

Ich versuche es nun mit dem ActiveX-Steuerelement MSComm.

Dazu versuchte ich den VB-Code in Delphi zu übersetzen.

Ich weiß nicht, ob es klappt, weil mein Problem ist, dass er Lizenz-Fehler zur MSComm anzeigt.

Was nun?

Bitte um Hilfe.

[EDatabaseError]

Zitat:

Zitat von TimonWorld

Sorry, ich habe da noch eine Frage.

Ich versuche es nun mit dem ActiveX-Steuerelement MSComm.

Dazu versuchte ich den VB-Code in Delphi zu übersetzen.

Ich weiß nicht, ob es klappt, weil mein Problem ist, dass er Lizenz-Fehler zur MSComm anzeigt.

Was nun?

Bitte um Hilfe.

Muss es dieser ActiveX Microschrott sein ;-)
Wenn du willst sende ich dir ne 1A ComPort Komponente die IMHO mit jedem Delphi läuft...

Wenn du da was umschreibst wäre das unnötige Arbeit ;-)

Und was ist wenn auf dem Benutzerrechner das ActiveX element fehlt ;-) wäre doch auch doof

also ich würd mir das nochmal gut überlegen ;-)

[TimonWorld]

Zitat:

Zitat von EDatabaseError

Muss es dieser ActiveX Microschrott sein ;-)
Wenn du willst sende ich dir ne 1A ComPort Komponente die IMHO mit jedem Delphi läuft...

oh das wäre genial! dann sende mir bitte per pn!

Zitat:

Zitat von EDatabaseError

Und was ist wenn auf dem Benutzerrechner das ActiveX element fehlt ;-) wäre doch auch doof

ist ja auch nur für meinen eigenen rechner vorläufig