gut die frage hat sich eh erledigt das ichs nu ganz anders mach trotzdem danke....

nun hab ich ein anderes problem.

ich möchte 7 zeichen auswerten ->so aufgebaut:

"licht:1"

demnach muss ich 7 zeichen empfangen


da ich das rn128 funk board habe.... mache ich das mit
Code:
Do
  Zahl = Zahl + 1
   Z = Inkey()
   If Z <> 0 Then Licht = Licht + Chr(z)
   If Len(licht) = 7 Or Zahl = 20 Then Exit Do
Loop
zahl is sowas wie ein überlauf das die schleife nicht ewig weiterläuft wenn nix kommt...(ja hätte auch ne for to next schleife nehmen können.

dannach folgt das:
Code:
If Len(licht) = 7 Then
   Tempo = Mid(licht , 7 , 1)
   Modus = Val(tempo)
      Select Case Modus

      Case 0                                                'beide Modis aus
      Portb.6 = 0
      Portb.7 = 0

      Case 1                                                '2. Blinkmodus an
      Portb.6 = 1
      Portb.7 = 0

      Case 2                                                'Landelichter an
      Portb.6 = 0
      Portb.7 = 1

      Case 3                                                'beide Modis an
      Portb.6 = 1
      Portb.7 = 1

      End Select
End If
hier meckert er 4 mal...ka warum...



Code:
in der zeile:
tempo=mid(lciht,7,1) 
der fehler :
Error:46 Assignement error [Tempo: 0 MID(LICHT,7,1):200]
dann
Code:
modus=val(tempo)
der fehler :
Error:46 Assignement error [MODUS: 0 VAL(TEMPO):200]
Code:
error:7 IF THEN expectet [158]
der letzte
Code:
error:123 END IF expectet
vor allem die letzten 2 versteh ich nicht....is ja alles da?!stört sich Bascom an dem select case darin???