Initial

2026-01-08 11:08:17 +01:00
commit fe882dc444
311 changed files with 511562 additions and 0 deletions
--- a/Spinner/POUs/Peripherie/Vibration
+++ b/Spinner/POUs/Peripherie/Vibration
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="utf-8"?>
+<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.4026.11">
+  <POU Name="VibrationSensor_FB" Id="{72206c36-fd9e-4751-945b-6ea622ca85b7}" SpecialFunc="None">
+    <Declaration><![CDATA[FUNCTION_BLOCK VibrationSensor_FB EXTENDS Peripherie_FB
+VAR_INPUT
+	AddressError	:	INT;
+END_VAR
+VAR_OUTPUT
+	bIn		AT %I* 	: 	BOOL := TRUE;
+END_VAR
+]]></Declaration>
+    <Implementation>
+      <ST><![CDATA[DelayTimer(IN := TRUE, PT := T#5S);
+(*IF NOT Error THEN
+	IF NOT bIn AND DelayTimer.Q THEN
+		Error := TRUE;
+		error_index := AlarmSend(iStation,AddressError,FALSE, eReportType.Error, sAvailableResponse.Retry, FALSE);
+	END_IF
+END_IF*)
+
+AlarmSend(iStation,AddressError,FALSE, eReportType.Error, sAvailableResponse.Retry, bIn OR NOT DelayTimer.Q);
+
+ErrorHandling();]]></ST>
+    </Implementation>
+    <Method Name="Initialization" Id="{51183c51-5ded-44b7-8b98-8eaf64eeae4b}">
+      <Declaration><![CDATA[METHOD Initialization : BOOL
+VAR_INPUT
+	iStation		:	INT;
+	AddressError	:	INT;
+END_VAR
+]]></Declaration>
+      <Implementation>
+        <ST><![CDATA[PeripherieInitialization(iStation);
+
+THIS^.AddressError	:=	AddressError;]]></ST>
+      </Implementation>
+    </Method>
+  </POU>
+</TcPlcObject>