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

21
PLC/00_Main/PRG_Main.TcPOU
View File

@@ -7,7 +7,7 @@ VAR
_fbHVTester : FB_HVTester;
_fbEtcher1 : FB_Etcher;
_fbEtcher2 : FB_Etcher;
_fbTrayFeederInput : FB_TrayFeeder(sIPAddr := '192.168.1.10', udiPort := 5000);
_fbTrayFeederInput : FB_TrayFeeder(sIPAddr := '192.168.0.41', udiPort := 1337);
_fbHeatCoolPlates : FB_HeatCoolPlates;
_fbAligner : FB_Aligner;
@@ -20,7 +20,7 @@ VAR
_stRobotJobParams : ST_KukaRobot_JobParams;
_stUnitFeedbacks : ST_KukaRobot_UnitFeedbacks;
_stCamResult AT %I* : ST_TrayFeederCamPosData;
stCamResult AT %I* : ST_TrayFeederCamPosData;
_rtStopRobotFromSafety : R_TRIG;
@@ -36,8 +36,8 @@ VAR
_xStartCycle : BOOL;
_xStartTrigger : BOOL;
_tofTriggerTime : TOF := (PT := T#1S);
_xTriggerCamera AT %Q* : BOOL;
_tofTriggerTime : TOF;
xTriggerCamera AT %Q* : BOOL;
_iState : INT;
END_VAR
@@ -177,17 +177,22 @@ CASE _iState OF
// Align blank
40:
;
ELSE
// Nothing to do here
;
END_CASE
// =====
// DEBUG
// =====
_tofTriggerTime(IN := _xStartTrigger);
_tofTriggerTime(IN := _xStartTrigger, PT := T#1S);
IF _xStartTrigger THEN
_xStartTrigger := FALSE;
END_IF
_xTriggerCamera := _tofTriggerTime.Q;
xTriggerCamera := _tofTriggerTime.Q;
// Reset alarm reset request
GVL_SCADA.xErrAck := FALSE;
@@ -383,6 +388,10 @@ CASE _iState OF
ELSE
_iState := 90;
END_CASE
ELSE
// Nothing to do here
;
END_CASE]]></ST>
</Implementation>
</Method>