Du darfst der Variablen nicht den Namen "Einschalten" geben, weil das ein von Homeputer reserviertes Schlüsselwort ist.
Wahrscheinlich müsste es dort eh
Code: Alles auswählen
WandheizungHand einschalten
Viele Grüsse
Bümpi
Moderator: Co-Administratoren
Code: Alles auswählen
WandheizungHand einschalten
Code: Alles auswählen
wenn DauerAbsenkung eingeschaltet dann
HeizungsPumpeSolaranlage.TWZUSoll := 19,1
sonst
wenn Uhrzeit >= "05:00:00" und Uhrzeit < "21:00:00" dann
HeizungsPumpeSolaranlage.TWZUSoll := 22,1
sonst
HeizungsPumpeSolaranlage.TWZUSoll := 19,1
endewenn
endewenn
wenn TWZU < HeizungsPumpeSolaranlage.TWZUSoll dann
HeizungIstEin := 1
endewenn
wenn Stoppzeit(WandheizungHand.CT)>"03:30:00" dann
WandheizungHand ausschalten
endewenn
wenn TWZU > HeizungsPumpeSolaranlage.TWZUSoll oder WandheizungHand = "an" dann
HeizungIstEin :=0
VentilWandhzgKueche ausschalten
VentilWandhzgHK1 ausschalten
VentilWandhzgHK2 ausschalten
VentilWandhzgKuecheKalt ausschalten
SchalterPumpe ausschalten
** Wird von jenem Makro erledigt!
** HeizungspumpeSolaranlage ausschalten
endewenn
warte("00:00:01")
*** usw.
Code: Alles auswählen
**! ============================================================
**! OBJEKT DauerAbsenkung
**! ============================================================
**! OBJEKT-TYP : Schalter
**! BEZEICHNUNG : DauerAbsenkung
**! STARTWERT : aus
**! ------------------------------------------------------------
**! AUSFÜHRUNGSINTERVALL : nein
**! AUSFÜHRUNG BEI EINGABE : ja
**! AUSFÜHRUNG BEI ÄNDERUNG : nein
**!
**!
**! ============================================================
**! VARIABLENDEFINITIONEN
**! ============================================================
**! NAME TYP STARTWERT
**! ------------------------------------------------------------
Wenn DauerAbsenkung eingeschaltet dann
HeizkreisSteuerung.TWZUSoll := 19,0
HeizkreisSteuerung.TWHZOSoll := 19,0
** usw. alle anderen HMS-gesteuerten Räume
RaumreglerBuero.Modus := 1
RaumreglerBuero := RaumreglerBuero.AbsenkTemperatur
RaumreglerBad.Modus := 1
RaumreglerBad := RaumreglerBad.AbsenkTemperatur
RaumreglerDiele.Modus := 1
RaumreglerDiele := RaumreglerDiele.AbsenkTemperatur
RaumreglerSchlafzimmer.Modus := 1
RaumreglerSchlafzimmer := RaumreglerSchlafzimmer.AbsenkTemperatur
** usw. alle anderen RR-gesteuerten Räume
*******************************************************************
** Bad hast du hier immer noch nicht eingetragen. - Mit Absicht? **
*******************************************************************
sonst
HeizkreisSteuerung.TWZUSoll := 22,3
** Habe ich entsprechend dem Startwert in jenem Objekt von 22,3 auf 21,0 geändert!
HeizkreisSteuerung.TWHZOSoll := 21,0
RaumreglerBuero.Modus := 0
RaumreglerBuero := RaumreglerBuero.KomfortTemperatur
RaumreglerBad.Modus := 0
RaumreglerBad : = RaumreglerBad.KomfortTemperatur
RaumreglerDiele.Modus := 0
RaumreglerDiele := RaumreglerDiele.KomfortTemperatur
RaumreglerSchlafzimmer.Modus ;= 0
RaumreglerSchlafzimmer := RaumreglerSchlafzimmer.KomfortTemperatur
*******************************************************************
** Bad hast du hier immer noch nicht eingetragen. - Mit Absicht? **
*******************************************************************
Endewenn