In dem Forum habe ich einen Beitrag gefunden unter:
RoboterNetz.de Foren-Übersicht » Microcontroller und Computer Foren » AVR Basic-Programmierung mit Bascom
Atmega8 ADC unter Bascom

Er hatte das gleiche Problem wie ich er hatte angeblich die Hardware getausch, habe ich auch alles gemacht leider immer mit dem gleichen Ergebnis. Und das unabhängig mit drei Verschieden Experimentierboards.

Aufgrund das ich immer noch keine Lösung meines Problems gefunden habe habe ich das Programm von Roland Walter noch weiter verändert.Jetzt funktionieren alle Kanäle aber auch hier sind die Kanal irgendwie vertauscht.

Code:
$regfile = "m8def.dat"
$crystal = 3686400
$baud = 9600


Dim Channel As Byte
Dim Adwert As Byte
Dim Faktor As Single
Dim Ergebnis As Single

Do

For Channel = 0 To 3

Admux = &B01100000 Or Channel
Adcsra = &B11100010
Adwert = Adch

If Channel = 0 Then
   Faktor = 12 / 255
   Ergebnis = Faktor * Adwert
   Print "U:" ; Fusing(ergebnis , "##.#") ; "V,";
End If

If Channel = 1 Then
   Faktor = 100 / 255
   Ergebnis = Faktor * Adwert
   Print "T:" ; Fusing(ergebnis , "###.#") ; "C,";
End If

If Channel = 2 Then
   Faktor = 20 / 255
   Ergebnis = Faktor * Adwert
   Print "I1:" ; Fusing(ergebnis , "##.#") ; "A,";
End If

If Channel = 3 Then
   Faktor = 3 / 255
   Ergebnis = Faktor * Adwert
   Print "I2:" ; Fusing(ergebnis , "#.#") ; "A,";
End If

Waitms 1000
Next Channel


Loop