44 lines
948 B
XML
44 lines
948 B
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<TcPlcObject Version="1.1.0.1">
|
|
<POU Name="FB_HVTester" Id="{63fd7fbb-2896-492c-ad94-827a20571a58}" SpecialFunc="None">
|
|
<Declaration><![CDATA[FUNCTION_BLOCK FB_HVTester EXTENDS FB_PackMLGeneric
|
|
VAR_INPUT
|
|
xOpenChambers : BOOL;
|
|
END_VAR
|
|
VAR_OUTPUT
|
|
END_VAR
|
|
VAR
|
|
xOpenDoor1 AT %Q* : BOOL;
|
|
xOpenDoor2 AT %Q* : BOOL;
|
|
|
|
xCloseDoor1 AT %Q* : BOOL;
|
|
xCloseDoor2 AT %Q* : BOOL;
|
|
|
|
// Chamber is the big cylinder not the door
|
|
xOpenChamber1 AT %Q* : BOOL;
|
|
xOpenChamber2 AT %Q* : BOOL;
|
|
|
|
xCloseChamber1 AT %Q* : BOOL;
|
|
xCloseChamber2 AT %Q* : BOOL;
|
|
END_VAR
|
|
]]></Declaration>
|
|
<Implementation>
|
|
<ST><![CDATA[IF xOpenChambers THEN
|
|
xOpenDoor1 := TRUE;
|
|
xOpenDoor2 := TRUE;
|
|
|
|
xCloseDoor1 := FALSE;
|
|
xCloseDoor2 := FALSE;
|
|
ELSE
|
|
xOpenDoor1 := FALSE;
|
|
xOpenDoor2 := FALSE;
|
|
|
|
xCloseDoor1 := TRUE;
|
|
xCloseDoor2 := TRUE;
|
|
END_IF
|
|
|
|
// Call base sm
|
|
SUPER^();]]></ST>
|
|
</Implementation>
|
|
</POU>
|
|
</TcPlcObject> |