-
-
Neuer Benutzer
Öfters hier
hmm habe mal ein programm geschrieben ( wobei die relais über die pfeiltasten auf der tastertur gesteuert werden) anhand der infos die ich hier und woanders bekommen habe aber irgentwie funktioniert es nur halbwegs die com schnittstelle wird geöffnet die karte wird angesprochen und antwortet korrect aber irgentwie funktionirt die steuerung nicht!
anbei der quelltext vielleicht weiss jemand weiter!!
Danke nochmal vorab und für alle bisherigen antworten
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
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- Anhänge hochladen: Nein
- Beiträge bearbeiten: Nein
-
Foren-Regeln
Lesezeichen