Heisig_GmbH/infineon_plc
1
0
Fork 0
Code Issues Activity

Some refactoring after static code analysis

Browse Source
This commit is contained in:
Matthias Heisig
2026-02-08 12:48:29 +01:00
parent bdaaf1fe9f
commit 69ef2c6904
43 changed files with 3244 additions and 1097 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
PLC/00_Main/PRG_Safety.TcPOU
View File

@@ -8,34 +8,37 @@ VAR_INPUT
END_VAR
VAR_OUTPUT
xStopRobot : BOOL := FALSE;
xEStopOk AT %I* : BOOL;
END_VAR
VAR
_xRun AT %Q* : BOOL;
_xEStopOk AT %I* : BOOL;
xComStartup AT %I* : BOOL;
xRequestOpenDoor AT %I* : BOOL;
_xRequestOpenDoor AT %I* : BOOL;
_rtrigDoorUnlock : R_TRIG;
xRun AT %Q* : BOOL;
xErrorAck AT %Q* : BOOL;
xLockDoor AT %Q* : BOOL := TRUE;
_xLockDoor AT %Q* : BOOL := TRUE;
_rtDoorUnlock : R_TRIG;
_tofErrorAck : TOF;
_xComStartup AT %I* : BOOL;
_xErrorAck AT %Q* : BOOL;
_tofErrorAck : TOF := (PT := T#500MS);
_xStopRobot : BOOL;
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[_xRun := NOT _xComStartup;
<ST><![CDATA[xRun := NOT xComStartup;
_rtrigDoorUnlock(CLK := _xRequestOpenDoor AND xRobotStopped);
IF _rtrigDoorUnlock.Q THEN
xStopRobot := (NOT xStopRobot);
_xLockDoor := (NOT _xLockDoor);
_rtDoorUnlock(CLK := xRequestOpenDoor AND xRobotStopped);
IF _rtDoorUnlock.Q THEN
_xStopRobot := (NOT _xStopRobot);
xLockDoor := (NOT xLockDoor);
END_IF
// Reset safety group errors
_tofErrorAck(IN:= xConfirmAlarms, PT:= T#500MS, Q=> _xErrorAck, ET=> );]]></ST>
_tofErrorAck(IN:= xConfirmAlarms, PT:= T#500MS, Q=> xErrorAck, ET=> );
// Copy internal signals to outputs
xStopRobot := _xStopRobot;]]></ST>
</Implementation>
</POU>
</TcPlcObject>