Initial commit

TC3_CNCPLCBase/OEM/FB_Staubsauger.TcPOU

@@ -0,0 +1,46 @@
+<?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>