Iso and leackage error messages added

This commit is contained in:
Matthias Heisig
2024-09-10 16:54:17 +02:00
parent d9f39953a0
commit 39a02352f6
6 changed files with 461 additions and 259 deletions

View File

@@ -105,6 +105,15 @@ VAR
// Units out of balance alarm
_fbUnitsOutOfBalanceAlarm : FB_TcAlarm;
// Leackage tank alarm
_fbLeackageTankAlarm : FB_TcAlarm;
// Leackage Segment 1/2 alarm
_fbLeackageSegment12Alarm : FB_TcAlarm;
// Leackage Segemnt 3/4 alarm
_fbLeackageSegment34Alarm : FB_TcAlarm;
// Connection lost alarm
_fbConnLostAlarm : FB_TcAlarm;
@@ -156,6 +165,54 @@ IF _fbConnLostAlarm.eConfirmationState = TcEventConfirmationState.WaitForConfirm
END_IF
// ===============================
// Leackage tank error (1 - OK; 0 - Leackage)
// ===============================
IF (NOT xLeakageTank) AND (NOT _fbLeackageTankAlarm.bRaised) AND xReleaseErrors THEN
_fbLeackageTankAlarm.Raise(0);
END_IF
IF xLeakageTank AND _fbLeackageTankAlarm.bRaised THEN
_fbLeackageTankAlarm.Clear(0, FALSE);
END_IF
IF _fbLeackageTankAlarm.eConfirmationState = TcEventConfirmationState.WaitForConfirmation AND xConfirmAlarms THEN
_fbLeackageTankAlarm.Confirm(0);
END_IF
// ===============================
// Leackage Unit 1/2 error (1 - OK; 0 - Leackage)
// ===============================
IF (NOT xLeakageSegments12) AND (NOT _fbLeackageSegment12Alarm.bRaised) AND xReleaseErrors THEN
_fbLeackageSegment12Alarm.Raise(0);
END_IF
IF xLeakageSegments12 AND _fbLeackageSegment12Alarm.bRaised THEN
_fbLeackageSegment12Alarm.Clear(0, FALSE);
END_IF
IF _fbLeackageSegment12Alarm.eConfirmationState = TcEventConfirmationState.WaitForConfirmation AND xConfirmAlarms THEN
_fbLeackageSegment12Alarm.Confirm(0);
END_IF
// ===============================
// Leackage Unit 3/4 error (1 - OK; 0 - Leackage)
// ===============================
IF (NOT xLeakageSegments34) AND (NOT _fbLeackageSegment34Alarm.bRaised) AND xReleaseErrors THEN
_fbLeackageSegment34Alarm.Raise(0);
END_IF
IF xLeakageSegments34 AND _fbLeackageSegment34Alarm.bRaised THEN
_fbLeackageSegment34Alarm.Clear(0, FALSE);
END_IF
IF _fbLeackageSegment34Alarm.eConfirmationState = TcEventConfirmationState.WaitForConfirmation AND xConfirmAlarms THEN
_fbLeackageSegment34Alarm.Confirm(0);
END_IF
// ===============================
// Unit 1
// ===============================
@@ -481,7 +538,14 @@ _fbConnLostAlarm.ipArguments.Clear().AddString(_sName);
// Create leakage alarm messages
]]></ST>
_fbLeackageTankAlarm.CreateEx(stEventEntry := TC_EVENTS.General.LeakageTank, bWithConfirmation := TRUE, 0);
_fbLeackageTankAlarm.ipArguments.Clear().AddString(_sName);
_fbLeackageSegment12Alarm.CreateEx(stEventEntry := TC_EVENTS.General.LeakageDS12, bWithConfirmation := TRUE, 0);
_fbLeackageSegment12Alarm.ipArguments.Clear().AddString(_sName);
_fbLeackageSegment34Alarm.CreateEx(stEventEntry := TC_EVENTS.General.LeakageDS34, bWithConfirmation := TRUE, 0);
_fbLeackageSegment34Alarm.ipArguments.Clear().AddString(_sName);]]></ST>
</Implementation>
</Method>
<Property Name="Name" Id="{bc8bc990-5071-47c9-a928-a129c60c6f41}">
@@ -511,7 +575,12 @@ _fbUnit4.Name := CONCAT(_sName, ' - Unit 4');
_fbUnitsOutOfBalanceAlarm.ipArguments.Clear().AddString(_sName);
// Create connection lost alarm
_fbConnLostAlarm.ipArguments.Clear().AddString(_sName);]]></ST>
_fbConnLostAlarm.ipArguments.Clear().AddString(_sName);
// Create leackage alarm messages
_fbLeackageTankAlarm.ipArguments.Clear().AddString(_sName);
_fbLeackageSegment12Alarm.ipArguments.Clear().AddString(_sName);
_fbLeackageSegment34Alarm.ipArguments.Clear().AddString(_sName);]]></ST>
</Implementation>
</Set>
</Property>
@@ -528,6 +597,21 @@ _fbConnLostAlarm.ipArguments.Clear().AddString(_sName);]]></ST>
<LineId Id="349" Count="0" />
<LineId Id="348" Count="0" />
<LineId Id="350" Count="1" />
<LineId Id="354" Count="3" />
<LineId Id="353" Count="0" />
<LineId Id="359" Count="0" />
<LineId Id="361" Count="1" />
<LineId Id="360" Count="0" />
<LineId Id="358" Count="0" />
<LineId Id="363" Count="1" />
<LineId Id="366" Count="0" />
<LineId Id="365" Count="0" />
<LineId Id="367" Count="1" />
<LineId Id="384" Count="0" />
<LineId Id="370" Count="13" />
<LineId Id="369" Count="0" />
<LineId Id="386" Count="14" />
<LineId Id="385" Count="0" />
<LineId Id="12" Count="275" />
<LineId Id="317" Count="2" />
<LineId Id="326" Count="0" />
@@ -551,6 +635,11 @@ _fbConnLostAlarm.ipArguments.Clear().AddString(_sName);]]></ST>
<LineId Id="19" Count="1" />
<LineId Id="17" Count="0" />
<LineId Id="2" Count="0" />
<LineId Id="23" Count="0" />
<LineId Id="25" Count="1" />
<LineId Id="24" Count="0" />
<LineId Id="28" Count="1" />
<LineId Id="27" Count="0" />
</LineIds>
<LineIds Name="FB_Module.Name.Get">
<LineId Id="2" Count="0" />
@@ -561,6 +650,9 @@ _fbConnLostAlarm.ipArguments.Clear().AddString(_sName);]]></ST>
<LineId Id="14" Count="0" />
<LineId Id="13" Count="0" />
<LineId Id="12" Count="0" />
<LineId Id="16" Count="0" />
<LineId Id="15" Count="0" />
<LineId Id="17" Count="2" />
</LineIds>
</POU>
</TcPlcObject>