20 lines
627 B
XML
20 lines
627 B
XML
<?xml version="1.0" encoding="utf-8"?>
|
|
<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.4026.6">
|
|
<POU Name="ConcatWithD" Id="{32e9294a-ec6c-497b-87b4-a36e1be02f29}" SpecialFunc="None">
|
|
<Declaration><![CDATA[FUNCTION ConcatWithD : STRING
|
|
VAR_INPUT
|
|
CurrentStep : USINT;
|
|
StepCount : USINT;
|
|
END_VAR
|
|
VAR
|
|
TempString : STRING;
|
|
END_VAR
|
|
]]></Declaration>
|
|
<Implementation>
|
|
<ST><![CDATA[TempString := USINT_TO_STRING(CurrentStep);
|
|
TempString := CONCAT(TempString, ' / ');
|
|
TempString := CONCAT(TempString, USINT_TO_STRING(StepCount));
|
|
ConcatWithD := TempString;]]></ST>
|
|
</Implementation>
|
|
</POU>
|
|
</TcPlcObject> |