Initial

2026-01-08 11:08:17 +01:00
commit fe882dc444
311 changed files with 511562 additions and 0 deletions
--- a/HV/ITV2050/ITV2050_FB.TcPOU
+++ b/HV/ITV2050/ITV2050_FB.TcPOU
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="utf-8"?>
+<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.4026.12">
+  <POU Name="ITV2050_FB" Id="{c5fa7a12-b8fc-489d-8717-9d5876e2bc1d}" SpecialFunc="None">
+    <Declaration><![CDATA[FUNCTION_BLOCK ITV2050_FB
+VAR_INPUT
+	rOutTargetPressure			:	LREAL;
+END_VAR
+VAR_OUTPUT
+	rInCurrentPressure			:	LREAL;
+END_VAR
+VAR
+	OutTargetPressure		AT	%Q*	:	UINT;
+	InCurrentPressure		AT	%I*	:	UINT;
+
+	Dummy							:	LREAL;
+END_VAR
+]]></Declaration>
+    <Implementation>
+      <ST><![CDATA[Dummy := rOutTargetPressure;
+Dummy := Dummy/9;
+Dummy := Dummy * 4100;
+
+OutTargetPressure := LREAL_TO_UINT(Dummy);
+
+rInCurrentPressure := InCurrentPressure;
+
+rInCurrentPressure := rInCurrentPressure/4100;
+rInCurrentPressure := rInCurrentPressure*9;]]></ST>
+    </Implementation>
+    <Method Name="Check" Id="{e4f9e6e7-bf7d-4a13-b768-5d80de8f56e3}">
+      <Declaration><![CDATA[METHOD Check : BOOL
+VAR_INPUT
+END_VAR
+]]></Declaration>
+      <Implementation>
+        <ST><![CDATA[Check := ABS(rOutTargetPressure - rInCurrentPressure) < 0.1;]]></ST>
+      </Implementation>
+    </Method>
+  </POU>
+</TcPlcObject>