|
Home
| |
Motion detectors in the bathroom are only useful if the
person in the bathroom is mobile. The second they jump behind a curtain or
stop moving for some other reason (insert reason here) the notion of watching
for movement becomes obsolete. This doesn't mean the motion detector is
useless in the bathroom; it just means we need to augment the detection
equipment with another method. Another thought worthy of mention is we want
the lights in the bathroom to turn off as quickly as possible since they do
spend a large amount of the time unoccupied.
There are some basic rules with regards to the
bathroom:
- If you are inside and the door is closed, chances
are you might not be moving for a while but don't want the lights turning
off while you are inside.
- After the door is closed and it opens, chances are
you are finished and the lights are no longer required.
- If the door is open and there is motion detected,
chances are you need some light.
So keeping in mind there are still motion detectors in
the main bathrooms, the events get just a little trickier... The main bath
motion event:
BEGINIF PLC-Button H Is 9/On
-> Motion detector transmits H/09
Then Text-A T1<-T1 Text, H9
-> Build a log message
Then Text-A Set <Space>
Then Text-A T1/A<-Stt PLC-Command H
Then Text-A Set Log
-> Send it to the log
If Door, Bath, Up Is Off
-> Check the bathroom door
Then Timer, Bath, Up Set 90
-> If door is open, set timer to 90
ENDIF
;----------------------------------------------------------------
BEGINIF PLC-Button H Is 9/Off
-> Here we only log the activity of
Then Text-A T1<-T1 Text, H9
-> the motion detector
transmitting
Then Text-A Set <Space>
-> 'no motion'
Then Text-A T1/A<-Stt PLC-Command H
Then Text-A Set Log
ENDIF
The main bath timer:
If Timer, Bath, Up Is GE 1
-> Set an item to follow
the motion
Then Motion, Bath, Up Set On
-> detection of the
room. This is
Else Motion, Bath, Up Set Off
-> used by "Sign of
Life".
If Timer, Bath, Up Is Now 1
-> When the timer is
allowed to
Then Rm, Bath, Up Set 0
-> expire, turn off the
lights
Then Event-Call Set Rm, Bath, Up
BEGINIF Timer, Bath, Up Is GT Now 45
-> Any time the timer
becomes >45 sec
BEGINIF Awake Is True
-> While state of house is
known as awake
Then Rm, Bath, Up Set 1
-> Proceed to turn lights
on at full
ENDIF
-> intensity.
BEGINIF Awake Is False
-> While state of house is
know as sleeping
If Time Is GT Awake Time
-> While it is before
midnight
Then Rm, Bath, Up Set 5
-> Set lights at 50%
If Time Is LE Awake Time
-> While it is after
midnight
Then Rm, Bath, Up Set 3
-> Set lights at 30%
ENDIF
Do Event-Call Set Rm, Bath, Up
-> Run event to turn
lights to desired
ENDIF
-> setting.
Finally, the simple door closing/opening event:
If Door, Bath, Up Is Now On
-> Door closes
Then Text-A T1<-T1 Text, Door, Bath, Main
-> Log event
Then Text-A Set <Space>
Then Text-A T1/A<-T1 Text, Closed
Then Text-A Set Log
Then Timer, Bath, Up Set 3600
-> Set timer (note the really
long time here)
If Door, Bath, Up Is Now Off
-> Door opens
Then Text-A T1<-T1 Text, Door, Bath, Main
-> Log event
Then Text-A Set <Space>
Then Text-A T1/A<-T1 Text, Open
Then Text-A Set Log
Then Timer, Bath, Up Set 10
-> Set timer so light will turn
off in 10 sec
Then Rm, Bath, Up Set 0
-> Turn light off now (this
allows for X10 mishaps)
Then Event-Call Set Rm, Bath, Up |
