Added first hmi interface implementation
This commit is contained in:
@@ -7,38 +7,20 @@ VAR_INPUT
|
||||
END_VAR
|
||||
VAR_OUTPUT
|
||||
END_VAR
|
||||
VAR_IN_OUT
|
||||
stHMIInterface : ST_HMI_HVTester;
|
||||
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;
|
||||
stDoorValve : FB_Valve('');
|
||||
stTestChamberValve : FB_Valve('');
|
||||
stReleaseChamberMovement : FB_Valve('');
|
||||
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
|
||||
<ST><![CDATA[
|
||||
|
||||
// Call base sm
|
||||
SUPER^(stPackMLHMIInterface := THIS^.stPackMLHMIInterface);]]></ST>
|
||||
SUPER^(stPackMLHMIInterface := stHMIInterface.stStationCmds);]]></ST>
|
||||
</Implementation>
|
||||
</POU>
|
||||
</TcPlcObject>
|
||||
Reference in New Issue
Block a user