habe hier ein quelltext von nem proggie wie ich es mir gedacht habe aber es läuft nicht die karte wird geöffnet aber ich kann nicht schalten!! könnt ja mal reingucken!::

OPEN "com1:19200,n,8,1,bin,cs,ds" FOR OUTPUT AS #1

Komando% = 1
Adresse% = 1
Daten% = 0
GOSUB Senden

SLEEP 1

KEY(11) ON
KEY(12) ON
KEY(13) ON
KEY(14) ON

ON KEY(11) GOSUB Relais1
ON KEY(12) GOSUB Relais2
ON KEY(13) GOSUB Relais3
ON KEY(14) GOSUB Relais4

SLEEP 1

Daten% = 0
GOSUB Senden

CLOSE #1

END

Relais1:
Adresse% = 1
Komando% = 3
Daten% = 1
GOSUB Senden

Relais2:
Adresse% = 1
Komando% = 3
Daten% = 2
GOSUB Senden

Relais3:
Adresse% = 1
Komando% = 3
Daten% = 4
GOSUB Senden

Relais4:
Adresse% = 1
Komando% = 3
Daten% = 8
GOSUB Senden


Senden:

Pruefsumme% = Komando% XOR Adresse% XOR Daten%

send$ = CHR$(Komando%) + CHR$(Adresse%) + CHR$(Daten%) + CHR$(Pruefsumme%)

PRINT "sende:", Kommando%, Adresse%, Daten%, Pruefsumme%
PRINT #1, send$;

Return