Pac-Man schrieb:
Serial0charmatch:
Led_4 = 1
Dim Incoming_data As String * 30
Input Incoming_data Noecho 'Daten vom Buffer auslesen,
Print #2 , Incoming_data
Return
Was mir in der Routine auffällt ist das Dim Incoming_data As String * 30. Das sollte global gemacht werden. In Subs geht nur Local X As Y.
Eine Lösung habe ich nicht, aber mir gefällt Ihr Problem.