Hallo zusammen,
ich scheitere gerade daran, den ADC eines Tiny26 zum Laufen zu bekommen. Über einen Trimmer geht eine einstellbare Spannung an ADC2. Mein erster Code sah so aus:
Code:
$regfile = "attiny26.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.6 , Db5 = Porta.7 , Db6 = Porta.0 , Db7 = Porta.1 , E = Porta.5 , Rs = Porta.4
Initlcd
Cursor Off
Config Adc = Free , Prescaler = Auto , Reference = Avcc
Start Adc
Dim Z As Word
Do
Z = Getadc(2)
Cls
Lcd Z
Waitms 200
Loop
Z blieb leider immer 0. Ich habe mir dann mal die Register ADMUX und ADCSR auf dem LCD anzeigen lassen. ADCSR ist &B10100011, sieht also ganz gut aus. ADMUX ist &B01000010, also AREF als Referenzspannung. Verstehe ich zwar nicht ganz, ich habe diesen Anschluss aber auch an +5V angeschlossen.
Als nächstes habe ich es dann mal so versucht:
Code:
$regfile = "attiny26.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.6 , Db5 = Porta.7 , Db6 = Porta.0 , Db7 = Porta.1 , E = Porta.5 , Rs = Porta.4
Initlcd
Cursor Off
ADMUX = &B00000010
ADCSR = &B11100111
Dim Z As Word
Do
Z = ADCL
Cls
Lcd Z
Waitms 200
Loop
...und wieder nur "0"...
Hat jemand einen Tip für mich, wie ich diesen ADC ans Laufen kriegen kann?? Die Spannung am ADC2-Eingang ist übrigens auch o.k. und lässt sich mit dem Trimmer auf jeden beliebigen Wert einstellen...
Zitieren
. Und zwar sowohl im Single- als auch im Free-Modus. Die ADCSR-Inhalte sind &B10010011 (single) bzw. &B11110011 (free).
Berechtigungen
Lesezeichen