Added more components

PLC/POUs/Components/Utilities/FB_AlarmMessage.TcPOU

@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="utf-8"?>
+<TcPlcObject Version="1.1.0.1">
+  <POU Name="FB_AlarmMessage" Id="{4e628f13-10b9-47d9-8d26-ceb4bcb9bf43}" SpecialFunc="None">
+    <Declaration><![CDATA[FUNCTION_BLOCK FINAL FB_AlarmMessage
+VAR_INPUT
+	xActive : BOOL;
+	xRelease : BOOL;
+	xAcknowledge : BOOL;
+	timOnDelay : TIME := T#0S;
+	timOffDelay : TIME := T#0S;
+	xInUnitTestMode : BOOL := FALSE;
+END_VAR
+VAR_OUTPUT
+END_VAR
+VAR
+	_fbReleaseAlarm : FB_ReleaseSignal;
+	_fbAlarmMessage : FB_TcAlarm;
+END_VAR
+]]></Declaration>
+    <Implementation>
+      <ST><![CDATA[// Filter alarm signal
+_fbReleaseAlarm(
+	xSignal:= xActive, 
+	xRelease:= xRelease, 
+	timOnDelay:= timOnDelay, 
+	timOffDelay:= timOffDelay);
+
+// Raise alarm
+IF _fbReleaseAlarm.xReleaseSignal AND (NOT xInUnitTestMode) AND (NOT _fbAlarmMessage.bRaised) THEN
+	_fbAlarmMessage.Raise(0);
+END_IF
+
+// Clear alarm
+IF ((NOT _fbReleaseAlarm.xReleaseSignal) OR (NOT xRelease)) AND (_fbAlarmMessage.bRaised) THEN
+	_fbAlarmMessage.Clear(0, FALSE);
+END_IF
+
+// Confirm alarm
+IF _fbAlarmMessage.eConfirmationState = TcEventConfirmationState.WaitForConfirmation AND (xAcknowledge OR (NOT xRelease)) THEN
+	_fbAlarmMessage.Confirm(0);
+END_IF]]></ST>
+    </Implementation>
+    <Property Name="Active" Id="{4e7fa79e-e44f-42ff-ab45-0e14a9921a12}">
+      <Declaration><![CDATA[PROPERTY Active : BOOL]]></Declaration>
+      <Get Name="Get" Id="{70df159d-fc9d-44c5-ae42-7d731a5dae12}">
+        <Declaration><![CDATA[VAR
+END_VAR
+]]></Declaration>
+        <Implementation>
+          <ST><![CDATA[Active := _fbAlarmMessage.bActive;]]></ST>
+        </Implementation>
+      </Get>
+    </Property>
+    <Property Name="Arguments" Id="{f40c819a-ad71-4e81-830e-67d02b4e9e2f}">
+      <Declaration><![CDATA[PROPERTY PUBLIC Arguments : I_TcArguments]]></Declaration>
+      <Get Name="Get" Id="{c1b8ca1b-cb6c-4841-8282-61423914cb4e}">
+        <Declaration><![CDATA[VAR
+END_VAR
+]]></Declaration>
+        <Implementation>
+          <ST><![CDATA[Arguments := _fbAlarmMessage.ipArguments;]]></ST>
+        </Implementation>
+      </Get>
+    </Property>
+    <Method Name="FB_init" Id="{59e606ca-879e-463e-9089-6aa9e1011af6}">
+      <Declaration><![CDATA[//FB_Init ist immer implizit verfügbar und wird primär für die Initialisierung verwendet.
+//Der Rückgabewert wird nicht ausgewertet. Für gezielte Einflussnahme können Sie
+//die Methoden explizit deklarieren und darin mit dem Standard-Initialisierungscode 
+//zusätzlichen Code bereitstellen. Sie können den Rückgabewert auswerten.
+METHOD FB_Init: BOOL
+VAR_INPUT    
+bInitRetains: BOOL; // TRUE: Die Retain-Variablen werden initialisiert (Reset warm / Reset kalt)    
+bInCopyCode: BOOL;  // TRUE: Die Instanz wird danach in den Kopiercode kopiert (Online-Change)
+
+stEventEntry : TcEventEntry;
+xWithConfirmation : BOOL;
+END_VAR]]></Declaration>
+      <Implementation>
+        <ST><![CDATA[// Create alarm
+_fbAlarmMessage.CreateEx(stEventEntry := stEventEntry, bWithConfirmation := xWithConfirmation);]]></ST>
+      </Implementation>
+    </Method>
+    <Property Name="Raised" Id="{6c8f10b8-0c5e-4665-b985-30ac574d84e9}">
+      <Declaration><![CDATA[PROPERTY Raised : BOOL]]></Declaration>
+      <Get Name="Get" Id="{0ef44270-1843-4da0-932f-31f831130a1d}">
+        <Declaration><![CDATA[VAR
+END_VAR
+]]></Declaration>
+        <Implementation>
+          <ST><![CDATA[Raised := _fbAlarmMessage.bRaised;]]></ST>
+        </Implementation>
+      </Get>
+    </Property>
+    <Property Name="Triggered" Id="{84255a39-f5bd-41ec-9bb9-56c375350a5b}">
+      <Declaration><![CDATA[PROPERTY Triggered : BOOL]]></Declaration>
+      <Get Name="Get" Id="{1df049dd-1509-4300-b01e-e32eececdb86}">
+        <Declaration><![CDATA[VAR
+END_VAR
+]]></Declaration>
+        <Implementation>
+          <ST><![CDATA[Triggered := _fbReleaseAlarm.xReleaseSignal;]]></ST>
+        </Implementation>
+      </Get>
+    </Property>
+  </POU>
+</TcPlcObject>