Jo hi erstmal
ja es ist die 8 fach serielle karte von conrad
Mit dem beispielprogramm funst es nicht aber mit einem anderen was ich geschrieben habe habe auch mal nen ansatz zum steuern der karte über die pfeiltasten geschrieben aber es läuft nicht könnt es euch ja mal angucken:

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