ADC Problem am Mega8

[Blue72]

Hi Leute,

ich habe da ein Problem mit dem ADC.
Es liegt am ADC7 eine Spannung an von 3V (z.B.), zeitgleich mit dem einschalten des µC. Diese Spannung lasse ich mir über LEDs anzeigen.

Das Problem ist, das die anliegende Spannung erst dann erkannt wird wenn eine Änderung dieser Eintritt, vorher nicht.

Ich habe schon viel probiert, z.B. Stop ADC und direkt Start ADC eingefügt, um kurz die Spannung vom ADC zu entfernen.
Auch der Betriebsmodus Single oder Free brachte keine Änderung.
Hier mal das Programm:

$regfile = "m8def.dat"
$framesize = 32
$swstack = 64
$hwstack = 64
$crystal = 1000000

Dim I As Byte , W As Word , B(7) As Word , C(7) As Word , A As Byte

Config Portd = Output                                     
Config Pind.7 = Input                                      
Config Portb.1 = Output                                    
Config Adc = Single , Prescaler = Auto , Reference = Avcc

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Prescale = 8

Compare1a = 1

Config Timer0 = Timer , Prescale = 64
Enable Timer0
Enable Interrupts
On Timer0 Zaehlen

Do

W = Getadc(7)

If W > 0 And W < 50 Then : Led_port = &B10100111 : End If
If W > B(1) And W < C(1) Then : Led_port = &B11111001 : End If
If W > B(2) And W < C(2) Then : Led_port = &B11000000 : End If
If W > B(3) And W < C(3) Then : Led_port = &B10100100 : End If
If W > B(4) And W < C(4) Then : Led_port = &B10110000 : End If
If W > B(5) And W < C(5) Then : Led_port = &B10011001 : End If
If W > B(6) And W < C(6) Then : Led_port = &B10010010 : End If
If W > B(7) And W < C(7) Then : Led_port = &B10000010 : End If

Loop

Irgend jemand ne Idee woran es liegt ? Ich habe im Datenblatt des Mega8 nichts gefunden wo z.B. steht das der ADC erst bei Änderung der anliegenden Spannung was macht.
Wenn ich allerdings anstelle von W=GETADC(7) W=200 angebe funktioniert es sofort. Sobald sich der Wert einmal geändert hat funktioniert alles bestens, bis man den µC wieder abschaltet oder resettet.

[kalletronic]

Hi, wo steht denn in deinem Programm des "Start ADC" ?

[Blue72]

Hi,

hier:

Config Adc = Single , Prescaler = Auto , Reference = Avcc

danach startet der ADC automatisch. Allerdings habe ich auch trotzdem schon versucht es auch noch einmal hin zu schreiben.
Klappt aber auch nicht mit Start ADC.

[ikarus_177]

Hallo,

vielleicht hilft es, die verwendeten Pins am PortA (oder gleich den gesamten Port) zunächst auf Input zu schalten?
Jetzt ohne es probiert zu haben...

Viele Grüße

[Blue72]

Hi,

der ADC7 und ADC6 hängen nicht am Port A, diese sind zusätzlich vorhanden in der TQFP32 Version.

Gruß
Jens

[ikarus_177]

Kann es eventuell sein, dass du den ADC zu oft in der Hauptschleife abfragst? Versuche mal, eine kleine Pause (~50-150 ms) in der Hauptschleife einzubauen. Auch sollte man vor der eigentlichen Messung immer eine Dummy-Messung durchführen, deren Resultat wird dann einfach ignoriert.

Viele Grüße

[Blue72]

Hmm also es funktioniert ja alles super sobald man EINMAL die Spannung am ADC verändert. Danach läuft er wie er soll. Ich hab auch schon eine Pause von 200ms eingebaut, resultat wie vorher.

[Sauerbruch]

Vielleicht liegt das Problem ja ganz wo anders? Poste doch mal den ganzen Code...

[Blue72]

Im Prinzip ist das schon der ganze Code, vor dem DO kommt nur noch eine READEEPROM Routine um die Werte von B(x) und C(x) einzulesen.
Selbst danach hatte ich schon eine Pause von 2s eingelegt, brachte aber auch nichts.

[MeckPommER]

welche werte werden denn für b(x) und c(x) eingelesen? vielleicht erreicht der adc nie diese werte und zeigt deshalb nichts an?