Fragen zu ADC am AVR und Potentiometer!

Hallo Alle zusammen.

Heute möchte ich gerne einen Schritt weiter gehen, bzw. damit anfangen und eine Spannung mittels des ADC am AVR auswerten und auf ein PWM Signal umzusetzen!

Wissen wird für folgendes Gesucht:

Ein Potentiometer, als Spannungsteiler am ADC des AVR`s anschließen und mit einer Internen Referenzspannung von 5V vergleichen!

Es werfen sich jetzt Grundlegende Fragen auf!

• Wie stelle ich die INTERNE(?) Referenzspannung auf 5 V ein? Fusebits?
• Funktioniert das vergleichen einer Spannung und Umsetzung auf Soft PWM überhaupt? Geht dann nur Hardware PWM?
• Muss ich Zwingend bei ADC0 Anfangen oder geht auch ADC4? (Atmega32!!)
• Wie erstelle ich den Bascom /Basic Code für den ADC und wie binde ich das in die PWM ein?
• Zum Testen kann ich dort das Pollin Board nehmen oder muss ein andere Testplatine aufgebaut werden?
• Muss die PWM Frequenz für Lüfter zB. anders sein als für LEDs?

Ich denke das sind erstmal genug Fragen!

Als Referenzquelle dient mir das Tuturial:
http://halvar.at/elektronik/kl…_avr_kurs/adc_mit_getadc/

Eigentlich suche ich speziell das einbinden in die PWM und wie man das ADC Initialisiert und einstellt!!!
Bitte Nachsicht, denn ich bin Anfänger^^

Angedacht ist an den Atmega32 an den PINs folgendes:
PA0 = Potentiometer als Spannungsteiler. (Poti 1 an VCC 2 an AVR 3 an GND)
PC6/7 2x LEDs mit Vorwiederstand

Code Grundgerüst:

$regfile = "m32def.dat"
$crystal = 8000000


Config Porta.0 = Input
Poti Alias Porta.0


Config Portc.7 = Output
Pwmpin Alias Portc.7
Config Portc.6 = Output
Pwmpin2 Alias Portc.6




'Timer als PWM definieren
Config Timer0 = Timer , Prescale = 1
On Timer0 Pwm
Enable Timer0


'An die Interrupts
Enable Interrupts


'Variablen
Dim Zaehler As Byte
Dim Potipwm As Byte , Potipwm2 As Byte
Dim Pause As Byte
Pause = 50




Do


For Potipwm = 0 To 255
Potipwm2 = 255 - Potipwm2
Waitms Pause
Next Potipwm


Loop
End




'Soft PWM Programm
Pwm:


Incr Zaehler


If Potipwm > Zaehler Then Pwmpin = 1 Else Pwmpin = 0
If Potipwm2 > Zaehler Then Pwmpin2 = 1 Else Pwmpin2 = 0
Return

Für jede Hilfe wäre ich dankbar!!
Grüße euer Prying

Zitat von Snowfly

-kommt wohl darauf an was dein Lüfter will, steht wahrscheinlich im Datenblatt

Ist nur ein Lüfter mit Masse und Plus, dachte ich steuer den mithilfe einef Mosfet dann an auf Masse!

Zitat von Snowfly

-habe zwar kein Pollinboard aber warum soll das nicht gehen?

Wegen der genialen PIN Belegung, da die wichtigsten PINS zB. die OCRA und Co. unmöglich beschaltet sind!
Was sucht ein Taster zB. an nem Timerausgang?!

Aber danke für die Antworten Snowfly, werde mich mal durchschauen!

Gruß

Prying

OWNED!

Die Jumper...

OK, ich habe jetzt die BASCOM Hilfe genutzt und aus dem TUT, die Befehle genommen.

Nachvollziehen was die machen kann ich, nur ob ich das jetzt in der Hauptschleife richtig umgesetzt habe, ist so ne Sache!!!!

Eine LED soll wenn das Messergebnis gleich oder höher als "7" ist, einmal Runter und danach wider Hoch Faden.

Code:

$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40


'Poti
Config Porta.0 = Input
Poti Alias Porta.0


'PWM Ausgang
Config Portc.7 = Output
Pwmpin Alias Portc.7






'Timer als PWM definieren
Config Timer0 = Timer , Prescale = 1
On Timer0 Pwm
Enable Timer0


'An die Interrupts
Enable Interrupts


'Variablen
Dim Zaehler As Byte
Dim Potipwm As Byte
Dim Pause As Byte
Pause = 50


'Intern AVCC gegen AREF geschaltet und 5V genutzt
Const Adc_multi = 0.0048828125                          	' = 5.0 / 1024.0
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim Messergebnis As Word
Dim Volt As Single
Messergebnis = Getadc(0)
Volt = Messergebnis * Adc_multi




Do


'Soll eig.: Wenn das Messergebnis auf "7" steht, soll Potipwm Pin die LED runterfahren 50ms warten und wieder rauf fahren!
If Messergebnis > 7 Then
Incr Potipwm
Waitms Pause
Decr Potipwm
End If


Loop
End




'Soft PWM Programm
Pwm:


Incr Zaehler


If Potipwm > Zaehler Then Pwmpin = 1 Else Pwmpin = 0


Return

Ich habe Hardwaremäßig noch nichts aufgebaut, deswegen während Ihr hier in den nächsten Minuten lesen werdet, werde ich inzwischen das Pollin Board umbauen, dank den JUMPERN ist das ja möglich!!

Gruß

Prying

Habe es aufgebaut, und mal den Code vereinfacht!

Denn so wirklich ar ich von meiner Hauptschleife auch nicht überzeugt!

Jetzt habe ich mal PWM raus geholt und möchte nur, das wenn ein Ergebnis anliegt, die LED am entsprechenden PIN aufleuchtet!

Variablen habe ich net großartig geändert, deswegen vom Begriff "PWM" nicht verwirren lassen.

Hier mal der Code, aber es geht natürlich nicht!

$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40


'Poti
Config Porta.0 = Input
Poti Alias Porta.0


'PWM Ausgang
Config Portd.5 = Output
Pwmpin Alias Portd.5




'Variablen


Dim Potipwm As Byte




'Intern AVCC gegen AREF geschaltet und 5V genutzt
CONFIG ADC = SINGLE, PRESCALER = AUTO, REFERENCE = AVCC
START ADC
Dim Messergebnis As Word
Messergebnis = Getadc(14)






Do


'Soll eig.: Wenn das Messergebnis auf "7 m  " steht, Pwmpin auf 1 setzen
If Messergebnis > 7 Then
Pwmpin = 1
End If


Loop
End

Snowfly, ich kann dein Autsch doch nicht so wirklich nachvollziehen!
Aber das war bestimmt auf die Rechenaufgabe bezogen!
Habe die jetzt mal raus genommen und lasse das den AVR mal selber rechnen.

Jemand einen wink mit dem Zaunpfahl für mich?

Gruß

Prying

Hey dgoersch, habe meinen Fehler DA dann gemerkt, ich hänge ja an (0) nicht an (7)!

Nein der Atmega32 hat 8x also von ADC0 - ADC7.
Habe an ADC0 den 50K Poti.

Zitat

Die Messauflösung des ADC ist 10 Bit. Das bedeutet, dass maximal 1024
unterschiedliche Spannungen gemessen werden können. Bei einer Referenzspannung
von 5 Volt ist jeder Messschritt 0,0048 Volt groß. Kleinere
Spannungsunterschiede können nicht gemessen werden. Die Genauigkeit schwankt
zwischen +-2 Messschritten.
Bei 5 Volt Referenzspannung ist die Genauigkeit also +-0,0097 Volt.
Wenn man das grob schätzt, dann kann man sagen, dass der ADC bei 5 Volt
Referenzspannung eine angelegte Spannung auf zwei Kommastellen genau misst.

Alles anzeigen

Also im Tut, da wird das obige gesagt, deswegen bin ich auch von 10 Bit ausgegangen.....

Da ich gerade mehrere Tuts auf habe, muss ich mich mal für eins entscheiden, bzw die Bascomhilfe sagt mir folgendes auf der Seite

Zitat

'--------------------------------------------------------------------------------

'name : adc.bas

'copyright : (c) 1995-2005, MCS Electronics

'purpose : demonstration of GETADC() function for 8535 or M163 micro

'micro : Mega163

'suited for demo : yes

'commercial addon needed : no

'use in simulator : possible

' Getadc() will also work for other AVR chips that have an ADC converter

'--------------------------------------------------------------------------------

$regfile="m163def.dat"' we use the M163

$crystal= 4000000

$hwstack= 32 ' default use 32 for the hardware stack

$swstack= 10 'default use 10 for the SW stack

$framesize= 40 'default use 40 for the frame space

'configure single mode and auto prescaler setting

'The single mode must be used with the GETADC() function

'The prescaler divides the internal clock by 2,4,8,16,32,64 or 128

'Because the ADC needs a clock from 50-200 KHz

'The AUTO feature, will select the highest clockrate possible

ConfigAdc=Single, Prescaler = Auto

'Now give power to the chip

StartAdc ' NOT required since it will start automatic

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

'Stop Adc

Dim W AsWord, Channel AsByte

Channel = 0

'now read A/D value from channel 0

Do

W =Getadc(channel)

Print"Channel "; Channel ;" value "; W

Incr Channel

If Channel > 7 Then Channel = 0

Loop

End

'The new M163 has options for the reference voltage

'For this chip you can use the additional param :

'Config Adc = Single , Prescaler = Auto, Reference = Internal

'The reference param may be :

'OFF : AREF, internal reference turned off

'AVCC : AVCC, with external capacitor at AREF pin

'INTERNAL : Internal 2.56 voltage reference with external capacitor ar AREF pin

'Using the additional param on chip that do not have the internal reference will have no effect.

Alles anzeigen

Und in meinem Code davor, passierte nichts egal in welcher richtung!

Ich muss mal mein Poti durchmessen!

EDIT:

Also, an PA0 liegt je nach Stellung von 0 bis 4,99V an!
Also das funktioniert.

Mom

Was immer du gemacht hast, es geht!!

Wie geht diese Magie? was hast du anders gemacht?

Verläuft das bei einer PWM dann auch so?

EDIT:

dgoersch hat es ja schon angedeutet, du Snowfly hast es gemacht!!!

Messergebnis = Getadc(0)
In die Hauptschleife nicht davor!!!

Ja stimmt, das steht ja sogar noch in der Bascom Hilfe, zwar auf schwereren Englisch, aber es steht da!....

Nunja.

Ich habe jetzt mein PWM erfolgreich eingebeunden.

Wenn der Wert 700 erreicht wird, schaltet LED 1 zu LED 2.

Lustig ist nur wenn ich dem Timer einen Prescaler von 1 verpasse, sind die LEDs schwach und wenn ich dem eine 8tel Teilung gebe leuchten die schon ordentlich!

Der Code:

$regfile = "m32def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40


'Poti
Config Porta.0 = Input
Poti Alias Porta.0


'PWM Ausgang
Config Portd.5 = Output
Pwmpin Alias Portd.5
Config Portd.6 = Output
Pwmpin2 Alias Portd.6


'Intern AVCC gegen AREF geschaltet und 5V genutzt
CONFIG ADC = SINGLE, PRESCALER = AUTO, REFERENCE = AVCC
START ADC
Dim Messergebnis As Word




'Timer als PWM definieren
Config Timer0 = Timer , Prescale = 8
On Timer0 Pwm
Enable Timer0


'An die Interrupts
Enable Interrupts


'Variablen
Dim Zaehler As Byte
Dim Potipwm As Byte


Do
Messergebnis = Getadc(0)


If Messergebnis < 700 Then
Pwmpin = 1
Pwmpin2 = 0
else
Pwmpin = 0
pwmpin2 =1
End If


Loop
End


'Soft PWM Programm
Pwm:
Incr Zaehler


If Potipwm > Zaehler Then Pwmpin = 1 Else Pwmpin = 0
If Potipwm > Zaehler Then Pwmpin2 = 1 Else Pwmpin2 = 0


Return

ABER.

Wie sich alle denken können, möchte ich je nachdem, welche Poti Stellung ist, die LED Dimmen!^^

Also 0 = Aus und 255 = voll an!

UND dazu, habe ich noch nicht wirklich was verwendbares in der Hilfe finden können!

Mit dem jetzt verwendetet IF Befehl geht es auf jedenfalls nicht! Logisch^^

Danke schon mal für die Schnelle Hilfe euch beiden, bin schon ein gutes Stück weiter!!

Prying

Danke Paule!!!

Ich werde noch schauen müssen, ob mir das noch weiter helfen wird!

Snowfly

Du meinst nen Counter statt einen Timer zusätzlich einbinden?

Weil das ist gerade für mich, als wenn ein Chirurg mir gerade etwas von Schneidewinkel des Skalpell in der Menschlichen Haut mit Verhältnis zur Luft feuchte sagt!

Oder muss ich den Timer jetzt abschaffen und den durch den Counter ersetzen, aber mit der gleichen Aufgabe das der Den verweisten PIN dann "Toggelt?
???

EDIT:

'Diese Konstante gibt an, nach wievielen Zählereignissen der Counter überlaufen soll.
'   Presetvalue = gewünschter Teiler / 2
'Bei 1 würde die Frequenz halbiert werden. Bei 2 würde die Frequenz geviertelt
'werten. Und bei 50 wäre am Ausgang immer ein Hundertstel der Eingangsfrequenz.
'   1/2 = 1
'   1/4 = 2
'   1/6 = 3
'   1/100 = 50
'   1/512 = 256
Const Presetvalue = 1


'Eingang
Config Pind.4 = Input       '=T0
Pind.4 = 1       'Pullup-Widerstand aktivieren
'kurz warten, um dem Entprellkondensator des Tasters genug Zeit zum Laden zu geben
Waitms 1


'Ausgang
Config Portc.0 = Output


'Timer0/Counter0 einstellen und Überlauf-Interrupt aktivieren
Config Timer0 = Counter , Edge = Falling
On Timer0 On_timer0


Load Timer0 , Presetvalue


Enable Timer0
Enable Interrupts




Do
   !nop
Loop


END




'Wenn dieser Interrupt-Handler aufgerufen wird, dann wird zuerst der
'Wert des Timer0 so weit hoch gesetzt, dass der Timer0/Counter0
'erst wieder nach nach <Presetvalue> Zählereignissen ausgelöst wird.
On_timer0:
   'Mit dem Befehl LOAD wird der Wert des Timer0 gesetzt.
   Load Timer0 , Presetvalue
   'Ausgangspin toggeln
   Toggle Portc.0
Return




Ok, dieser Code zählt den definierten Pin und Toggelt dabei PORTC.0


Aber wenn ich meinen Timer0, der ja gerade PWM erzeugt, als Counter ersetze, was dann?


Muss ich für den Counter Timer0 benutzen und der PWM Timer1 geben?


Und wie bzw. was und wo lasse ich den Counter zählen?

Quelle:
http://halvar.at/elektronik/kl…_kurs/timer0_als_counter/

Led_r = R

Der sagt der LED, bei mir PWMpin, das der gleichzusetzen ist wie R, bei mir Messergebnis!

Ok, aber wie macht der das???
Liegt die Ganze Antwort in dem = ?!

Ich habe das dann so in den Testcode eingefügt, aber meine LED Flackert ganz schwach, bei 8tel Teilung des Timer, bei 1 ist sie fast garnicht zu sehen und es zeichnet sich ab, das durch drehen des Potis sich auch die Helligkeit verändert!

EDIT:

Ich habe die Einstellungen nun so vorgenommen:

$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 8
$swstack = 8
$framesize = 8


'Poti
Config Porta.0 = Input
Poti Alias Porta.0


'PWM Ausgang
Config Portd.5 = Output
Pwmpin Alias Portd.5






'Timer als PWM definieren
Config Timer0 = Timer , Prescale = 1024
On Timer0 Pwm
Enable Timer0






'An die Interrupts
Enable Interrupts


'Variablen
Dim Zaehler As Byte
Dim Potipwm As Byte




'Intern AVCC gegen AREF geschaltet und 5V genutzt
Config Adc = Single , Prescaler = Auto , Reference = Avcc
START ADC
Dim Messergebnis As Word
Messergebnis = Getadc(0)






Do




Messergebnis = Getadc(0)




Pwmpin = Messergebnis










Loop
End




'Soft PWM Programm
Pwm:


Incr Zaehler


If Potipwm > Zaehler Then Pwmpin = 1 Else Pwmpin = 0






Return

So wie sie jetzt sind, flackert die LED am wenigsten!!

Ich vermute, würde ich eine HW PWM aufbauen, sähe das anders aus?!