Heisig_GmbH/infineon_legacy_plc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial

Browse Source
This commit is contained in:
Matthias Heisig
2026-01-08 11:08:17 +01:00
commit fe882dc444
311 changed files with 511562 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
PLC/0 General/POUs/ConcatWithD.TcPOU Normal file
View File

@@ -0,0 +1,20 @@
<?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>