<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.0.20">
  <POU Name="PRG_ShowMessages" Id="{aa092707-4e79-4896-b801-aa825d904f11}">
    <Declaration><![CDATA[PROGRAM PRG_ShowMessages
VAR
	bStart				: BOOL;
	SimpleEventLog1		: FB_SimpleEventLog;
	SimpleEventLog2		: FB_SimpleEventLog;
	SimpleEventLog3		: FB_SimpleEventLog;
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;

	SimpleEventLog1
		(Init			:= TRUE,
		 SourceId		:= 51,
		 Class			:= TCEVENTCLASS_WARNING,
		 QuitRequireD	:= TRUE,
		 adrAlarmArray	:= ADR(MSGList1),
		 adrQuitArray	:= ADR(MSGListQuit1)
		);

	SimpleEventLog2
		(Init			:= TRUE,
		 SourceId		:= 50,
		 Class			:= TCEVENTCLASS_ALARM,
		 QuitRequired	:= FALSE,
		 adrAlarmArray 	:= ADR(MSGList2),
		 adrQuitArray	:= ADR(MSGListQuit2)
		);

	SimpleEventLog3
		(Init			:= TRUE,
		 SourceId		:= 13,
		 Class			:= TCEVENTCLASS_INSTRUCTION,
		 QuitRequired	:= FALSE,
		 adrAlarmArray	:= ADR(MSGList3),
		 adrQuitArray	:= ADR(MSGListQuit3)
		);

ELSE
	SimpleEventLog1
		(Init			:= FALSE);

	SimpleEventLog2
		(Init			:= FALSE);

	SimpleEventLog3
		(Init			:= FALSE);
END_IF


]]></ST>
    </Implementation>
    <ObjectProperties />
  </POU>
</TcPlcObject>