Heisig_GmbH/infineon_plc
1
0
Fork 0
Code Issues Activity

Added first hmi interface implementation

Browse Source
This commit is contained in:
Matthias Heisig
2026-02-19 00:20:05 +01:00
parent 0c40092d8f
commit a3ad956f0d
29 changed files with 591 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
PLC/01_Stationen/HeatCoolPlates/FB_CoolPlate.TcPOU
View File

@@ -1,24 +1,26 @@
<?xml version="1.0" encoding="utf-8"?>
<TcPlcObject Version="1.1.0.1">
<POU Name="FB_CoolPlate" Id="{629e3316-5d72-4e23-a03a-af14d37e58d6}" SpecialFunc="None">
<Declaration><![CDATA[FUNCTION_BLOCK FB_CoolPlate
<POU Name="FB_Coolplate" Id="{629e3316-5d72-4e23-a03a-af14d37e58d6}" SpecialFunc="None">
<Declaration><![CDATA[FUNCTION_BLOCK FB_Coolplate
VAR_INPUT
rTempSetpoint : REAL := 25.0;
END_VAR
VAR_OUTPUT
END_VAR
VAR_IN_OUT
stHMIInterface : ST_HCPlateHMIInterface;
stHMIInterface : ST_HMI_Coolplate;
END_VAR
VAR
// Card inputs
stStatus AT %I* : ST_SerialStatus;
//abyDataIn AT %I* : ARRAY[0..21] OF BYTE;
abyDataIn AT %I* : ARRAY[0..21] OF BYTE;
// Card outputs
stCtrl AT %Q* : ST_SerialCrl;
abyDataOut AT %Q* : ARRAY[0..21] OF BYTE;
_fbTempSensor : FB_AnalogInput('');
// Internal temp setpoint
_rTempSetpoint : REAL;
@@ -32,7 +34,7 @@ END_VAR
<Implementation>
<ST><![CDATA[// Clamp temperature settings
// Currently only controlled throught hmi interface
_rTempSetpoint := stHMIInterface.rSetpoint;
_rTempSetpoint := stHMIInterface.stSetpoint.rValue;
IF _rTempSetpoint > 60.0 THEN
_rTempSetpoint := 60.0;
@@ -62,10 +64,9 @@ IF stStatus.bTransmitAccepted THEN
stCtrl.bTransmitRequest := 0;
END_IF
// Debug test
IF stHMIInterface.xEnable THEN
stHMIInterface.xEnable := FALSE;
M_SetTemp(rTemp := _rTempSetpoint);
IF stHMIInterface.stSetSetpointBtn.xRequest THEN
stHMIInterface.stSetSetpointBtn.xRequest := FALSE;
M_SetTemp(rTemp := stHMIInterface.stSetpoint.rValue);
_xSend := TRUE;
END_IF]]></ST>
</Implementation>