Hallo,

habe Probleme, wenn ich in Bascom folgendes Programm ausführe:

Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 38400



Config Adc = Single , Prescaler = Auto

Dim In_adc As Word

Do

Start Adc
   In_adc = Getadc(0)
Stop Adc

Print "In_ASC 0: " ; In_adc

Wait 1

Start Adc
   In_adc = Getadc(1)
Stop Adc

Print "In_ASC 1: " ; In_adc

Wait 1

Start Adc
   In_adc = Getadc(2)
Stop Adc

Print "In_ASC 2: " ; In_adc

Wait 1

Start Adc
   In_adc = Getadc(3)
Stop Adc

Print "In_ASC 3: " ; In_adc

Wait 1

Start Adc
   In_adc = Getadc(4)
Stop Adc

Print "In_ASC 4: " ; In_adc

Wait 1

Start Adc
   In_adc = Getadc(5)
Stop Adc

Print "In_ASC 5: " ; In_adc

Wait 1

Start Adc
   In_adc = Getadc(6)
Stop Adc

Print "In_ASC 6: " ; In_adc

Wait 1

Start Adc
   In_adc = Getadc(7)
Stop Adc

Print "In_ASC 7: " ; In_adc

Wait 1

Loop
Angeschlossen sind die Pins richtig. Habe hier zum testen feste Widerstände verbaut. Annähernd richtig gemessen (im Rahmen meiner Bautoleranz halt ) wird nur auf Pin 1 (ADC0), je höher die Pinnummer, desto mehr quatsch kommt da raus. Das Programm habe ich dabei fast 1:1 aus der Bascom Hilfe raus.

Findet jemand den Fehler oder hat Tipps?

Grüßle

Michl