Vielen Dank erstaml.

Leider komme ich nicht weiter.

Eigentlich weis ich nicht mal, wo ich den Inputbefehl reinschreiben soll.

Habe es so probiert:
Code:
$regfile = "M32DEF.DAT"                                     ' Mega32
$crystal = 14745600                                         ' StAVeR-40 XTAL
$baud = 9600



Dim S As Integer
Dim Mybaud As Long

Mybaud = 9600

Config Porta = Output

Do

Input S
Serin S , 0 , D , 0 , Mybaud , 0 , 8 , 1

If S = 1 Then

Wait 2
Porta.0 = 1
Porta.1 = 1
Porta.2 = 1
Porta.3 = 1
Porta.4 = 1
Porta.5 = 1
Porta.6 = 1
Porta.7 = 1
Wait 2
Porta.0 = 0
Porta.1 = 0
Porta.2 = 0
Porta.3 = 0
Porta.4 = 0
Porta.5 = 0
Porta.6 = 0
Porta.7 = 0
Wait 2

End If

Loop
Tut sich wieder nichts. Stimmt den überhaupt meine Pinbelegung bei SERIN? Welcher Pin ist denn der SIN bzw. RxD? Habe Port D und Pin 0 eingetragen, glaube aber nicht dass das stimmt!

Kannst du mir vielleicht ein paar Zeilen dazu Schreiben? Bin echt am verzweifeln obwohl die Lösung sicherlich einfach ist, wenn man sie kennt.

Danke im Voraus