In meiner HPCL-Steuerung habe ich einen virtuellen Schalter, den ich auf Abwesend bzw. Anwesend umschalte. Bei Abwesend wird in einem Makro (Minuten) eine Lichtsteuerung nach vorgegebenen Zeiten aktiviert.
Es soll hier für jeden Schalter 2 Zeiten ermöglicht werden, zum einen zeitverzögert zum Sonnenuntergang oder fixe Zeiten.
Der Test läuft derzeit im Wohnzimmer.
Über den virtuellen Schalter "Virt_SchalterAnwAbw" wird der Code aktiviert. Leider schaltet das Licht sofort ein bei Abwesend?
UPuScha.... = Unterputzschalter
Anz.......... = Eingabefelder der Zeiten
Code: Alles auswählen
//Wohnzimmer
//------------------------------------------------------------------------------------------------------------------------
//Schaltzeiten 1 variable Einschaltzeiten
Wenn Anz_LichtWohnz_Zeitverz1 <> "" dann
Wenn (Uhrzeit zwischen (D_002AnzSonnenuntergang + Anz_LichtWohnz_Zeitverz1) und Anz_LichtWohnz_Aus1) und Virt_SchalterAnwAbw = 1 und UPuScha_EG_WZ_LichtFront = 0 dann
UPuScha_EG_WZ_LichtFront := 1
EndeWenn
Wenn (Uhrzeit zwischen (Anz_LichtWohnz_Aus1+"00:01:00") und (Anz_LichtWohnz_Aus1+"00:03:00")) und Virt_SchalterAnwAbw =1 und UPuScha_EG_WZ_LichtFront = 1 dann
UPuScha_EG_WZ_LichtFront := 0
EndeWenn
EndeWenn
//Schaltzeiten 1 fixe Schaltzeite
Wenn Anz_LichtWohnz_Zeitverz1 = "" und Anz_LichtWohnz_Ein1 <> "" dann
Wenn (Uhrzeit zwischen (Anz_LichtWohnz_Ein1) und Anz_LichtWohnz_Aus1) und Virt_SchalterAnwAbw = 1 und UPuScha_EG_WZ_LichtFront = 0 dann
UPuScha_EG_WZ_LichtFront := 1
EndeWenn
Wenn (Uhrzeit zwischen (Anz_LichtWohnz_Aus1+"00:01:00") und (Anz_LichtWohnz_Aus1+"00:03:00")) und Virt_SchalterAnwAbw =1 und UPuScha_EG_WZ_LichtFront = 1 dann
UPuScha_EG_WZ_LichtFront := 0
EndeWenn
EndeWenn
//Schaltzeiten 2 variable Einschaltzeiten
Wenn Anz_LichtWohnz_Zeitverz2 <> "" dann
Wenn (Uhrzeit zwischen (D_002AnzSonnenuntergang +Anz_LichtWohnz_Zeitverz2) und Anz_LichtWohnz_Aus2) und Virt_SchalterAnwAbw = 1 und UPuScha_EG_WZ_LichtFront = 0 dann
UPuScha_EG_WZ_LichtFront := 1
EndeWenn
Wenn (Uhrzeit zwischen (Anz_LichtWohnz_Aus2+"00:01:00") und (Anz_LichtWohnz_Aus2+"00:03:00")) und Virt_SchalterAnwAbw =1 und UPuScha_EG_WZ_LichtFront = 1 dann
UPuScha_EG_WZ_LichtFront := 0
EndeWenn
EndeWenn
//Schaltzeiten 2 fixe Schaltzeite
Wenn Anz_LichtWohnz_Zeitverz2 = "" und Anz_LichtWohnz_Ein2 <> "" dann
Wenn (Uhrzeit zwischen (Anz_LichtWohnz_Ein2) und Anz_LichtWohnz_Aus2) und Virt_SchalterAnwAbw = 1 und UPuScha_EG_WZ_LichtFront = 0 dann
UPuScha_EG_WZ_LichtFront := 1
EndeWenn
Wenn (Uhrzeit zwischen (Anz_LichtWohnz_Aus2+"00:01:00") und (Anz_LichtWohnz_Aus2+"00:03:00")) und Virt_SchalterAnwAbw =1 und UPuScha_EG_WZ_LichtFront = 1 dann
UPuScha_EG_WZ_LichtFront := 0
EndeWenn
EndeWenn