Hallo Klaus,
ich habe vergangene Nacht drei Stunden getüftelt und bin zu einem super Ergebnis gekommen ,jetzt läuft es so wie ich mir das ganze vorgestellt habe .Schau es dir selber mal an und berichte mir was du davon hälst ,vieleicht fällt dir ja was auf was überflüssig ist und nur Speicherplatz frisst.

'Zwischensteuerung PC/8-Kanal Relaiskarte seriell -> 4/4 Kanal tast Funksteuerung
'über CCBasic M-Unit 1
' by O.Patzki

' Relais
define relais1 port[1]
define relais2 port[2]
define relais3 port[3]
define relais4 port[4]
define relais5 port[5]
define relais6 port[6]
define relais7 port[7]
define relais8 port[8]
define kontroll1 port[13]
define kontroll2 port[14]
define kontroll3 port[15]
define kontroll4 port[16]

' Eingänge
define key1 port[9]
define key2 port[10]
define key3 port[11]
define key4 port[12]

'Abfrage der Eingänge und Zuordnung Kanal 1-4
#loop
if key1 = ON then gosub kontrollon
if key2 = ON then gosub kontrollon
if key3 = ON then gosub kontrollon
if key4 = ON then gosub kontrollon
if key1 = OFF then gosub kontrolloff
if key2 = OFF then gosub kontrolloff
if key3 = OFF then gosub kontrolloff
if key4 = OFF then gosub kontrolloff
goto loop

'Überprüfung
#kontrollon
if kontroll1 = OFF and key1 = ON then gosub kanal1on
if kontroll2 = OFF and key2 = ON then gosub kanal2on
if kontroll3 = OFF and key3 = ON then gosub kanal3on
if kontroll4 = OFF and key4 = ON then gosub kanal4on
return

#kontrolloff
if kontroll1 = ON and key1 = OFF then gosub kanal1off
if kontroll2 = ON and key2 = OFF then gosub kanal2off
if kontroll3 = ON and key3 = OFF then gosub kanal3off
if kontroll4 = ON and key4 = OFF then gosub kanal4off
return

'Ablauf Kanal 1
#kanal1on
kontroll1 = ON
relais1 = ON
pause 50
relais1 = OFF
return

#kanal1off
kontroll1 = OFF
relais2 = ON
pause 50
relais2 = OFF
return

'Ablauf Kanal 2
#kanal2on
kontroll2 = ON
relais3 = ON
pause 50
relais3 = OFF
return

#kanal2off
kontroll2 = OFF
relais4 = ON
pause 50
relais4 = OFF
return

'Ablauf Kanal 3
#kanal3on
kontroll3 = ON
relais5 = ON
pause 50
relais5 = OFF
return

#kanal3off
kontroll3 = OFF
relais6 = ON
pause 50
relais6 = OFF
return

'Ablauf Kanal 4
#kanal4on
kontroll4 = ON
relais7 = ON
pause 50
relais7 = OFF
return

#kanal4off
kontroll4 = OFF
relais8 = ON
pause 50
relais8 = OFF
return

Gruß
Olli \/