Temperaturabhängige Lüftersteuerung: Unterschied zwischen den Versionen
Mgue (Diskussion | Beiträge) |
Mgue (Diskussion | Beiträge) |
||
| (Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt) | |||
| Zeile 1: | Zeile 1: | ||
| + | Der Gate Pin des FETs, der den Lüfter regelt wird an PD7 angeschlossen. Mit dem Skript lassen sich nun die Umdrehungen abhängig von der Temperatur, die am [[Dallas_1-wire_Bus|Onewire-Sensor]] gelesen wird per Hardware PWM regeln. | ||
| + | |||
| + | Das Skript regelt zwischen 28.2° und 60° (darunter ist der Lüfter aus weil hier meist die Raumtemperatur liegt und es dadurch keinen Kühleffekt mehr gibt, darüber läuft der Lüfter auf 100%) | ||
| + | |||
<source lang="c"> | <source lang="c"> | ||
dnl ################################################################################ | dnl ################################################################################ | ||
| Zeile 23: | Zeile 27: | ||
THREAD(mainloop) | THREAD(mainloop) | ||
ON ONCE (1) DO | ON ONCE (1) DO | ||
| + | int16_t temperature = 0x7FFF; | ||
| + | for(uint8_t i=0;i<10;i++) | ||
| + | { | ||
| + | temperature = (ONEWIRE_GET(28a419e002000017)); | ||
| + | if(temperature != 0x7FFF) | ||
| + | break; | ||
| + | } | ||
dnl 0.425: x/600*255 (60° will result in 255 => maximum fan speed) | dnl 0.425: x/600*255 (60° will result in 255 => maximum fan speed) | ||
| − | double newvalue=0.425* | + | double newvalue=0.425*temperature; |
dnl Set fan to maximum | dnl Set fan to maximum | ||
if (newvalue > 255) | if (newvalue > 255) | ||
| Zeile 42: | Zeile 53: | ||
dnl FastPWM | dnl FastPWM | ||
TCCR2A = (1 << COM2A1) | (1 << COM2A0) | (1 << WGM21) | (1 << WGM20); | TCCR2A = (1 << COM2A1) | (1 << COM2A0) | (1 << WGM21) | (1 << WGM20); | ||
| − | dnl Prescaler: | + | dnl Prescaler: 1024 |
| − | TCCR2B = (1 << CS22) | (1 << CS21); | + | TCCR2B = (1 << CS22) | (1 << CS21) | (1 << CS20); |
dnl Maximum Speed | dnl Maximum Speed | ||
OCR2A = 0; | OCR2A = 0; | ||
Aktuelle Version vom 6. Juni 2011, 00:36 Uhr
Der Gate Pin des FETs, der den Lüfter regelt wird an PD7 angeschlossen. Mit dem Skript lassen sich nun die Umdrehungen abhängig von der Temperatur, die am Onewire-Sensor gelesen wird per Hardware PWM regeln.
Das Skript regelt zwischen 28.2° und 60° (darunter ist der Lüfter aus weil hier meist die Raumtemperatur liegt und es dadurch keinen Kühleffekt mehr gibt, darüber läuft der Lüfter auf 100%)
dnl ################################################################################
dnl # #
dnl # Copyright (c) 2011 by Maximilian Güntner <maximilian.guentner@gmail.com> #
dnl # #
dnl # This program is free software; you can redistribute it and/or modify it #
dnl # under the terms of the GNU General Public License (either version 2 or #
dnl # version 3) as published by the Free Software Foundation. #
dnl # This program is distributed in the hope that it will be useful, #
dnl # but WITHOUT ANY WARRANTY; without even the implied warranty of #
dnl # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
dnl # GNU General Public License for more details. #
dnl # #
dnl # You should have received a copy of the GNU General Public License #
dnl # along with this program; if not, write to the Free Software #
dnl # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #
dnl # #
dnl # For more information on the GPL, please go to: #
dnl # http://www.gnu.org/copyleft/gpl.html #
dnl # #
dnl ################################################################################
CONTROL_START
THREAD(mainloop)
ON ONCE (1) DO
int16_t temperature = 0x7FFF;
for(uint8_t i=0;i<10;i++)
{
temperature = (ONEWIRE_GET(28a419e002000017));
if(temperature != 0x7FFF)
break;
}
dnl 0.425: x/600*255 (60° will result in 255 => maximum fan speed)
double newvalue=0.425*temperature;
dnl Set fan to maximum
if (newvalue > 255)
OCR2A = 0;
dnl Disable the fan, cooling makes no sense
else if(newvalue < 120)
OCR2A = 255;
dnl Set the fan to the dynamic value
else
OCR2A = 255-(uint8_t) newvalue;
END
THREAD_END(mainloop)
ON STARTUP DO
dnl PD7 has to be output
DDRD |= 0b10000000;
dnl FastPWM
TCCR2A = (1 << COM2A1) | (1 << COM2A0) | (1 << WGM21) | (1 << WGM20);
dnl Prescaler: 1024
TCCR2B = (1 << CS22) | (1 << CS21) | (1 << CS20);
dnl Maximum Speed
OCR2A = 0;
THREAD_START(mainloop)
END
CONTROL_END