Computerlüfter Steuern und Drehzahl messen mit ATmega und Bascom

[Peter K. (pker)]

Hallo!
Dies ist mein erster Beitrag hier.
Ich möchte 2 12V Computer Lüfter (3 Pol.) mit einem ATmega8 oder 16 
Steuern und deren Drehzahl messen.
Die Lüfter werden über die PWM gesteuert, da ist auch alles klar.
Jetzt hängt es nur noch an der Drehzahl?

Hier die Schaltung die ich anwenden möchte für die Drehzahlmessung:

      VCC vom uC
          |
         10k
          |
Lüfter ---+--- uC-Eingang

Ist das so Korrekt wen das Lüftersignal gegen GND zieht?

Ich habe in einem anderen Beitrag gelesen das ich diese Schaltung zur 
Drehzahlermittlung nur anwenden kann, wenn ich eine "Hi Side PWM" nutze.


Meine eigentliche Frage:
Wie kann ich das Software-technisch mit Bascom Realisieren?
Das Programmieren fällt mir noch ein wenig schwer.
Ich weis das ich die Impulse pro Sekunde zählen muss, Aber wie?

Ein kleines Beispiel währe mir sehr Willkommen!!!

Danke schon mal im voraus!!!

Gruß Peter

[asthelfer (Gast)]

http://www.analog.com/library/analogdialogue/archives/38-02/fan_speed.pdf

kleine Infos zum Tacho-Signal

[sBronco (Gast)]

Interrupt

[sBronco (Gast)]

' ********  FAN Interrupts
   On Int3 FANISR Nosave : Config Int3 = Falling                                ': Enable Int3
   On Int2 FANISR Nosave : Config Int2 = Falling                                ': Enable Int2
   On Int1 FANISR Nosave : Config Int1 = Falling                                ': Enable Int1
   On Int0 FANISR Nosave : Config Int0 = Falling                                ': Enable Int0
   On Int7 FANISR Nosave : Config Int7 = Falling                                ': Enable Int7
   On Int6 FANISR Nosave : Config Int6 = Falling                                ': Enable Int6

in der FANISR musst Du dann rechnen, 1 Umdrehung 2 Pulse.
Entweder die Zeit zwischen n Umdrehungen oder n Sekunden lang Pulse 
zählen.

[Peter K. (pker)]

Ist die Schaltung nun i.O. oder nicht ???

[troll (Gast)]

Ist OK wenn du Highside (Plusleitung) schaltest.

[bb45 (Gast)]

Hast du getestet ob die Lüfter überhaupt PWM mögen? Ich hab damit keine 
guten Erfahrungen gemacht, die Lüfter haben laute Geräusche von sich 
gegeben.

[Peter K. (pker)]

#Hast du getestet ob die Lüfter überhaupt PWM mögen?
ja aber ein kondensator hat da abhilfe geschaffen

' ********  FAN Interrupts
   On Int3 FANISR Nosave : Config Int3 = Falling                                ': Enable Int3
   On Int2 FANISR Nosave : Config Int2 = Falling                                ': Enable Int2
   On Int1 FANISR Nosave : Config Int1 = Falling                                ': Enable Int1
   On Int0 FANISR Nosave : Config Int0 = Falling                                ': Enable Int0
   On Int7 FANISR Nosave : Config Int7 = Falling                                ': Enable Int7
   On Int6 FANISR Nosave : Config Int6 = Falling                                ': Enable Int6

Das ist für ein Anfänger ziemlich viel wirres zeug was da steht!
Gibt es jemand der mir das etwas genauer erklären kann?

hier schon mal mein bisheriger code:

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

'LCD Config
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Cursor Off
Cls

'Port Config
Config Pinb.0 = Input
Portb.0 = 1
Fan1 Alias Pinb.0

Config Pinb.1 = Input
Portb.1 = 1
Fan2 Alias Pinb.1

'Timer und Interupts
Config Timer1 = Timer , Prescale = 256
Enable Timer1
On Timer1 Isr_von_timer1
Enable Interrupts
Timer1 = 34285

'Variablen
Dim Rpm1 As Word

'Hauptprogramm
Do

Cls

Locate 1 , 1
Lcd Rpm1 ; " RPM   "
Locate 2 , 1
Lcd Rpm2 ; " RPM   "

Wait 1

Loop

'ISR von timer1
Isr_von_timer1:
Timer1 = 34285
'#############################
'#hier komme ich nicht weiter#
'#############################
Return
End

mir fehlt einfach nur der ansatz wie man das lösen kann!!


gruß
peter

[sBronco (Gast)]

man kann mit einem Interrupt die Flanke detektieren, das willst du.
so konfiguriert man die Int's bei einem zB Mega128.
was ist da wirr ?

[Hackes (Gast)]

Wirr ist da z.B., daß er einen Mega16 hat und keinen Mega128. Und der 
hat auch keine 6 Ints.

Prima, nun weiß er, wie beim 128er ganze 6 Ints so definiert werden, daß 
sie sogar in die gleiche ISR führen. Wo liegt da der Sinn?????? Würde 
ich als Anfänger auch nicht verstehen.

@Peter:

Ob deine 34285 für den Timer stimmen, habe ich gerade nicht 
nachgerechnet, kommt mir aber nicht bekannt vor.

Was Du machen solltest, denn Deinem Programm fehlt doch so einiges:

Du willst RPM2 auf das LCD schreiben, hast aber RPM2 nie 
dimensioniert!!!

Da sollte aber der Compiler schon gemeckert haben.

- Lege Deine beiden Tachoimpulse auf INT-Eingänge.
- Dimensioniere zwei Variablen, die bei den entsprechenden INTs 
hochzählen.
- Lege einen Timer an, der z.B. jede Sekunde ausgelöst wird.
- Wenn der Timer auslöst, speicher Dir den Inhalt der beiden Variablen 
weg zum Berechnen.
- Setze die Variablen und den Timer zurück.
- Setze eine Merker-Variable, daß der Timer ausgelöst war.
- Frage die Merker-Variable im Hauptprogramm ab, um die RPM-Berechnung 
auszuführen.
- Lösche die Merker-Variable wieder.
- Durch die beiden Variablen kennst du nun die Anzahl der Lüfterimpulse 
pro Sekunde und damit die Drehzahl.

Versuchs mal!!

[Peter K. (pker)]

Hallo
Das hört sich sehr amdängerfreundlich an! Danke!
Ich werde es heute Nachmittag gleich ausprobieren!

Gruss
peter

[Peter K. (pker)]

Hallo!
ich habe das jetzt mal so gemacht wie oben beschrieben.
Und es funktioniert!

Danke Hackes :-)

und natürlich ein dank an alle anderen

hier mein fertiger code:

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


'LCD Config
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.4 , Rs = Portb.3
Cursor Off
Cls


'Port Config
Config Pind.2 = Input
Portd.2 = 1
Fan1 Alias Pind.2

Config Pind.3 = Input
Portd.3 = 1
Fan2 Alias Pind.3


'Timer und interupts
Config Timer1 = Timer , Prescale = 256
Enable Timer1
On Timer1 Isr_timer1
Timer1 = 34285

Config Int0 = Falling
Config Int1 = Falling
On Int0 Isr_int0
On Int1 Isr_int1
Enable Int0
Enable Int1
Enable Interrupts


'Variablen
Dim Rpm1 As Word
Dim Rpm2 As Word
Dim Rpm1_temp As Word
Dim Rpm2_temp As Word
Dim X As Byte


'Hauptprogramm
Do

If X = 1 Then
'werte berechnen
Rpm1 = Rpm1 * 30                                            'rpm * 30sek. (weil 2 imputse pro umdrehung)
Rpm2 = Rpm2 * 30                                            'rpm * 30sek. (weil 2 imputse pro umdrehung)
'werte anzeigen
Cls
Locate 1 , 1
Lcd Rpm1
Locate 2 , 1
Lcd Rpm2
X = 0
Wait 1
End If

Loop


'isr von timer1
Isr_timer1:

If X = 1 Then
Return
End If

Timer1 = 34285
Rpm1 = Rpm1_temp
Rpm2 = Rpm2_temp
Rpm1_temp = 0
Rpm2_temp = 0
X = 1
Return


'isr von int0
Isr_int0:
Rpm1_temp = Rpm1_temp + 1
Return


'isr von int1
Isr_int1:
Rpm2_temp = Rpm2_temp + 1
Return


'Ende
End

Ist wahrscheinlich nicht der Übersichtlichste code aber er funktioniert.
Für Verbesserungsvorschläge habe ich immer ein offenes Ohr!

Gruß Peter

[Hackes (Gast)]

Hallo Peter,

prima, wenn es geklappt hat. Das freut mich. Habe es wirklich nur 
überflogen, aber grundsätzlich ist es das, was ich meinte.

Unübersichtlich trifft es in der Tat etwas. Mache reichlich Gebrauch von 
der TAB-Taste!

'Hauptprogramm
Do

     If X = 1 Then
          X = 0                                  'Merker SOFORT löschen

          'werte berechnen
          Rpm1 = Rpm1 * 30                       'rpm * 30sek. (weil 2 imputse pro umdrehung)
          Rpm2 = Rpm2 * 30                       'rpm * 30sek. (weil 2 imputse pro umdrehung)
          'werte anzeigen
          
          Cls
          Locate 1 , 1
          Lcd Rpm1
          Locate 2 , 1
          Lcd Rpm2
          
          Wait 1
     End If

Loop

Das ist z.B. MEIN Stil. Muß man nicht zwingend so machen. Man erkennt 
welches LOOP zu welchem DO gehört und welches ENDIF zum IF. Bei den IFs 
finde ich das wichtig. Man erkennt sofort wo mal ein ENDIF fehlt.

Den Merker sollte man direkt löschen, wenn er gesetzt wurde. Habe ich 
mal korrigiert.

Dann ist es sehr unschön, daß es in der Timer-ISR zwei RETURNS gibt. 
Sowas macht man nicht. Zu einem Aufruf sollte es immer genau EIN Return 
geben. Im übrigen ist die Abfrage ob X=1 ist da überflüssig. Die ISR 
wird immer nach genau einer Sekunde aufgerufen. In der Zeit ist X im 
Hauptprogramm ganz sicher schon wieder gelöscht, also null.

Oder ich sehe gerade den Haken nicht.

Wenn Du Timer und INT-ISRs hast, dann ist es wichtig sich klar zu 
machen, wann wird mein Hauptprogramm "unterbrochen". WANN kann WAS 
überhaupt passieren.

So, das war dann die konstruktive Kritik.

Viel Spaß noch beim Programmieren lernen und hier im Forum.

Gruß Hackes

[Peter K. (pker)]

Hallo!

Danke werde ich mir zu herzen nehmen!

Das mit "if x = 1" habe ich auch schon erkannt!

Das Return aus "timer1_isr" habe ich raus genommen!

Und dein Programmierstil ist sehr Übersichtlich, genau so steht es 
eigentlich auch in meinem Buch.
Aber ich war wahrscheinlich zu faul.

gruß
peter