46 lines
1.2 KiB
XML
46 lines
1.2 KiB
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.4024.6">
|
|
<POU Name="FB_Staubsauger" Id="{50cee699-4f80-42b0-957b-fb687074a8d0}" SpecialFunc="None">
|
|
<Declaration><![CDATA[FUNCTION_BLOCK FB_Staubsauger
|
|
VAR_INPUT
|
|
bToggleEnable : BOOL;
|
|
nMOn : INT := 68;
|
|
nMOff : INT := 69;
|
|
END_VAR
|
|
VAR_OUTPUT
|
|
bVacuumOn AT %Q* : BOOL;
|
|
END_VAR
|
|
VAR
|
|
rtToggleEnable : R_TRIG;
|
|
END_VAR
|
|
]]></Declaration>
|
|
<Implementation>
|
|
<ST><![CDATA[rtToggleEnable(CLK := bToggleEnable);
|
|
|
|
IF rtToggleEnable.Q THEN
|
|
bVacuumOn := NOT bVacuumOn;
|
|
END_IF
|
|
|
|
IF CNCSystem.Channel[0].M[nMOn].bState_rw THEN
|
|
bVacuumOn := TRUE;
|
|
CNCSystem.Channel[0].M[nMOn].bState_rw := FALSE;
|
|
END_IF
|
|
|
|
IF CNCSystem.Channel[0].M[nMOff].bState_rw THEN
|
|
bVacuumOn := FALSE;
|
|
CNCSystem.Channel[0].M[nMOff].bState_rw := FALSE;
|
|
END_IF]]></ST>
|
|
</Implementation>
|
|
<LineIds Name="FB_Staubsauger">
|
|
<LineId Id="9" Count="0" />
|
|
<LineId Id="25" Count="3" />
|
|
<LineId Id="15" Count="0" />
|
|
<LineId Id="14" Count="0" />
|
|
<LineId Id="16" Count="0" />
|
|
<LineId Id="19" Count="0" />
|
|
<LineId Id="17" Count="0" />
|
|
<LineId Id="21" Count="3" />
|
|
<LineId Id="20" Count="0" />
|
|
</LineIds>
|
|
</POU>
|
|
</TcPlcObject> |