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

First string implemented

Browse Source
This commit is contained in:
Matthias Heisig
2024-04-18 08:32:21 +02:00
parent 9ce3522a70
commit b95033a155
64 changed files with 14526 additions and 6024 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
PLC/POUs/Sunspec/FB_PowerSupplySunspec.TcPOU
View File

@@ -414,7 +414,7 @@ CASE _iState OF
_rOldPower := rPower;
_uiMaxLimEn := 1;
// Calculate reactive power setting
_iMaxPowerVar := LREAL_TO_INT((rReactivePower*100)/(_iMaxPowerVar * EXPT(10,_iVarPctSF)));
//_iMaxPowerVar := LREAL_TO_INT((rReactivePower*100)/(_iMaxPowerVar * EXPT(10,_iVarPctSF)));
ELSE
xError := TRUE;
// Goto error state
@@ -802,6 +802,7 @@ CASE _iState OF
IF NOT _fbWriteRegister.bBusy THEN
_iState := 0;
xError := FALSE;
_fbWriteRegister(bExecute := FALSE);
END_IF
@@ -914,6 +915,7 @@ END_CASE]]></ST>
<LineId Id="1273" Count="0" />
<LineId Id="1289" Count="1" />
<LineId Id="1293" Count="0" />
<LineId Id="2235" Count="0" />
<LineId Id="1291" Count="1" />
<LineId Id="1056" Count="0" />
<LineId Id="12" Count="0" />