So Leute, kämpfe mit dem gleiche Problem wie hier beschrieben, kann egal was ich mache nur adc 0-7 lesen.

Gibt es dafür schon ne Lösung?



Code:
$prog , 255 , &B11011001 ,                                  'Quarz an / Teiler aus / Jtag aus

$regfile = "m2560def.dat"
$hwstack = 82                                               '80
$framesize = 68                                             ' 64
$swstack = 68                                               '44

$crystal = 16000000                                         'Quarzfrequenz

Config Pind.5 = Output
Led Alias Portd.5


$baud = 57600

Dim Kanal As Byte
Dim X As Word



'*** RS232 Protokoll ***

Const Tz = ","

' *** ADC ***
Config Adc = Single , Prescaler = Auto , Reference = Internal_1.1
Start Adc

'*** Hauptschleife ***

Do


 Kanal = 0
 Print "*" ; Tz;
 Led = 0
 Adcsrb.mux5 = 0
 Waitms 100
 For Kanal = 0 To 7
 X = Getadc(kanal)
 Print X ; Tz;
 Next Kanal

 Adcsrb.mux5 = 1
 Kanal = 0
 Waitms 100
 For Kanal = 0 To 7
 X = Getadc(kanal)
 Print X ; Tz;
 Next Kanal
 Led = 1
 Print "#" ; Tz



Loop
End