Files
Adeco_20220119-01/TC3_CNCPLCBase/Messages/PRG_Messages.TcPOU
Matthias Heisig 51d6e7e5c4 Initial commit
2024-10-22 14:22:54 +02:00

89 lines
2.2 KiB
XML

<?xml version="1.0" encoding="utf-8"?>
<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.4022.6">
<POU Name="PRG_Messages" Id="{3add6422-7f87-47f0-a78a-763357959f3f}" SpecialFunc="None">
<Declaration><![CDATA[PROGRAM PRG_Messages
VAR
bStart: BOOL;
fbWarningMessages : FB_SimpleEventLog;
fbAlarmMessages : FB_SimpleEventLog;
//fbExAlarmMessages : FB_ExtSimpleEventLog;
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[(*
TCEVENTCLASS_NONE :=0, No class
TCEVENTCLASS_MAINTENANCE :=1, Maintenance hint
TCEVENTCLASS_MESSAGE :=2, Message
TCEVENTCLASS_HINT :=3, Hint
TCEVENTCLASS_STATEINFO :=4, State information
TCEVENTCLASS_INSTRUCTION :=5, Instruction
TCEVENTCLASS_WARNING :=6, Warning
TCEVENTCLASS_ALARM :=7, Alarm
TCEVENTCLASS_PARAMERROR :=8 Parameter error
*)
(* Shows how to generate messages *)
IF NOT bStart THEN
bStart := TRUE;
fbWarningMessages
(Init := TRUE,
SourceId := 51,
Class := TCEVENTCLASS_WARNING,
QuitRequireD := FALSE,
adrAlarmArray := ADR(MSG_WARNING_List),
adrQuitArray := ADR(MSG_WARNING_ListQuit)
);
fbAlarmMessages
(Init := TRUE,
SourceId := 50,
Class := TCEVENTCLASS_ALARM,
QuitRequired := FALSE,
adrAlarmArray := ADR(MSG_ALARM_List),
adrQuitArray := ADR(MSG_ALARM_ListQuit)
);
(*
fbExAlarmMessages(
Init:= TRUE,
SourceId:= 52,
Class:= TCEVENTCLASS_WARNING,
QuitRequired:= FALSE,
adrAlarmArray:= ADR(MSG_ExALARM_List),
adrQuitArray:= ADR(MSG_ExALARM_ListQuit),
adrEventData:= ADR(MSG_ExALARM_EventData),
sFormatString:= '%d%s'
);
*)
ELSE
fbWarningMessages
(Init := FALSE);
fbAlarmMessages
(Init := FALSE);
(*
fbExAlarmMessages
(Init := FALSE);
*)
END_IF
]]></ST>
</Implementation>
<LineIds Name="PRG_Messages">
<LineId Id="3" Count="33" />
<LineId Id="53" Count="0" />
<LineId Id="55" Count="1" />
<LineId Id="74" Count="0" />
<LineId Id="57" Count="5" />
<LineId Id="54" Count="0" />
<LineId Id="75" Count="0" />
<LineId Id="37" Count="5" />
<LineId Id="63" Count="2" />
<LineId Id="76" Count="0" />
<LineId Id="43" Count="2" />
<LineId Id="2" Count="0" />
</LineIds>
</POU>
</TcPlcObject>