Added AnalogInput

TwinCAT Projekt1/PLC/POUs/Tests/MAIN_TESTS.TcPOU

@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="utf-8"?>
+<TcPlcObject Version="1.1.0.1">
+  <POU Name="MAIN_TESTS" Id="{c66c285f-4cfe-4893-8066-e22fe681dd3f}" SpecialFunc="None">
+    <Declaration><![CDATA[PROGRAM MAIN_TESTS
+VAR
+	_fbMachine : FB_Machine(0, 'Machine');
+	
+	// Startup state machine
+	_iState : INT := 0;
+END_VAR
+]]></Declaration>
+    <Implementation>
+      <ST><![CDATA[CASE _iState OF
+	0:
+		IF IsSuccessful(_fbMachine.InitialOP()) THEN
+			_fbMachine.CyclicOP();
+			_iState := 10;
+		END_IF
+		
+	10:
+		_fbMachine.CyclicOP();
+END_CASE]]></ST>
+    </Implementation>
+  </POU>
+</TcPlcObject>