OK ich habe hier noch 2 Programme die Hat mein Vater geschrieben da soll erst die Eine Led angehen dann soll die ausgehen und eine andere nach ner bestimten zeit angehen und danach noch ne andere. Nur die Letze geht nicht an.

---------------------------Hier das erste Programm(Sender)-------------------


$regfile = "m16def.dat"
$crystal = 1024000
$baud = 9600

Ddrd = &B01100000

Dim I As Integer
Dim Zeit As Integer

Do


Select Case I
Case 0
Portd.5 = 1
Portd.6 = 0
Zeit = 1000
Case 1
Portd.5 = 0
Portd.6 = 1
Zeit = 1000
Case Else
Zeit = 0
I = -1
End Select

I = I + 1


Waitms Zeit

Loop

End

-----------------------Hier das Empfangsprogramm-------------------------

$regfile = "m8535.dat"
$crystal = 1024000
$baud = 9600

Ddrd = &B01100000

Dim I As Integer
Dim Zeit As Integer
Dim E As String * 4

Do


Input E

Select Case E
Case "0001"
Portd.5 = 1
Portd.6 = 0
Case "0010"
Portd.5 = 0
Portd.6 = 1
End Select

Loop

End