Heisig_GmbH/infineon_plc
1
0
Fork 0
Code Issues Activity

First version Tray Feeder ready for test

Browse Source 
- Tray feeder implementation ready for first tests
- Some refactoring of packml function names
- Added .xtv file to project again because of linking issues
- Added hmi button for packml complete command
- Started media cabinet
This commit is contained in:
Matthias Heisig
2026-03-03 14:11:58 +01:00
parent dbfa6fc7cc
commit 0ea0887bb4
17 changed files with 4430 additions and 486 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
PLC/LibraryCandidates/PackML/DUTs/ST_HMI_PackML.TcDUT
View File

@@ -12,6 +12,7 @@ STRUCT
stBtnSuspend : ST_HMI_CONTROL_BUTTON;
stBtnUnhold : ST_HMI_CONTROL_BUTTON;
stBtnUnsuspend : ST_HMI_CONTROL_BUTTON;
stBtnComplete : ST_HMI_CONTROL_BUTTON;
stBtnManualMode : ST_HMI_CONTROL_BUTTON;
stBtnProdMode : ST_HMI_CONTROL_BUTTON;

322
PLC/LibraryCandidates/PackML/POUs/FB_PackMLGeneric.TcPOU
View File

@@ -136,7 +136,7 @@ CASE stStatus.eStateCurrent OF
M_Completing();
E_PackMLState.COMPLETED:
M_Complete();
M_Completed();
ELSE
@@ -179,7 +179,7 @@ IF stPackMLHMIInterface.stBtnClear.xRequest THEN
stPackMLHMIInterface.stBtnClear.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnClear.xRelease THEN
M_Clear();
M_CmdClear();
END_IF
END_IF
@@ -188,7 +188,7 @@ IF stPackMLHMIInterface.stBtnReset.xRequest THEN
stPackMLHMIInterface.stBtnReset.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnReset.xRelease THEN
M_Reset();
M_CmdReset();
END_IF
END_IF
@@ -197,7 +197,7 @@ IF stPackMLHMIInterface.stBtnStart.xRequest THEN
stPackMLHMIInterface.stBtnStart.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnStart.xRelease THEN
M_Start();
M_CmdStart();
END_IF
END_IF
@@ -206,7 +206,7 @@ IF stPackMLHMIInterface.stBtnAbort.xRequest THEN
stPackMLHMIInterface.stBtnAbort.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnAbort.xRelease THEN
M_Abort();
M_CmdAbort();
END_IF
END_IF
@@ -215,7 +215,7 @@ IF stPackMLHMIInterface.stBtnHold.xRequest THEN
stPackMLHMIInterface.stBtnHold.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnHold.xRelease THEN
M_Hold();
M_CmdHold();
END_IF
END_IF
@@ -224,7 +224,7 @@ IF stPackMLHMIInterface.stBtnStop.xRequest THEN
stPackMLHMIInterface.stBtnStop.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnStop.xRelease THEN
M_Stop();
M_CmdStop();
END_IF
END_IF
@@ -233,7 +233,7 @@ IF stPackMLHMIInterface.stBtnSuspend.xRequest THEN
stPackMLHMIInterface.stBtnSuspend.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnSuspend.xRelease THEN
M_Suspend();
M_CmdSuspend();
END_IF
END_IF
@@ -242,7 +242,7 @@ IF stPackMLHMIInterface.stBtnUnhold.xRequest THEN
stPackMLHMIInterface.stBtnUnhold.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnUnhold.xRelease THEN
M_Unhold();
M_CmdUnhold();
END_IF
END_IF
@@ -251,7 +251,16 @@ IF stPackMLHMIInterface.stBtnUnsuspend.xRequest THEN
stPackMLHMIInterface.stBtnUnsuspend.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnUnsuspend.xRelease THEN
M_Unsuspend();
M_CmdUnsuspend();
END_IF
END_IF
// Handle complete button
IF stPackMLHMIInterface.stBtnComplete.xRequest THEN
stPackMLHMIInterface.stBtnComplete.xRequest := FALSE;
IF stPackMLHMIInterface.stBtnComplete.xRelease THEN
M_CmdComplete();
END_IF
END_IF]]></ST>
</Implementation>
@@ -356,25 +365,19 @@ ELSE
stPackMLHMIInterface.stBtnUnsuspend.eFeedback := E_HMI_BUTTON_FEEDBACK.NONE;
END_IF
// Handle complete button
stPackMLHMIInterface.stBtnComplete.xRelease := (stStatus.eStateCurrent = E_PackMLState.EXECUTE) OR (stStatus.eStateCurrent = E_PackMLState.HELD) OR (stStatus.eStateCurrent = E_PackMLState.SUSPENDED);
IF stStatus.eStateCurrent = E_PackMLState.UNSUSPENDING THEN
stPackMLHMIInterface.stBtnComplete.eFeedback := E_HMI_BUTTON_FEEDBACK.ACTIVE;
ELSE
stPackMLHMIInterface.stBtnComplete.eFeedback := E_HMI_BUTTON_FEEDBACK.NONE;
END_IF
// Copy mode and state
stPackMLHMIInterface.eCurrentMode := _eMode;
stPackMLHMIInterface.eCurrentState := stStatus.eStateCurrent;]]></ST>
</Implementation>
</Action>
<Method Name="M_Abort" Id="{a8ac7d94-0639-4bcc-b083-994135ce6951}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_Abort : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent <> E_PackMLState.ABORTED) AND (stStatus.eStateCurrent <> E_PackMLState.ABORTING) THEN
_eCmd := E_PackMLCmd.ABORT;
M_Abort := TRUE;
ELSE
M_Abort := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Aborted" Id="{db1a684f-e4e1-4d89-a3aa-9b9dfde0508c}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Aborted
]]></Declaration>
@@ -408,19 +411,6 @@ END_VAR
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent = E_PackMLState.STOPPED) OR (stStatus.eStateCurrent = E_PackMLState.ABORTED) THEN
_eMode := E_PackMLUnitMode.PRODUCTION;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Clear" Id="{1ae1174f-acb8-4f8a-bc73-ec233f6637b2}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_Clear : BOOL
]]></Declaration>
<Implementation>
<ST><![CDATA[IF stStatus.eStateCurrent = E_PackMLState.ABORTED THEN
_eCmd := E_PackMLCmd.CLEAR;
M_Clear := TRUE;
ELSE
M_Clear := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
@@ -431,11 +421,160 @@ END_IF]]></ST>
<ST><![CDATA[M_StateComplete();]]></ST>
</Implementation>
</Method>
<Method Name="M_Complete" Id="{33df5dea-d83b-48e1-8898-d7c8e1f031bd}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Complete
<Method Name="M_CmdAbort" Id="{a8ac7d94-0639-4bcc-b083-994135ce6951}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdAbort : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[]]></ST>
<ST><![CDATA[IF (stStatus.eStateCurrent <> E_PackMLState.ABORTED) AND (stStatus.eStateCurrent <> E_PackMLState.ABORTING) THEN
_eCmd := E_PackMLCmd.ABORT;
M_CmdAbort := TRUE;
ELSE
M_CmdAbort := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_CmdClear" Id="{1ae1174f-acb8-4f8a-bc73-ec233f6637b2}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdClear : BOOL
]]></Declaration>
<Implementation>
<ST><![CDATA[IF stStatus.eStateCurrent = E_PackMLState.ABORTED THEN
_eCmd := E_PackMLCmd.CLEAR;
M_CmdClear := TRUE;
ELSE
M_CmdClear := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_CmdComplete" Id="{16a08ace-9746-4725-a582-2dedce5a799a}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdComplete : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF stStatus.eStateCurrent = E_PackMLState.EXECUTE THEN
_eCmd := E_PackMLCmd.COMPLETE;
M_CmdComplete := TRUE;
ELSE
M_CmdComplete := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_CmdHold" Id="{63908543-c84a-46a6-803b-0cd0a69ee040}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdHold : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent = E_PackMLState.EXECUTE) OR (stStatus.eStateCurrent = E_PackMLState.SUSPENDED) THEN
_eCmd := E_PackMLCmd.HOLD;
M_CmdHold := TRUE;
ELSE
M_CmdHold := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_CmdReset" Id="{9acdfbad-6477-4a07-aac5-b9a102467964}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdReset : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent = E_PackMLState.STOPPED) OR (stStatus.eStateCurrent = E_PackMLState.COMPLETED) THEN
_eCmd := E_PackMLCmd.RESET;
M_CmdReset := TRUE;
ELSE
M_CmdReset := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_CmdStart" Id="{86eb6432-588a-4480-b09e-72e5733dc716}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdStart : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF stStatus.eStateCurrent = E_PackMLState.IDLE THEN
_eCmd := E_PackMLCmd.START;
M_CmdStart := TRUE;
ELSE
M_CmdStart := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_CmdStop" Id="{8beef0bf-5aa2-4644-ae54-6acbcdaacef4}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdStop : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent <> E_PackMLState.ABORTED)
AND (stStatus.eStateCurrent <> E_PackMLState.ABORTING)
AND (stStatus.eStateCurrent <> E_PackMLState.CLEARING)
AND (stStatus.eStateCurrent <> E_PackMLState.STOPPING)
AND (stStatus.eStateCurrent <> E_PackMLState.STOPPED)
THEN
_eCmd := E_PackMLCmd.STOP;
M_CmdStop := TRUE;
ELSE
M_CmdStop := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_CmdSuspend" Id="{a69941cd-31ee-44b4-9c8b-a7c774e40447}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdSuspend : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF stStatus.eStateCurrent = E_PackMLState.EXECUTE THEN
_eCmd := E_PackMLCmd.SUSPEND;
M_CmdSuspend := TRUE;
ELSE
M_CmdSuspend := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_CmdUnhold" Id="{6af8dbfd-0422-459a-b99f-09e9246d2621}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdUnhold : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent = E_PackMLState.HELD) THEN
_eCmd := E_PackMLCmd.UNSUSPEND;
M_CmdUnhold := TRUE;
ELSE
M_CmdUnhold := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_CmdUnsuspend" Id="{ff6f4f4b-4bc6-47f7-a257-a2bcea2d6ae3}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_CmdUnsuspend : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent = E_PackMLState.SUSPENDED) THEN
_eCmd := E_PackMLCmd.UNSUSPEND;
M_CmdUnsuspend := TRUE;
ELSE
M_CmdUnsuspend := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Completed" Id="{33df5dea-d83b-48e1-8898-d7c8e1f031bd}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Completed
]]></Declaration>
<Implementation>
<ST><![CDATA[IF stStatus.eStateCurrent = E_PackMLState.EXECUTE THEN
_eCmd := E_PackMLCmd.COMPLETE;
M_Completed := TRUE;
ELSE
M_Completed := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Completing" Id="{341608cb-1218-481f-929c-cb79602c11ab}" FolderPath="States\">
@@ -459,20 +598,6 @@ END_IF]]></ST>
<ST><![CDATA[]]></ST>
</Implementation>
</Method>
<Method Name="M_Hold" Id="{63908543-c84a-46a6-803b-0cd0a69ee040}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_Hold : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent = E_PackMLState.EXECUTE) OR (stStatus.eStateCurrent = E_PackMLState.SUSPENDED) THEN
_eCmd := E_PackMLCmd.HOLD;
M_Hold := TRUE;
ELSE
M_Hold := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Holding" Id="{519b03b3-2409-4b45-818f-535b3e16b22e}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Holding
]]></Declaration>
@@ -487,20 +612,6 @@ END_IF]]></ST>
<ST><![CDATA[]]></ST>
</Implementation>
</Method>
<Method Name="M_Reset" Id="{9acdfbad-6477-4a07-aac5-b9a102467964}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_Reset : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent = E_PackMLState.STOPPED) OR (stStatus.eStateCurrent = E_PackMLState.COMPLETED) THEN
_eCmd := E_PackMLCmd.RESET;
M_Reset := TRUE;
ELSE
M_Reset := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Resetting" Id="{4050ed6f-edbe-4c3e-ac42-919a37a47ea9}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Resetting
]]></Declaration>
@@ -508,20 +619,6 @@ END_IF]]></ST>
<ST><![CDATA[M_StateComplete();]]></ST>
</Implementation>
</Method>
<Method Name="M_Start" Id="{86eb6432-588a-4480-b09e-72e5733dc716}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_Start : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF stStatus.eStateCurrent = E_PackMLState.IDLE THEN
_eCmd := E_PackMLCmd.START;
M_Start := TRUE;
ELSE
M_Start := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Starting" Id="{0059e7f6-5f2a-40e4-9d9b-652f221495a9}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Starting
]]></Declaration>
@@ -540,25 +637,6 @@ _iSSM := 0;
_fbStateMachine.M_StateComplete();]]></ST>
</Implementation>
</Method>
<Method Name="M_Stop" Id="{8beef0bf-5aa2-4644-ae54-6acbcdaacef4}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_Stop : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent <> E_PackMLState.ABORTED)
AND (stStatus.eStateCurrent <> E_PackMLState.ABORTING)
AND (stStatus.eStateCurrent <> E_PackMLState.CLEARING)
AND (stStatus.eStateCurrent <> E_PackMLState.STOPPING)
AND (stStatus.eStateCurrent <> E_PackMLState.STOPPED)
THEN
_eCmd := E_PackMLCmd.STOP;
M_Stop := TRUE;
ELSE
M_Stop := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Stopped" Id="{9f8a09cf-f3be-4d60-b5e4-cd9572fae88c}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Stopped
]]></Declaration>
@@ -573,20 +651,6 @@ END_IF]]></ST>
<ST><![CDATA[M_StateComplete();]]></ST>
</Implementation>
</Method>
<Method Name="M_Suspend" Id="{a69941cd-31ee-44b4-9c8b-a7c774e40447}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_Suspend : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF stStatus.eStateCurrent = E_PackMLState.EXECUTE THEN
_eCmd := E_PackMLCmd.SUSPEND;
M_Suspend := TRUE;
ELSE
M_Suspend := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Suspended" Id="{222c3ad7-f7d5-4773-8e98-863345472053}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Suspended
]]></Declaration>
@@ -601,20 +665,6 @@ END_IF]]></ST>
<ST><![CDATA[M_StateComplete();]]></ST>
</Implementation>
</Method>
<Method Name="M_Unhold" Id="{6af8dbfd-0422-459a-b99f-09e9246d2621}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_Unhold : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent = E_PackMLState.HELD) THEN
_eCmd := E_PackMLCmd.UNSUSPEND;
M_Unhold := TRUE;
ELSE
M_Unhold := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Unholding" Id="{662dd054-329b-4e57-ba77-486f92af795a}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Unholding
]]></Declaration>
@@ -622,20 +672,6 @@ END_IF]]></ST>
<ST><![CDATA[M_StateComplete();]]></ST>
</Implementation>
</Method>
<Method Name="M_Unsuspend" Id="{ff6f4f4b-4bc6-47f7-a257-a2bcea2d6ae3}" FolderPath="Commands\">
<Declaration><![CDATA[METHOD M_Unsuspend : BOOL
VAR_INPUT
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF (stStatus.eStateCurrent = E_PackMLState.SUSPENDED) THEN
_eCmd := E_PackMLCmd.UNSUSPEND;
M_Unsuspend := TRUE;
ELSE
M_Unsuspend := FALSE;
END_IF]]></ST>
</Implementation>
</Method>
<Method Name="M_Unsuspending" Id="{80fb11c4-916a-4f8f-9cf9-b9a2d51524a1}" FolderPath="States\">
<Declaration><![CDATA[METHOD PROTECTED M_Unsuspending
]]></Declaration>