[Codebeispiel] EibPC Snipplets sammeln

[Bodo]

Hoi

Dann fang' ich mal an:

Ich wollte sehen wie lange schon keine Bewegung erkannt wurde in meiner Wohnung.
[highlight=epc]
[WebServer]
pbutton(AnwID)[INFO]$Keine Bewegung seit$
[EibPC]
InfoSID=1
AnwID=21
// Anwesenheit durch Erkennung ---------
// Eine Zeit in Minuten ausgeben, seit der niemand erkannt wurde
minz=0u32
mi=stime(1)
if (mi) then {
minz=minz+1u32;
pdisplay(AnwID,convert(minz,$$)+$ min$,INFO,DISPLAY,GREEN,InfoSID)
}endif
if (event("Bewegung Entree-0/6/0") or event("Bewegung Küche-0/6/1") or event("Bewegung Bad-0/6/2") or event("Bewegung WC-0/6/3")) then {
minz=0u32
}endif
[/highlight]

[Bodo]

Hoi

Wenn ich dusche soll der jeweilige BWM nachgetriggert werden
Ich habe 1-Wire Sensoren am WW der Duschen und der Badewanne
Keine Raketentechnik
[highlight=epc]
[EibPC]
// Licht Dusche länger an, kein Fenster ---------------------
if cycle(01,00) then {
if ("Temp WW WC Dusche-3/0/30" >= 28.0f16) then {
write("ExTri WC-0/6/13",EIN)
}endif
}endif

// Licht Bad länger an, mit Fenster ------------------------
if cycle(01,00) then {
if ("Temp WW Bad Dusche-3/0/31" >= 28.0f16) and ("Lichtwert Bad-0/5/2" <= 70.0f16 ) then {
write("ExTri Bad-0/6/12",EIN)
}endif
}endif
[/highlight]