ich habe das nun wie folgt umgesetzt.
Code:
[Macros]
...
Bei_Sonnenuntergang_Gedeckelt_mitFreigabe(SUGedFr1,FreigabeVar,"Alle Rolläden auf/ab-4/3/0",RUNTER,19000000,22,30,00)
Bei_Sonnenuntergang_Gedeckelt_mitFreigabe(SUGedFr2,FreigabeVar,"Funkdose 1 Flur-Treppe Schalten-7/0/2",EIN,600000,22,30,00)
Bei_Sonnenuntergang_Gedeckelt_mitFreigabe(SUGedFr12,FreigabeVar,"Funkdose 1 Flur-Treppe Schalten-7/0/2",AUS,30000000,23,02,00)
Bei_Sonnenuntergang_Gedeckelt_mitFreigabe(SUGedFr10,FreigabeVar,"Funkdose 2 WZ Süd Schalten-7/0/1",EIN,600000,22,30,00)
Bei_Sonnenuntergang_Gedeckelt_mitFreigabe(SUGedFr11,FreigabeVar,"Funkdose 2 WZ Süd Schalten-7/0/1",AUS,19060000,22,31,00)
Bei_Sonnenaufgang_Gedeckelt_mitFreigabe(Sonnenaufgang1,(FreigabeVar) and (!"Beschattung Aktivierung-8/1/0"),"Rolläden Ost-5/2/0",RAUF,7200000,07,28,00)
Bei_Sonnenaufgang_Gedeckelt_mitFreigabe(Sonnenaufgang2,(FreigabeVar) and (!"Beschattung Aktivierung-8/1/0"),"Wohnen - Süd Rolläden-5/0/5",RAUF,7200000,07,28,00)
Bei_Sonnenaufgang_Gedeckelt_mitFreigabe(Sonnenaufgang3,FreigabeVar,"Rolläden West-5/2/2",RAUF,7200000,07,28,00)
Bei_Sonnenaufgang_Gedeckelt_mitFreigabe(Sonnenaufgang4,FreigabeVar,"Wohnen - Terrasse Rolläden-5/0/4",RAUF,7200000,07,28,00)
...
[EibPC]
...
// Zustandsmaschine in [EibPC]
FreigabeVar=AUS
TFrueh=chtime(00,00,01) and !chtime(12,00,00)
// Zustand 1: Frühmodus
if TFrueh and !sun() then FreigabeVar=AUS endif
// Zustand 2: TagModus
if sun() and change("Anwesenheit-8/1/1") then FreigabeVar="Anwesenheit-8/1/1" endif
// Zustand3 Spätmodus
if !TFrueh and !sun() and change("Anwesenheit-8/1/1") then FreigabeVar="Anwesenheit-8/1/1" endif
if button(4)==1 then {write("Anwesenheit-8/1/1",!"Anwesenheit-8/1/1")} endif
if "Anwesenheit-8/1/1" then display(4,$Abwesend$,ABSENT,DARKRED,BLINKBLUE) else display(4,$Anwesend$,PRESENT,ACTIVE,GREEN) endif
//Eingangstür
if (!"Türkontakt-8/1/3") and ("Anwesenheit-8/1/1") and (sun()==0b01) then write ("Licht Flur-0/0/5",EIN) endif
1.) Der Türkontakt funktioniert korrekt. Das Licht geht an wie es soll.
2.) Aktivierung der Abwesenheit nach Sonnenaufgang und nach 12:00h
Code:
2013-01-20 14:58:59, EibPC, "Anwesenheit-8/1/1", Binärwert, EIN, Schreiben, bc 00 00 41 01 e1 00 81 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2013-01-20 14:58:59, EibPC, "Rolläden Ost-5/2/0", Binärwert, AUS, Schreiben, bc 00 00 2a 00 e1 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2013-01-20 14:58:59, EibPC, "Wohnen - Süd Rolläden-5/0/5", Binärwert, AUS, Schreiben, bc 00 00 28 05 e1 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2013-01-20 14:58:59, EibPC, "Rolläden West-5/2/2", Binärwert, AUS, Schreiben, bc 00 00 2a 02 e1 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2013-01-20 14:58:59, EibPC, "Wohnen - Terrasse Rolläden-5/0/4", Binärwert, AUS, Schreiben, bc 00 00 28 04 e1 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2013-01-20 16:38:00, EibPC, "Funkdose 1 Flur-Treppe Schalten-7/0/2", Binärwert, EIN, Schreiben, bc 00 00 38 02 e1 00 81 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2013-01-20 16:38:00, EibPC, "Funkdose 2 WZ Süd Schalten-7/0/1", Binärwert, EIN, Schreiben, bc 00 00 38 01 e1 00 81 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2013-01-20 21:44:40, EibPC, "Alle Rolläden auf/ab-4/3/0", Binärwert, EIN, Schreiben, bc 00 00 23 00 e1 00 81 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2013-01-20 21:45:40, EibPC, "Funkdose 2 WZ Süd Schalten-7/0/1", Binärwert, AUS, Schreiben, bc 00 00 38 01 e1 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2013-01-20 23:02:00, EibPC, "Funkdose 1 Flur-Treppe Schalten-7/0/2", Binärwert, AUS, Schreiben, bc 00 00 38 02 e1 00 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
3.) Aktivierung der Abwesenheit vor Sonnenaufgang
Code:
2013-01-22 06:28:25, EibPC, "Anwesenheit-8/1/1", Binärwert, EIN, Schreiben, bc 00 00 41 01 e1 00 81 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
Es läuft also nicht, sofern im Frühmodus die Abwesenheit aktiviert wird.

Ich hoffe du hast da noch eine Idee?
Vielen Dank und viele Grüße
Jens


Ich glaube das war der erste Beitrag seit langem der nicht OFFTOPIC war.
.

Einen Kommentar schreiben: