Issue
Need sample PE program for control of access to a storage cage gate by forklift operators where the gate is required to stay open (up) until the forklift operator cards at the reader a second time on his/her way out of the cage.
Product Line
Andover Continuum
Environment
- Continuum Net Controller II
- Continuum ACX 2 Controller
- Continuum ACX 4 Controller
Cause
Continuum PE programming guidelines
Resolution
This sample program was provided as proof of concept only and not intended as a complete solution to the use case.
Object : StorageCageControl
Type : InfinityProgram
LastChange : 1/29/2020 11:29:14 AM
DeviceId : PSS\ACX2.10
Alias : StorageCageContr
CreateTime : 1/29/2020 9:59:56 AM
CreatedBy : Root\Acc
TimeLocked : 1/29/2020 11:29:14 AM
InstanceId : 7003/7002
ByteCode :
'SAMPLE program for controlling access to a Storage Cage gate 1/29/2020 AM
'Program is LOOPING/AUTOSTART
'
'DESCRIPTION
'On valid access to the cage by forklift operator, program will unlock the gate using the
' PermanentUnlock property to keep it unlocked until the forklift operator indicates the gate
'can be closed by presenting his/her card at the card reader.
'
'REQUIREMENTS
'1. ACX2 or NC2 controller only, program wont work in NC1 or old ACX7xx as they don't support the PermanentUnlock flag
'2. Set the StrikeTime attribute of the door controlling the gate to ZERO
'3. Create GateLeftOpenALM InfinityNumeric, and attach to an alarm (Optional)
Numeric CloseTimeOut
Line Init
CloseTimeOut = 15 'Notify gate may have been left open after CloseTimeOut minutes.
Goto WaitToOpen
Line WaitToOpen
GateLeftOpenALM = False
If CageGate ValidAccess then
CageGate PermanentUnlock = True
Goto WaitToClose
Endif
Line WaitToClose
If CageGate ValidAccess then
CageGate PermanentUnlock = False
Goto WaitToOpen
Endif
If TM >= CloseTimeOut then GateLeftOpenALM = True 'Gate may have been accidentally left open
Line E
'oops, runtime error, wait a bit then try again
If TS > 30 then Goto Init
EndByteCode
Status : Active
EndObject
