71 lines
2.0 KiB
XML
71 lines
2.0 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<TcPlcObject Version="1.1.0.1">
|
|
<POU Name="MAIN" Id="{253d06d0-7abd-4394-b68c-5ffd2aaf348a}" SpecialFunc="None">
|
|
<Declaration><![CDATA[PROGRAM MAIN
|
|
VAR
|
|
_fbScheduler : FB_Scheduler;
|
|
|
|
_xInitDone : BOOL;
|
|
|
|
// Stations
|
|
_fbInput : FB_Input;
|
|
_fbEtcher : FB_Etcher;
|
|
_fbHVTest : FB_HVTest;
|
|
_fbOutput : FB_Output;
|
|
_fbNIO : FB_NIO;
|
|
|
|
// Example recipe
|
|
_stRecipeSimple : ST_Recipe;
|
|
END_VAR
|
|
]]></Declaration>
|
|
<Implementation>
|
|
<ST><![CDATA[IF (NOT _xInitDone) THEN
|
|
_xInitDone := TRUE;
|
|
A_Init();
|
|
END_IF
|
|
|
|
// Call all stations
|
|
_fbInput();
|
|
_fbEtcher();
|
|
_fbHVTest();
|
|
_fbOutput();
|
|
_fbNIO();
|
|
|
|
// Call scheduler
|
|
_fbScheduler();]]></ST>
|
|
</Implementation>
|
|
<Action Name="A_Init" Id="{203d4406-b6da-4e3d-8378-ac96a0e18ff2}">
|
|
<Implementation>
|
|
<ST><![CDATA[// Register stations to scheduler
|
|
_fbScheduler.M_ClearStations();
|
|
|
|
_fbScheduler.M_Register(_fbInput);
|
|
_fbScheduler.M_Register(_fbEtcher);
|
|
_fbScheduler.M_Register(_fbHVTest);
|
|
_fbScheduler.M_Register(_fbOutput);
|
|
_fbScheduler.M_Register(_fbNIO);
|
|
|
|
|
|
// Create simple recipe
|
|
_stRecipeSimple.uiRecipeID := 1;
|
|
_stRecipeSimple.uiStartNode := 0;
|
|
_stRecipeSimple.uiNodeCnt := 3;
|
|
|
|
// Process nodes
|
|
_stRecipeSimple.astNodes[0].uiNodeID := 1;
|
|
_stRecipeSimple.astNodes[0].dwReqCap := 16#0001;
|
|
_stRecipeSimple.astNodes[0].uiTransCnt := 1;
|
|
_stRecipeSimple.astNodes[0].astTransitions[0].eCondition := E_TransitCond.ALWAYS;
|
|
_stRecipeSimple.astNodes[0].astTransitions[0].uiNextNodeID := 1;
|
|
|
|
_stRecipeSimple.astNodes[1].uiNodeID := 1;
|
|
_stRecipeSimple.astNodes[1].dwReqCap := 16#0001;
|
|
_stRecipeSimple.astNodes[1].uiTransCnt := 2;
|
|
_stRecipeSimple.astNodes[1].astTransitions[0].eCondition := E_TransitCond.RESULT_OK;
|
|
_stRecipeSimple.astNodes[1].astTransitions[0].uiNextNodeID := 3;
|
|
_stRecipeSimple.astNodes[1].astTransitions[1].eCondition := E_TransitCond.RESULT_NIO;
|
|
_stRecipeSimple.astNodes[1].astTransitions[1].uiNextNodeID := 4;]]></ST>
|
|
</Implementation>
|
|
</Action>
|
|
</POU>
|
|
</TcPlcObject> |