Hier ein bisschen "EIB für die Frau". Den folgenden Code nutze ich, damit die Dame des Hauses automatisch an den Einnahmetagen an ihre Pille erinnert wird. Sobald nach 19 Uhr das Bad betreten wird, blinkt das Badlicht einmal kurz. Ich hatte auch mal das Abspielen eines "Sounds" ausprobiert.
Draußen habe ich noch einen Taster, so dass der Alarm nochmal reaktiviert werden kann, sofern jemand anders die Funktion durch Betreten des Bads ausgelöst hat.
Man benötigt für die Funktion zwei EIB Items:
EIB1, 1/5/10, pillenalarm, Status|Bad,
EIB5, 1/5/11, pillenalarmtag, Status|Bad,
[highlight=perl]
# ****************************
# ******* PILLENALARM ********
# ****************************
#Hier Zyklustag korrigieren, sofern nicht über VISU möglich
#set $pillenalarmtag '28' if ($Startup);
if ($New_Day) {
set $pillenalarmtag (state $pillenalarmtag + '1');
}
if (state $pillenalarmtag eq '29') {
set $pillenalarmtag '1';
}
if (time_now("19:00") and (state $pillenalarmtag < '22')) {
set $pillenalarm ON;
print "$pillenalarmtag";
print ". Pillenalarmtag \n";
}
if ((state_changed $Badlicht eq ON) and (state $pillenalarm eq ON)) {
print "pillenalarm ausgeloest!! \n";
set $Badlicht 'on~1~off~1~on';
set $pillenalarm OFF;
}
[/highlight]
Draußen habe ich noch einen Taster, so dass der Alarm nochmal reaktiviert werden kann, sofern jemand anders die Funktion durch Betreten des Bads ausgelöst hat.
Man benötigt für die Funktion zwei EIB Items:
EIB1, 1/5/10, pillenalarm, Status|Bad,
EIB5, 1/5/11, pillenalarmtag, Status|Bad,
[highlight=perl]
# ****************************
# ******* PILLENALARM ********
# ****************************
#Hier Zyklustag korrigieren, sofern nicht über VISU möglich
#set $pillenalarmtag '28' if ($Startup);
if ($New_Day) {
set $pillenalarmtag (state $pillenalarmtag + '1');
}
if (state $pillenalarmtag eq '29') {
set $pillenalarmtag '1';
}
if (time_now("19:00") and (state $pillenalarmtag < '22')) {
set $pillenalarm ON;
print "$pillenalarmtag";
print ". Pillenalarmtag \n";
}
if ((state_changed $Badlicht eq ON) and (state $pillenalarm eq ON)) {
print "pillenalarm ausgeloest!! \n";
set $Badlicht 'on~1~off~1~on';
set $pillenalarm OFF;
}
[/highlight]
Kommentar