durch einen Zufall (2 Programme gemischt) hab ichnun eine Lösung die funktioniert, die ich aber nicht verstehe...
Wer kann mir das erklären? >>A = Udr<< Wenn ich diesen Befehl weglasse ist alles immer 0 - Warum?

Code:
'zum empfangen von der seriellen schnittstelle

'-------------------------------------------------------------------------------
'Konfiguration µC:
$regfile = "m8def.dat"                                      'AT-Mega8
$crystal = 3686400                                          'Quarz: 3.6864 MHz
$baud = 9600

Dim A As Integer
Dim B As Integer
Dim C As Integer

Config Pind.0 = Input
Config Pind.3 = Output


Print "ok"

Do


A = Udr  ' WENN ICH DIESE ZEILE WEG LASSE GEHT NICHTS MEHR!?                                                 

Input B Noecho
Print "out " ; B

'zum testen
C = B + 1
Print "+1: " ; C

Loop