27 lines
608 B
Markdown
27 lines
608 B
Markdown
```pascal
|
|
FUNCTION "TankLevelToHeight" : Real
|
|
{ S7_Optimized_Access := 'FALSE' }
|
|
AUTHOR : 'Author'
|
|
FAMILY : 'Function'
|
|
NAME : 'Name'
|
|
VERSION : 1.0
|
|
VAR_INPUT
|
|
Level_Percentage : Real;
|
|
Level_Perc0 : Real;
|
|
Level_Height0 : Real;
|
|
Level_Perc1 : Real;
|
|
Level_Height1 : Real;
|
|
END_VAR
|
|
|
|
|
|
BEGIN
|
|
IF #Level_Perc1 <> 0 THEN
|
|
#TankLevelToHeight := (#Level_Percentage * (#Level_Height1 - #Level_Height0) / #Level_Perc1) + #Level_Height0 ;
|
|
END_IF;
|
|
#TankLevelToHeight := (#Level_Percentage * (#Level_Height1 - #Level_Height0) / #Level_Perc1) + #Level_Height0;
|
|
|
|
END_FUNCTION
|
|
|
|
|
|
```
|