Temperatur berechnen

[Murus]

Für den Lüfter:
Ich würde mir da eine Funktion zusammenstricken und mit dieser den PWM-Wert aus der Temperatur berechnen.
Die Funktion sollte dann wohl exponentiell aussehen ==> je höher die Temperatur, umso höher die Lüfterdrehzahl.
Etwas lineares geht natürlich auch...

[TobiasBlome]

Naja
so aufwendig dachte ich gar nicht.

Also wenn der Lüfter vielleicht mit 25%, 50%, 75% oder 100% dreht reicht mir dass aus(also 4Stufen).

Ich dachte nur:

1. If Schleife größer als 25° -> Lüfter 25%
2. If Schleife größer als 30° -> Lüfter 50%
3...

und so läuft der Lüfter hoch und das fängt bei jedem Zyklus wieder von vorne an - oder nicht?


Tobias

[magnetix48]

Hallo,

wie wär's mit

Select Case Temp
   Case 25 to 39
       Lüfter 25
   Case 40 to 59
       Lüfter 50
   Case 60 to 79
       Lüfter 75
   Case 80 to 100
      Lüfter 100
   Case >100
      Feuerwehr
End Select

Gruß
Detlef

[TobiasBlome]

Sehr schöner Befehl.
Die Feuerwehr hab ich mal weggelassen

Wenn sich Temp erhöht geht der Lüfter mit "Drehzahl" an. Wenn der Lüfter nun kühlt und Temp kleiner wird geht der Lüfter aus - er soll aber nun eine Stufe langsamer drehen...

Select Case Temp
Case 25 To 29
Pwm1 = 25
Case 30 To 34
Pwm1 = 50
Case 35 To 39
Pwm1 = 75
Case Is > 40
Pwm1 = 100
Case Else
Pwm1 = 0
End Select

[magnetix48]

Hallo,

wenn eine Übereinstimmung gefunden ist, wird Select verlassen. Wenn die Temperatur beim nächsten Durchlauf kleiner ist, wird auf die ensprechende Stufe zurückgeschaltet, nicht ausgeschaltet.

Gruß
Detlef

[TobiasBlome]

Aber nicht bei mir - er schaltet nich zurück sondern auf 0

Also ich habe nun:

Case 10 To 24
Pwm1 = 0
dazugeschrieben und die
Case Else
Pwm1 = 0
habe ich weggelassen. Warum hat er denn die Else Schleife nicht genommen?

$regfile = "m8def.dat"                                      'AT-Mega8
$crystal = 1000000                                          'Quarz: 1 MHz
$baud = 2400                                                'Baudrate der UART: 2400 Baud

'===============================================================================
' Variablen
'===============================================================================
Dim Result As Word
Dim Ohm As Single
Dim Temp1 As Single                                         'wegen den negativen Zahlen!!!
Dim Temp2 As Single
Dim Temp3 As Single
Dim Temp As Single
Dim Pwm1 As Byte


Config Portc = Input
Config Adc = Single , Prescaler = Auto , Reference = Avcc




Start Adc

'-------------------------------------------------------------------------------
'Programm:
'-------------------------------------------------------------------------------

Do

Result = Getadc(1)
Ohm = 2.0238 * Result

Temp1 = Log(ohm)
Temp2 = Temp1 + 5.59017600439636
Temp3 = 3730 / Temp2
Temp = Temp3 - 273
Print "Temp: " ; Fusing(temp , "###.#" ) ; "°C"

Wait 1

Select Case Temp
   Case 10 To 24
       Pwm1 = 0
   Case 25 To 29
       Pwm1 = 25
   Case 30 To 34
       Pwm1 = 50
   Case 35 To 39
       Pwm1 = 75
   Case Is > 40
      Pwm1 = 100
   'Case Else
   '   Pwm1 = 0
End Select

Print "PWM1: " ; Pwm1
Loop

End

[magnetix48]

Merkwürdig, da bin ich auch überfragt.