Smoke Control Programs
5-27 Infinity Smoke Control Guide
TOC
Programs for Smoke Control
HornControl
Type:
Program
FlowType:
Fallthru
Description:
Controls the state of the FSCS audible annunciator.
Code:
Object CurrentPoint
String NameStg
Numeric TempHorn
OpenPoints:
If OpenList(“Numeric”, CurrentPoint) = Success then
Goto ReadPoints
Else
Print “ ** Can Not Open Numeric List ** “
CloseList(CurrentPoint)
Stop
Endif
‘Check if name contains “.Fail”,“.OVRR” or “.ALM”
‘If ANY Failure, Override or Alarm is ON, then Turn ON Horn
ReadPoints:
TempHorn = Off
While GetObject(CurrentPoint) = Success
Print CurrentPoint Name to NameStg
If search(NameStg, “.Fail”) or search(NameStg, “.OVRR”) or ~
search(NameStg, “.ALM”) then
If CurrentPoint Value = On then
TempHorn = On
Endif
Endif
Endwhile
ClosePointsList:
If CloseList(CurrentPoint) <> Success then
Print “ ** Can Not Close Numeric List. ** “
Endif
SetHorn:
Status1 = TempHorn
If Main.Key = Off then Horn = TempHorn Else Horn = Off
Stop
Technical Manuals Online! - http://www.tech-man.com