﻿<?xml version="1.0" encoding="utf-8"?>
<TcPlcObject Version="1.1.0.1">
  <POU Name="DebugMessage" Id="{f0489d79-acdb-435e-88f0-dc96dd8fcf07}" SpecialFunc="None">
    <Declaration><![CDATA[
FUNCTION DebugMessage : BOOL // accepts three strings as inputs, returns true on success. NOTE: event object must have been created before use.
VAR_INPUT
	str1 : STRING;
	str2 : STRING;
	str3 : STRING;
END_VAR
VAR
	temp: STRING;	// need this to 
END_VAR
]]></Declaration>
    <Implementation>
      <ST><![CDATA[
temp  := CONCAT(str1,' ');
Obj.eventMessage.ipArguments.Clear().AddString(temp);
temp  := CONCAT(str2,' ');
Obj.eventMessage.ipArguments.AddString(temp);
Obj.eventMessage.ipArguments.AddString(str3);

IF Obj.eventMessage.Send(0) = 0 THEN
	DebugMessage := TRUE;
ELSE
	DebugMessage := FALSE;
END_IF]]></ST>
    </Implementation>
  </POU>
</TcPlcObject>