Humidistat Fan Control With Key Overide and Fallback

[muppets]

Hi everyone,

My first code example please don't pick it to pieces however any comments/suggestions will be greatly accepted. ;)

This code was designed so that an exhaust fan can be switched by a sensor with standard n/o n/c contacts but can also be overriden for a length of time or until repressed (some alteration for this to occur). After timing out will go back to the initial controlling sensor.

A similar event can be set up with the toolkit gui however the fallback event, as I found out, would not implement correctly.

enjoy


{Constants}

{ This is the timer used by the Ensuite Fan key input }
ensuiteFanKeyTimer = 2;



{ module }

{ Makes the ensuite fan turn off or on for a
specified time depending on what inputs are
active and will return to the state of the
humidistat or vice versa giving complete
control from either input with overiding
command from key input }

{ Similar coding could be used to step multiple
functions from one key input ie fan control or
any other function up to 256 different steps -
if key pressed and trigger 0 then triggerlevset
= 1 etc }

{ 40 is the key input, 38 is the aux input (steam
sensor n/o contacts), 19 is the fan relay tag,
trigger 001 is a trigger control that depicts what
the key press was to do (on/off or go to middle "idle"
state idle meaning neither off nor on) }

{ ensuiteFanKeyTimer is the timer that returns control to the
aux input on expiry, the aux input also has a custom
timer set up as: sp = on key
sr = retrig
lp = on key
lr = retrig
with the timer time selected through the block and off
key for expiry, the key input is configured as a bell
press. }

{ Two scenes created for fan on and fan off - this was
only opted for as a warning developed from sending
multiple c-bus commands if the setcbusstate 19 was
used? The state should only be sent with the once
as far as I can tell. }


once GetCBusState(254, "Lighting", 40) = ON then
begin
if GetCBusState(254, "Lighting", 19) = OFF then
begin
SetTriggerLevel(001, 255);
TimerStart(ensuiteFanKeyTimer)
end
else if GetCBusState(254, "Lighting", 19) = ON then
SetTriggerLevel(001, 0);
TimerStart(ensuiteFanKeyTimer);
end;

{ Have left timertime 10s for example/testing }

if TimerTime(ensuiteFanKeyTimer) = "00:00:10" then
begin
TimerStop(ensuiteFanKeyTimer);
SetTriggerLevel(001, 127);
end;

once GetCBusState(254, "Lighting", 38) = ON then
if GetTriggerLevel(001) = 0
then if GetCBusState(254, "Lighting", 19) = ON
then SetScene("Ensuite Fan OFF");


once GetCBusState(254, "Lighting", 38) = ON then
if GetTriggerLevel(001) = 255
then if GetCBusState(254, "Lighting", 19) = OFF
then SetScene("Ensuite Fan ON");


once GetCBusState(254, "Lighting", 38) = OFF then
if GetTriggerLevel(001) = 127
then if GetCBusState(254, "Lighting", 19) = ON
then SetScene("Ensuite Fan OFF");


once GetCBusState(254, "Lighting", 38) = OFF then
if GetTriggerLevel(001) = 255
then if GetCBusState(254, "Lighting", 19) = OFF
then SetScene("Ensuite Fan ON");


once GetCBusState(254, "Lighting", 38) = OFF then
if GetTriggerLevel(001) = 0
then if GetCBusState(254, "Lighting", 19) = ON
then SetScene("Ensuite Fan OFF");


once GetCBusState(254, "Lighting", 38) = ON then
if GetTriggerLevel(001) = 127
then if GetCBusState(254, "Lighting", 19) = OFF
then SetScene("Ensuite Fan ON");

{ Extra statements with reverse conditions don't
know if this is needed/helpful however code is
working at present and I don't want to spend
any more time messing with it. }

once GetTriggerLevel(001) = 0 then
if GetCBusState(254, "Lighting", 38) = ON
then if GetCBusState(254, "Lighting", 19) = ON
then SetScene("Ensuite Fan OFF");


once GetTriggerLevel(001) = 255 then
if GetCBusState(254, "Lighting", 38) = ON
then if GetCBusState(254, "Lighting", 19) = OFF
then SetScene("Ensuite Fan ON");


once GetTriggerLevel(001) = 127 then
if GetCBusState(254, "Lighting", 38) = OFF
then if GetCBusState(254, "Lighting", 19) = ON
then SetScene("Ensuite Fan OFF");


once GetTriggerLevel(001) = 255 then
if GetCBusState(254, "Lighting", 38) = OFF
then if GetCBusState(254, "Lighting", 19) = OFF
then SetScene("Ensuite Fan ON");


once GetTriggerLevel(001) = 0 then
if GetCBusState(254, "Lighting", 38) = OFF
then if GetCBusState(254, "Lighting", 19) = ON
then SetScene("Ensuite Fan OFF");


once GetTriggerLevel(001) = 127 then
if GetCBusState(254, "Lighting", 38) = ON
then if GetCBusState(254, "Lighting", 19) = OFF
then SetScene("Ensuite Fan ON");


Let me know if there is any way I can improve it.

I ended up using a humidistat from rs components - only decent looking one I could find though not cheap nice small footprint. http://www.rsaustralia.com/cgi-bin/bv/rswww/searchBrowseAction.do?Nr=avl%3aau&N=4294753228&name=SiteStandard&forwardingPage=line&R=0540558&callingPage=/jsp/browse/browse.jsp&BV_SessionID=@@@@1708883295.1194906682@@@@&BV_EngineID=ccceaddmghgdifecefeceeldgondhgn.0&cacheID=aunetscape