Olle_Pinelle
01.03.2008, 14:48
Hallo.
Bin neu hier, also erstmal hallo!
Ich beschäftige mich seit kurzen mit uControllern. Hab die Grundschaltungen mit einem Atmega32 aufgebaut und die ersten Led-Taster Programme mit BASCOM geschrieben. Soweit läuft alles prächtig.
Nun hab ich vor eine Spannung zu messen. Dazu hab ich einen Spannungsteiler ( 2x 470 Ohm) aufgebaut und an die 5V Spannungsquelle mit der ich auch den Controller betreibe angeschlossen. Den ADC0 Pin des Controllers hab ich mit der Mitte der beiden Widerständen verbunden. Da die Spannung ja somit 2,5V beträgt will ich die Versorgungsspannung des Controllers als Referenzspannung benutzen.
Hier ist der Quellcode den ich geschrieben hab. Da ich kein UART und noch kein Display besitze, hab ich mir gedacht eine LED als Anzeige zu verwenden.
$regfile = "m32def.data"
$crystal = 16000000
DDRB = &B00000001
PORTB.0 = 1
Dim W As Word
Config ADC = Single, Prescaler = Auto, Reference = AVCC
Do
W = Getadc(0)
If W>400 Then
PORTB.0 = 0 'LED einschalten
endif
loop
end
Am Controller hab ich an PIN AVCC 5 V angeschlossen, an AREF nichts, da ich ja keine externe Referenzspannung verwenden will.
Ich hoffe die Frage ist nicht zu banal, hab in der Suche halt nichts gefunden...
Vielen Dank schonmal!!
Bin neu hier, also erstmal hallo!
Ich beschäftige mich seit kurzen mit uControllern. Hab die Grundschaltungen mit einem Atmega32 aufgebaut und die ersten Led-Taster Programme mit BASCOM geschrieben. Soweit läuft alles prächtig.
Nun hab ich vor eine Spannung zu messen. Dazu hab ich einen Spannungsteiler ( 2x 470 Ohm) aufgebaut und an die 5V Spannungsquelle mit der ich auch den Controller betreibe angeschlossen. Den ADC0 Pin des Controllers hab ich mit der Mitte der beiden Widerständen verbunden. Da die Spannung ja somit 2,5V beträgt will ich die Versorgungsspannung des Controllers als Referenzspannung benutzen.
Hier ist der Quellcode den ich geschrieben hab. Da ich kein UART und noch kein Display besitze, hab ich mir gedacht eine LED als Anzeige zu verwenden.
$regfile = "m32def.data"
$crystal = 16000000
DDRB = &B00000001
PORTB.0 = 1
Dim W As Word
Config ADC = Single, Prescaler = Auto, Reference = AVCC
Do
W = Getadc(0)
If W>400 Then
PORTB.0 = 0 'LED einschalten
endif
loop
end
Am Controller hab ich an PIN AVCC 5 V angeschlossen, an AREF nichts, da ich ja keine externe Referenzspannung verwenden will.
Ich hoffe die Frage ist nicht zu banal, hab in der Suche halt nichts gefunden...
Vielen Dank schonmal!!