Hi Freiheitspirat!!

also ich habe da mal ein bisschen programmiert...

Code:
$baud = 9600
$crystal = 8000000

'Config Serialin = Buffered , Size = 5

Dim A As Byte
Dim B As String * 5
Dim C As String * 20

Dim N As Byte

Begin:

N = 0


Do
   A = Inkey()

   If A = 0 Then
   Else
      C = C + Chr(a)
      A = 0
      N = N + 1
   End If

Loop Until N = 3

Portd.2 = 0
Waitms 250

'If C = "" Then

Do
   Portd.2 = 1
   Waitms 250
   Portd.2 = 0
   Waitms 250
Loop

'End If

Goto Begin
End
Das Einlesen ist mit Schleife wie ihr das so geschrieben habt.
Es hat plötzlich funktioniert, als ich config serialin weggelassen hab(deshalb auch nur als comment)!!! Das ist wohl der Fehler gewesen.
Der 4433 verträgt wohl kein config serialin.

Aber es gibt da noch ein kleines Problem...

Die Schleife mit Inkey() soll 3 Zeichen abholen.
Diese werden mit print "r" ; "e" ; "s" bzw.

Print "r"
Waitms 100
Print "e"
Waitms 100
Print "s"

vom Master aus gesendet.
Wenn Zählvariable N = 3 ist (3 Zeichen sollten im String stehen)
Sollte die Einleseschleife abgebraochen werden.
Wenn ich dem Master sage, er soll nur 1 Zeichen senden("r"), wird die Schleife aber trozdem unterbrochen. und die LED (portd.2) fängt an zu blinken.

Nun. Was läuft hier nicht so ganz richtig?
Wir sind kurz vor dem Ziel!!!

Liebe Grüße und DANKE schon jetzt!

Tobi