ich bekomme mal wieder ein Makro nicht so hin, wie ich es brauche...
Es geht um die Steuerung der Heizung des Regenmessers meines KS300.
Eingeschaltet werden soll die Heizung (FS20ST = Regnmesserheizung) von einem Regensensor (Regensensor1) bei Regen/Schnee und einer Temperatur kleiner 3°C (KS300_Temp).
Das tut mit dem Makro, aber...
In dem FS20ST habe ich den Timer (30 Minuten) aktiviert, damit die Heizung bei einem Funkausfall trotzdem abgeschaltet wird. Tut auch.
Um aber sicherzustellen, daß die Heizung bei Schneefall dauernd läuft, muss der Timer durch Ein/Ausschalten neu gestartet werden, ebenso soll die Heizung nach dem Ende des Schneefalls noch etwa 30 Minuten nachlaufen.
Deshalb habe ich in dem Makro die Variable "Regen", Typ Zahl definiert, sowie die Wenn- Bedingungen, die dann je nach Zustand durchgespielt werden sollen.
Das tut leider nicht und ich weiß nicht, wo mein Denkfehler liegt...
Wenn der Regensensor einschaltet, wird die Heizung eingeschaltet, schaltet er ab, geht auch die Heizung aus. Wo liegt das Problem?
Danke vorab!
P.S.: Die Zeiten im Makro sind nur zum Testen auf 30s gesetzt, die werden im Betrieb dann auf etwa 30 Minuten geändert.
Hier noch das Makro:
Code: Alles auswählen
**! ============================================================
**! OBJEKT Regnmesserheizung
**! ============================================================
**! OBJEKT-TYP : EAGeraet
**! BEZEICHNUNG : Regnmesserheizung
**! STARTWERT : aus
**! ------------------------------------------------------------
**! AUSFÜHRUNGSINTERVALL : jede volle Stunde
**! AUSFÜHRUNG BEI EINGABE : nein
**! AUSFÜHRUNG BEI ÄNDERUNG : ja
**!
**! ============================================================
**! VARIABLENDEFINITIONEN
**! ============================================================
**! NAME TYP STARTWERT
**! ------------------------------------------------------------
**! Regen Zahl 0
wenn KS300_Temp>(3) dann
Regnmesserheizung ausschalten
Regen:=0
sonst
wenn Regen=0 und Regnmesserheizung ausgeschaltet und Regensensor1 eingeschaltet dann
Regen:=1
warte("00:00:02")
Regnmesserheizung einschalten
endewenn
wenn Regen=1 und Regnmesserheizung eingeschaltet und Regensensor1 eingeschaltet dann
warte("00:00:30")
Regnmesserheizung ausschalten
endewenn
wenn Regen=1 und Regnmesserheizung ausgeschaltet und Regensensor1 eingeschaltet dann
warte("00:00:02")
Regnmesserheizung einschalten
endewenn
wenn Regen=1 und Regnmesserheizung eingeschaltet und Regensensor1 ausgeschaltet dann
Regen:=0
warte("00:00:30")
Regnmesserheizung ausschalten
endewenn
endewenn