Ich habe es nun noch einige male Versucht aber es klappt einfach nicht mehr.

Habe das Programm von Roland Walter für meine Zwecke leicht umgeschrieben

Wenn ich nur ein Kanal Abfrage zeigt er mir den richtigen Wert an,
sobalt ich das Programm auf zwei Kanäle erweitere Vertausch er mir die Ergebnisse?????

Warum???
Code:
$regfile = "m8def.dat"                                      'ATmega8-Deklarationen
$crystal = 3686400                                          'Quarz: 3,6864 MHz
$baud = 9600                                                'Baudrate zum PC: 9600 Baud

Dim A As Word
Dim B As Byte


Ddrc = &B00000000                                           'PC7...PC0=0: PortC-Pins auf Eingang
Admux = &B01100000
Adcsra = &B11100010

Do

B = 0
Admux = &B01100000
'Adcsra = &B11100010
A = Adch
Print "Kanal " ; B ; "= " ; A ; " - ";

Waitms 1000

B = 1
Admux = &B01100001
'Adcsra = &B11100010
A = Adch
Print "Kanal " ; B ; "= " ; A ; " - ";

Waitms 1000

Loop