Atmega32 ADC Problem in bascom!

[Wolfgang (Gast)]

Hallo !
Ich versuche ein Spannung mittels ATMega 32 zu messen.
Bekomme aber auf dem Display immer nur 1023 angezeigt,
auch wenn PA0 auf Masse liegt.
Woran kann das liegen ...???
Hier teile aus meinem Code:


$regfile = "m32def.dat"                                     ' 
Controllerauswahl
$crystal = 8000000 
'Quarzfrequenz
$hwstack = 256
$swstack = 256
$framesize = 256
'$baud = 9600
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = 
Portb.3 , Db6 = Portb.4 , Db7 = Portd.5
Config Lcd = 20 * 4
Config Lcdbus = 4
Initlcd
Cls

Config Adc = Single , Prescaler = Auto

'Now give power to the chip

Start Adc

'With STOP ADC, you can remove the power from the chip
'Stop Adc

Dim Wert As Word
Dim Volt As Single

'now read A/D value from channel 0

Locate 1 , 1
Do
  Wert = Getadc(0)
  Text = "Channel 0 = " + Str(wert )
  Lcd Text
  wait 1

Loop

[Niels K. (niels-k)]

Wolfgang schrieb:

> Locate 1 , 1
> Do
>   Wert = Getadc(0)
>   Text = "Channel 0 = " + Str(wert )
>   Lcd Text
>   wait 1
>
> Loop


Muss das fuer eine sinnvolle Anzeige nicht heißen?:

> Do
Locate 1 , 1
>   Wert = Getadc(0)
>   Text = "Channel 0 = " + Str(wert )
>   Lcd Text
>   wait 1
> Loop

GGF: Wert als Integer definieren - aber das wird es wohl eher nicht 
sein.

Andere Fragen: Sind AVCC und AREF beschaltet?
Ist die zu messende Spannungs"quelle" mit GND des Chips verbunden?

[Wolfgang (Gast)]

Hmmm... es klappt ....
mußte einfach den kompletten Code in eine neue Datei kopieren ( 
STRG+A,STRG+C,STRG+V ) und da dann neu kompilieren und schon lief es.
komisch verstehe wer will. Kompletten Code kopiert und nix geändert und 
es läuft trotzdem .....

bis bald Wolfgang