Bascom, AVR Lüftersteuerung, Falsche Drehzahl mit High-Side-PWM

[Peter K. (pker)]

Hallo
Habe folgendes Problem:
Wen ich einen Lüfter mit der "High-Side-PWM" auf 100% setze und die 
Drehzahl mit einem Interupt messe Stimmt die Drehzahl.

Wen ich jetzt aber den Lüfter mit ca. 50% laufen lasse (Compare1a = 127) 
Steigt die Drehzahl.

Ich kann mir vorstellen  das das an den Timern liegt.
Ist das so?
Und Wie kann ich Abhilfe schaffen?

Hier mal der Code.
Ist verbesserungsbedürftig aber funktioniert soweit erstmal bis auf die 
PWM Sache.

$regfile = "m16def.dat"
$crystal = 8000000
$framesize = 32
$swstack = 32
$hwstack = 32


'LCD Config
Config Lcdpin = Pin , Db4 = Portc.7 , Db5 = Portc.6 , Db6 = Portc.5 , Db7 = Portc.4 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Cls


'Port Config
Config Portb.3 = Output                                     'fan1 PWM

Config Portd.7 = Output                                     'fan2 PWM

Config Pind.2 = Input                                       'fan1 INT
Portd.2 = 1

Config Pind.3 = Input                                       'fan2 INT
Portd.3 = 1


'Timer, PWM und interupts
Config Timer0 = Timer , Prescale = 1024
Enable Timer0
On Timer0 Isr_timer0

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Compare1a = 255
Compare1b = 150

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


'Variablen RPM messen
Dim Rpm1 As Integer
Dim Rpm2 As Integer
Dim Rpm1_temp As Integer
Dim Rpm2_temp As Integer
Dim X As Byte
Dim Soft_timer As Byte
Dim Rpm_runden As Byte
Dim Rpm_runden1 As Integer
Dim Rpm_runden2 As Integer



Do

Compare1a = 127

Compare1b = 255


'###############################################################################
'Drehzahl erfassung
'###############################################################################
If X = 1 Then
   X = 0

   'rpm werte runden
   Rpm_runden1 = Rpm_runden1 + Rpm1
   Rpm_runden2 = Rpm_runden2 + Rpm2

   Rpm_runden = Rpm_runden + 1

   If Rpm_runden = 5 Then

      Rpm1 = Rpm_runden1 / 5
      Rpm2 = Rpm_runden2 / 5

      Rpm_runden1 = 0
      Rpm_runden2 = 0

      Rpm_runden = 0

      'rpm werte berechnen
      Rpm1 = Rpm1 * 30                                      'rpm * 30sek. (weil 2 imputse pro umdrehung)
      Rpm2 = Rpm2 * 30                                      'rpm * 30sek. (weil 2 imputse pro umdrehung)

      'rpm werte anzeigen


      Locate 1 , 1
      Lcd "Fan1 = " ; Rpm1 ; " RPM"

      Locate 2 , 1
      Lcd "Fan2 = " ; Rpm2 ; " RPM"

   End If

End If


Loop


Isr_timer0:
  Soft_timer = Soft_timer + 1

  If Soft_timer = 30 Then
   Rpm1 = Rpm1_temp
   Rpm2 = Rpm2_temp

   Rpm1_temp = 0
   Rpm2_temp = 0

    'Korrigiere Drehzahl 30/30.5175 = 0.983042516
    Rpm1 = Rpm1 * 0.983042516
    Rpm2 = Rpm2 * 0.983042516

    Soft_timer = 0
    X = 1

  End If
Return


Isr_int0:
   Rpm1_temp = Rpm1_temp + 1
Return


Isr_int1:
   Rpm2_temp = Rpm2_temp + 1
Return


End

Gruß Peter

[Karl H. (kbuchegg)]

Peter K. schrieb:
> Hallo
> Habe folgendes Problem:
> Wen ich einen Lüfter mit der "High-Side-PWM" auf 100% setze und die
> Drehzahl mit einem Interupt messe Stimmt die Drehzahl.

Wie gemessen?

>
> Wen ich jetzt aber den Lüfter mit ca. 50% laufen lasse (Compare1a = 127)
> Steigt die Drehzahl.

Die angezeigte Drehzahl oder die Drehzahl in echt?

[Peter K. (pker)]

Karl Heinz Buchegger schrieb:
> Wie gemessen?

Isr_int0:
   Rpm1_temp = Rpm1_temp + 1
Return
'pro umdrehung 2 interupts
'aller 1 sekunde auswerten

> Die angezeigte Drehzahl oder die Drehzahl in echt?

sorry mein Fehler!
Die Drehzahl steigt nur auf dem Display!


Hier noch die Schaltung:

 12V------------------------o------o---------------o-------------
                            |      |               |
                            |      |               |
                           .-.     |               |
                           | |1k5  |               |
                           | |R2   |               |
                           '-'     |T2             |
                            |      |BC548          |
                            |    |/                |
                            o----|                 |
                            |    |>        P-FET   |
                            |      |    ___IRF9505N|
                            o---|<-o---|___|----||-+
  .---------.               |  1N4148  R3 12R   ||->
  |         |               |                   ||-+
  |         |    _      |/                       |
  |         |---|___|-----|   T1                   |
  |         |   R1 1k5    |>  BC548                |
  |   µC    |               |                     .-.
  |         |               |                     | |
  |         |               |                     | | Last
  |         |               |                     '-'
  '---------'               |                      |
                            |                      |
 GND------------------------o----------------------+

[Karl H. (kbuchegg)]

Peter K. schrieb:
> Karl Heinz Buchegger schrieb:
>> Wie gemessen?
>
>

> Isr_int0:
>    Rpm1_temp = Rpm1_temp + 1
> Return
> 'pro umdrehung 2 interupts
> 'aller 1 sekunde auswerten
>

>

OK.
ALso nicht mit einem unabhängigen Messgerät festgestellt.
D.h. der Aussage "die Drehzahl stimmt" kann man nicht trauen.

> sorry mein Fehler!
> Die Drehzahl steigt nur auf dem Display!

Ich seh keinen wirklichen Grund dafür, ausser der Verwendung von 
Floating Point in der ISR, was unklug ist. Ob das soviel ausmacht?

Speck halt erst mal ab und gib nur die gemessenen Werte aus. So wie sie 
sind. Keine Umrechnerei.

[Peter K. (pker)]

Karl Heinz Buchegger schrieb:
> OK.
> ALso nicht mit einem unabhängigen Messgerät festgestellt.
> D.h. der Aussage "die Drehzahl stimmt" kann man nicht trauen.

Doch in etwa  +-100 sind aber auch nicht so schlimm!
Der Lüfter soll 1200RPM machen und 1230 hab ich aufm Display

Wen ich den Lüfter via PWM drossel ca. 50% dann bekomme ich erst 
25000RPM und nach einer weile dann dauerhaft -23000RPM
Ich glaube hier ist der integer schon zu klein oder?

Karl Heinz Buchegger schrieb:
> Speck halt erst mal ab und gib nur die gemessenen Werte aus. So wie sie
> sind. Keine Umrechnerei.

$regfile = "m16def.dat"
$crystal = 8000000
$framesize = 32
$swstack = 32
$hwstack = 32


'LCD Config
Config Lcdpin = Pin , Db4 = Portc.7 , Db5 = Portc.6 , Db6 = Portc.5 , Db7 = Portc.4 , E = Portc.1 , Rs = Portc.0
Config Lcd = 16 * 2
Cls


'Port Config
Config Portb.3 = Output                                     'fan1 PWM

Config Portd.7 = Output                                     'fan2 PWM

Config Pind.2 = Input                                       'fan1 INT
Portd.2 = 1

Config Pind.3 = Input                                       'fan2 INT
Portd.3 = 1


'Timer, PWM und interupts
Config Timer0 = Timer , Prescale = 1024
Enable Timer0
On Timer0 Isr_timer0

Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down , Prescale = 1
Compare1a = 255
Compare1b = 150

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


'Variablen RPM messen
Dim Rpm1 As Integer
Dim Rpm2 As Integer
Dim Rpm1_temp As Integer
Dim Rpm2_temp As Integer
Dim X As Byte
Dim Soft_timer As Byte


Do

Compare1a = 127

Compare1b = 255


'###############################################################################
'Drehzahl erfassung
'###############################################################################
If X = 1 Then
   X = 0

      Locate 1 , 1
      Lcd "Fan1 = " ; Rpm1 ; " RPM"

      Locate 2 , 1
      Lcd "Fan2 = " ; Rpm2 ; " RPM"

End If


Loop


Isr_timer0:
  Soft_timer = Soft_timer + 1

  If Soft_timer = 30 Then      '1 Sekunde
   Rpm1 = Rpm1_temp
   Rpm2 = Rpm2_temp

   Rpm1_temp = 0
   Rpm2_temp = 0

    Soft_timer = 0
    X = 1

  End If
Return


Isr_int0:
   Rpm1_temp = Rpm1_temp + 1
Return


Isr_int1:
   Rpm2_temp = Rpm2_temp + 1
Return


End

Gut ist klar jetzt gibt er mir ca. 1400 aus!
(1400 interupts pro sekunde / 2 * 60 = 42000 RPM)
Durch 2 weil der Lüfter 2 Signale pro Umdrehung ausgibt!

[Peter K. (pker)]

Hat keiner ne idee woran das liegen kann?

Ach ja die Drehzahl am Display verhält sich parallel zur echten 
Drehzahl.
zb. angezeigt wird "40000" wen ich jetzt den Lüfter mit der hand ein 
bischen
bremse wird auch die Drehzahl kleiner!

Kann es sein das sich die Timer in die Quere kommen???
(Timer für Sekundentakt und Timer für PWM)

[Karl H. (kbuchegg)]

Peter K. schrieb:


> Gut ist klar jetzt gibt er mir ca. 1400 aus!
> (1400 interupts pro sekunde / 2 * 60 = 42000 RPM)
> Durch 2 weil der Lüfter 2 Signale pro Umdrehung ausgibt!


Und?
Was passiert, wenn du die PWM veränderst?
Steigt oder fällt der Wert?`

Oder anders gesagt: Verhalten sich diese Werte in der Tendenz so wie du 
es erwarten würdest?

[Karl H. (kbuchegg)]

Peter K. schrieb:

> Kann es sein das sich die Timer in die Quere kommen???

Die Timer nicht.
Aber die Auswertungs-ISR des Timers behindert das Erfassen der Pulse 
durch die anderen Interrupts. Die Floating Point Rechnerei da drinnen 
muss nicht sein, so dass diese ISR schnell verlassen werden kann.

Die andere Frage ist: sind eigentlich die Rückmeldepulse vom Lüfter 
prellfrei?

> (Timer für Sekundentakt und Timer für PWM)
Die kommen sich nicht ins Gehege. Der PWM-Timer läuft ja sowieso 
unabhängig von allem anderen. Der molocht einfach nur vor sich hin uns 
schaltet den PWM-Pin brav um.

[Tek (Gast)]

Kann es sein das dir die PWM in deinen Zähleingang reinspuckt, bei 100% 
stimmt dann die Drehzal weil ED = 100% und sobald du mit der PWM 
runtergehst zählst Du zusätzlich zu den Umdrehungsimpulse die 
Störimpules und die Drehzahl steig.

[Peter K. (pker)]

Karl Heinz Buchegger schrieb:
> Und?
> Was passiert, wenn du die PWM veränderst?
> Steigt oder fällt der Wert?`

verhält sich genau umgedreht:
Wenn ich compare1a auf 200 stelle habe ich auf dem Display ca. 6000RPM!
Wenn ich compare1a auf 150 stelle habe ich 14000RPM auf dem Display!

Karl Heinz Buchegger schrieb:
> Die andere Frage ist: sind eigentlich die Rückmeldepulse vom Lüfter
> prellfrei?

Wenn ich den Lüfter (compare1a) auf 100% laufen lasse stimmen ja die 
werte.
Also denke ich mal das das damit nichts zu tun hat.

Tek schrieb:
> Kann es sein das dir die PWM in deinen Zähleingang reinspuckt, bei 100%
> stimmt dann die Drehzal weil ED = 100% und sobald du mit der PWM
> runtergehst zählst Du zusätzlich zu den Umdrehungsimpulse die
> Störimpules und die Drehzahl steig.

An das habe ich auch schon gedacht aber ich kann mir nicht vorstellen 
wie das sein kann!


Ich habe im Anhang mal das komplette Programm und den Schaltplan!!!

[asthelfer (Gast)]

Benutz du 3 pin lüfter mit Tacho ausgang?
Wenn der mit 100% ED läuft kriegt auch der Tachogenerator 100% der zeit 
Strom,
bei 50% ist es eher zufall was da rauskommt..

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

[Peter K. (pker)]

asthelfer schrieb:
> Benutz du 3 pin lüfter mit Tacho ausgang?

Ja!


Ich dachte des das Tachosignal gegen GND zieht deswegen sollte das mit 
der PWM auch funktionieren.
Hier ein link schau dir mal weiter unten die 
Lüftersteuerung(Buck-Konverter) an.
http://www.sprut.de/electronic/pic/projekte/luefter/luefter.htm

gruß peter