Hallo Bümpi,
Ich gehe mal davon aus das sich das Makro auf Wohnzimmer beziehen muss.
Dan gibt es meiner Meinung drei.
1. Dauerabsenkung
Code: Alles auswählen
Wenn DauerAbsenkung eingeschaltet dann
HeizkreisSteuerung.T__WZSoll := 17,0
HeizkreisSteuerung.T__VorbauSoll := 17,0
HeizkreisSteuerung.T__GaestezSoll := 17,0
HeizkreisSteuerung.T__SchlafzSoll := 17,0
HeizkreisSteuerung.T__BadSoll := 17,0
HeizkreisSteuerung.T__FlurSoll := 17,0
** usw. alle anderen HMS-gesteuerten Räume
RaumreglerBuero.Modus := 1
RaumreglerBuero := RaumreglerBuero.AbsenkTemperatur
** usw. alle anderen RR-gesteuerten Räume
*******************************************************************
** Bad hast du hier immer noch nicht eingetragen. - Mit Absicht? **
*******************************************************************
sonst
HeizkreisSteuerung.T__WZSoll := 22,5
HeizkreisSteuerung.T__VorbauSoll := 18,0
HeizkreisSteuerung.T__GaestezSoll := 20,0
HeizkreisSteuerung.T__SchlafzSoll := 20,0
HeizkreisSteuerung.T__BadSoll := 23,0
HeizkreisSteuerung.T__FlurSoll := 21,0
** Habe ich entsprechend dem Startwert in jenem Objekt von 22,3 auf 21,0 geändert!
RaumreglerBuero.Modus := 0
RaumreglerBuero := RaumreglerBuero.KomfortTemperatur
*******************************************************************
** Bad hast du hier immer noch nicht eingetragen. - Mit Absicht? **
*******************************************************************
Endewenn
2.HeizungsSOLLwerte
Code: Alles auswählen
wenn DauerAbsenkung eingeschaltet dann
verlassen
endewenn
wenn Uhrzeit < "05:00:00" oder Uhrzeit >= "21:00:00" dann
Heizkreissteuerung.T__WZSoll := 17,0
Heizkreissteuerung.T__VorbauSoll := 17,0
Heizkreissteuerung.T__BadSoll := 19,0
Heizkreissteuerung.T__SchlafzSoll := 17,0
Heizkreissteuerung.T__FlurSoll := 17,0
Heizkreissteuerung.T__GaestezSoll := 17,0
sonst
Heizkreissteuerung.T__WZSoll := 22,5
Heizkreissteuerung.T__VorbauSoll := 18,0
Heizkreissteuerung.T__BadSoll := 23,0
Heizkreissteuerung.T__SchlafzSoll := 18,0
Heizkreissteuerung.T__FlurSoll := 21,0
Heizkreissteuerung.T__GaestezSoll := 20,0
endewenn
wenn Uhrzeit < "05:00:00" oder Uhrzeit >= "21:00:00" dann
wenn TuerFensterKontaktGast = "offen" dann
Heizkreissteuerung.T__GaestezSoll := 6,0
sonst
Heizkreissteuerung.T__GaestezSoll := 17,0
endewenn
wenn TuerFensterKontaktBad = "offen" dann
Heizkreissteuerung.T__BadSoll := 6,0
sonst
Heizkreissteuerung.T__BadSoll := 19,0
endewenn
*** übrige Räume
sonst
wenn TuerFensterKontaktGast = "offen" dann
Heizkreissteuerung.T__GaestezSoll := 6,0
sonst
Heizkreissteuerung.T__GaestezSoll := 20,0
endewenn
wenn TuerFensterKontaktBad = "offen" dann
Heizkreissteuerung.T__BadSoll := 6,0
sonst
Heizkreissteuerung.T__BadSoll := 23,0
endewenn
*** übrige Räume
endewenn
3. SteuerungHeizventileEG
Code: Alles auswählen
wenn Stoppzeit(WandheizungHand.CT) > "03:30:00" dann
WandheizungHand ausschalten
endewenn
wenn WandheizungHand eingeschaltet oder Heizkreispumpe1A7 ausgeschaltet
oder T__WZ >= HeizkreisSteuerung.T__WZSoll dann
HeizungsPumpeEG ausschalten
VentilWandhzgKueche ausschalten
VentilWandhzgKuecheKalt ausschalten
VentilWandhzgHK1 ausschalten
VentilWandhzgHK2 ausschalten
VentilFussbWZ ausschalten
verlassen
endewenn
** Dann wird auf jeden Fall die Fussbodenheizung mit Wärme versorgt:
wenn T__WZ > 0 und T__WZ < HeizkreisSteuerung.T__WZSoll dann
HeizungsPumpeEG einschalten
endewenn
wenn T__WhzKue > 0 und T__WhzKue < 23,5 dann
VentilWandhzgKueche einschalten
endewenn
wenn T__WhzKue >= 24,0 dann
VentilWandhzgKueche ausschalten
endewenn
wenn T__WhKlt > 0 und T__WhKlt < 23,5 dann
VentilWandhzgKuecheKalt einschalten
endewenn
wenn T__WhKlt >= 24,0 dann
VentilWandhzgKuecheKalt ausschalten
endewenn
wenn T__WhzHK1 > 0 und T__WhzHK1 < 23,5 dann
VentilWandhzgHK1 einschalten
endewenn
wenn T__WhzHK1 >= 24,0 dann
VentilWandhzgHK1 ausschalten
endewenn
wenn T__WhHk2 > 0 und T__WhHk2 < 23,5 dann
VentilWandhzgHK2 einschalten
endewenn
wenn T__WhHk2 >= 24,0 dann
VentilWandhzgHK2 ausschalten
endewenn
wenn T__FussbHzgWz > 0 und T__FussbHzgWz < 23,0 dann
VentilFussbWZ einschalten
endewenn
wenn T__FussbHzgWz >= 24,0 dann
VentilFussbWZ ausschalten
endewenn
Kannst Du hier den Grund finden.
Michael