PCS7 IL: Source FB1147 HxFct ìèêðîêëèìàò HVAC áëîê
Äàòà: 2021-05-14
Äîáàâëåíî: komatic
Òåìà: SCL
Áëîê HxFct èñïîëüçóåò îòíîñèòåëüíóþ âëàæíîñòü, òåìïåðàòóðó è àòìîñôåðíîå äàâëåíèå äëÿ îïðåäåëåíèÿ àáñîëþòíîé âëàæíîñòè, ýíòàëüïèè è âëàæíîñòè íàñûùåíèÿ.
{
Scl_ResetOptions
;
Scl_OverwriteBlocks:= 'y'
;
Scl_GenerateReferenceData
:= 'y' ;
Scl_S7ServerActive:= 'n'
;
Scl_CreateObjectCode:= 'y' ;
Scl_OptimizeObjectCode:= 'y' ;
Scl_MonitorArrayLimits:= 'n' ;
Scl_CreateDebugInfo
:= 'y'
;
Scl_SetOKFlag:= 'n'
;
Scl_SetMaximumStringLength:= '254'
}
//===================
FUNCTION_BLOCK FB11147 //"HxFct"
TITLE
='HxFct Enthalpy,
absolute humidity and humidity at saturation of'
{
S7_m_c := 'true';
S7_alarm_ui := '1';
S7_language := '9(1)
English (United States) 19.02.2014 16:04:02'; S7_tasklist := 'OB100' }
AUTHOR
: AdvLibIL
FAMILY
: HVAC
NAME
: HxFct
VERSION
: '5.1'
VAR_INPUT
Restart { S7_visible := 'false'; S7_dynamic :=
'true' }: BOOL
; //Manual Restart
MS_RelOp { Op_Level := '3'; S7_m_c := 'true'; S7_visible :=
'true' }: BOOL
; //Operator input for MS Release, 1:MS release
requirement
OnOp { Op_Level := '1';
S7_m_c := 'true';
S7_visible := 'false'
}: BOOL ; //1=On
Mode: On Mode by Operator
OosOp { Op_Level := '2';
S7_m_c := 'true';
S7_visible := 'false'
}: BOOL ; //1=Oos
Mode: Oos Mode by Operator
OosLi { S7_dynamic := 'true'
}: STRUCT //1=Oos
Mode: Oos Mode by Field Signal
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
UserAna1 { S7_m_c := 'true';
S7_visible := 'false';
S7_xm_c := 'Value,true;';
S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;'
}: STRUCT //User
Analog Input 1
Value : REAL ; //Value
ST : BYTE := B#16#FF; //Signal
Status
END_STRUCT ;
UA1unit { S7_m_c := 'true';
S7_unit := '';
S7_visible := 'false'
}: INT ; //Unit of
UserAna1
UserAna2 { S7_m_c := 'true';
S7_visible := 'false';
S7_xm_c := 'Value,true;';
S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;'
}: STRUCT //User
Analog Input 2
Value : REAL ; //Value
ST : BYTE := B#16#FF; //Signal Status
END_STRUCT ;
UA2unit { S7_m_c := 'true';
S7_unit := '';
S7_visible := 'false'
}: INT ; //Unit of
UserAna2
SampleTime { S7_visible := 'false'; S7_link :=
'false'; S7_sampletime := 'true';
S7_param := 'false'
}: REAL := 1.000000e-001; //Sample
time [s]
Temp { S7_dynamic := 'true';
S7_m_c := 'true';
S7_edit := 'para';
S7_xm_c := 'Value,true;';
S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;';
S7_xtrend := 'Value,Temp_OpScale.Low,Temp_OpScale.High;'
}: STRUCT //temperature
[°C]
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
Temp_OpScale { S7_edit := 'para'; S7_m_c :=
'true'; S7_xedit :=
'High,para;Low,para;'; S7_xm_c := 'High,true;Low,true;'
}: STRUCT //Temp
Trend Display Limits for OS
High : REAL :=
5.000000e+001; //High
Value
Low : REAL ; //Low
Value
END_STRUCT ;
Temp_Unit { S7_m_c := 'true';
S7_unit := '°C';
S7_edit := 'para'
}: INT := 1001; //Unit of Temp
RelHum { S7_dynamic := 'true'; S7_m_c := 'true'; S7_edit :=
'para'; S7_xm_c :=
'Value,true;'; S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;';
S7_xtrend := 'Value,RelHum_OpScale.Low,RelHum_OpScale.High;'
}: STRUCT //relative
humidity [%]
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
RelHum_OpScale { S7_edit := 'para'; S7_m_c :=
'true'; S7_xedit :=
'High,para;Low,para;'; S7_xm_c := 'High,true;Low,true;'
}: STRUCT //RelHum
Trend Display Limits for OS
High : REAL :=
1.000000e+002; //High
Value
Low : REAL ; //Low
Value
END_STRUCT ;
RelHum_Unit { S7_m_c := 'true'; S7_unit :=
'%'; S7_edit :=
'para' }: INT
:= 1342;
//Unit of RelHum
TempCSF : STRUCT //temperature (Temp) faulty
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
RelHumCSF : STRUCT //relative humidity (RelHum) faulty
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
Enthalpy_OpScale { S7_edit := 'para'; S7_m_c :=
'true'; S7_xedit :=
'High,para;Low,para;'; S7_xm_c := 'High,true;Low,true;'
}: STRUCT //Enthalpy
Trend Display Limits for OS
High : REAL :=
2.000000e+002; //High
Value
Low : REAL ; //Low
Value
END_STRUCT ;
Enthalpy_Unit { S7_m_c := 'true'; S7_unit :=
'kJ/kg'; S7_edit :=
'para' }: INT
:= 1208;
//Unit of Enthalpy_Out
AbsHum_OpScale { S7_edit := 'para'; S7_m_c :=
'true'; S7_xedit :=
'High,para;Low,para;'; S7_xm_c := 'High,true;Low,true;'
}: STRUCT //AbsHum
Trend Display Limits for OS
High : REAL :=
6.500000e+001; //High
Value
Low : REAL ; //Low
Value
END_STRUCT ;
AbsHum_Unit { S7_m_c := 'true'; S7_unit :=
'g/kg'; S7_edit :=
'para' }: INT
; //Unit of AbsHum_Out
SatHum_OpScale { S7_edit := 'para'; S7_m_c :=
'true'; S7_xedit :=
'High,para;Low,para;'; S7_xm_c := 'High,true;Low,true;'
}: STRUCT //SatHum
Trend Display Limits for OS
High : REAL :=
6.500000e+001; //High
Value
Low : REAL ; //Low
Value
END_STRUCT ;
SatHum_Unit { S7_m_c := 'true'; S7_unit :=
'g/kg'; S7_edit :=
'para' }: INT
; //Unit of SatHum_Out
AtmPress { S7_edit := 'para';
S7_visible := 'false';
S7_m_c := 'true'
}: REAL := 1.013000e+003; //Atmospheric
pressure for calculating saturation humidity [mbar] [hPa]
AtmPress_Unit { S7_m_c := 'true'; S7_unit :=
'hPa'; S7_edit :=
'para'; S7_visible :=
'false' }: INT
:= 1136;
//Unit of atmospheric pressure
C1NegTemp { S7_edit := 'para'; S7_visible := 'false' }: REAL := 2.244330e+001;
//C1 constant in case of negative temperature
C2NegTemp { S7_edit := 'para'; S7_visible := 'false' }: REAL := 2.721860e+002;
//C2 constant in case of negative temperature
C1PosTemp { S7_edit := 'para'; S7_visible := 'false' }: REAL := 1.750430e+001;
//C1 constant in case of positive temperature
C2PosTemp { S7_edit := 'para'; S7_visible := 'false' }: REAL := 2.411750e+002;
//C2 constant in case of positive temperature
_C3 { S7_edit := 'para';
S7_visible := 'false'
}: REAL := 6.112130e+002; //C3
constant
MsgLock { S7_visible := 'false' }: STRUCT
//Messages locked
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtMsg1 { S7_visible := 'false' }: STRUCT
//External Message 1
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtMsg2 { S7_visible := 'false' }: STRUCT
//External Message 2
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtMsg3 { S7_visible := 'false' }: STRUCT
//External Message 3
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtMsg4 { S7_visible := 'false' }: STRUCT
//External Message 4
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtMsg5 { S7_visible := 'false' }: STRUCT
//External Message 5
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtVal04 { S7_visible := 'false' }: ANY
; //External Value 4
ExtVal05 { S7_visible := 'false' }: ANY
; //External Value 5
ExtVal06 { S7_visible := 'false' }: ANY
; //External Value 6
ExtVal07 { S7_visible := 'false' }: ANY
; //External Value 7
ExtVal08 { S7_visible := 'false' }: ANY
; //External Value 8
ExtVal09 { S7_visible := 'false' }: ANY
; //External Value 9
ExtVal10 { S7_visible := 'false' }: ANY
; //External Value 10
SimLiOp { S7_visible := 'false' }: STRUCT
//Simulation on/off via 0 = Operator, 1 =
Interconnection or SFC
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
SimOnLi { S7_visible := 'false' }: STRUCT
//1 = Simulation activated by interconnection or SFC
(controlled by SimLiOp = 1)
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
SimOn { Op_Level := '3';
S7_visible := 'false';
S7_m_c := 'true'
}: BOOL ; //Simulation
On/Off
SimTemp { Op_Level := '1';
S7_visible := 'false';
S7_m_c := 'true'
}: REAL ; //Simulation
Temp
SimTemp_Li { S7_visible := 'false' }: STRUCT
//Linkable simulation value Temp
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
SimRelHum { Op_Level := '1'; S7_visible :=
'false'; S7_m_c :=
'true' }: REAL
; //Simulation RelHum
SimRelHum_Li { S7_visible := 'false' }: STRUCT
//Linkable simulation value RelHum
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
MsgEvId { S7_visible := 'false'; S7_link :=
'false'; S7_param :=
'false'; S7_server :=
'alarm_archiv'; S7_a_type := 'alarm_8p' }: DWORD ; //Message ID
RunUpCyc { S7_visible := 'false' }: INT := 10; //Lag: Number of Run Up Cycles
BatchEn { S7_visible := 'false' }: BOOL
; //Enable Remote Operation of Controller by Batch
Receipe
BatchID { S7_visible := 'false'; S7_m_c :=
'true' }: DWORD
; //Current Batch ID (number)
BatchName { S7_visible := 'false'; S7_m_c :=
'true' }: STRING
[32 ]; //Current
Batch Name
StepNo { S7_visible := 'false'; S7_m_c := 'true' }: DWORD
; //Batch Step Number
Occupied { S7_visible := 'false' }: BOOL
; //Occupied by Batch
UserStatus { S7_visible := 'false'; S7_m_c :=
'true' }: BYTE
; //User Status Bits
SelFp1 { S7_visible := 'false'; BLK_Jump := '1' }: ANY ; //Select Faceplate 1
SelFp2 { S7_visible := 'false'; BLK_Jump := '1' }: ANY ; //Select Faceplate 2
OS_Perm { S7_visible := 'false' }: STRUCT
//Operator Permissions
Bit0 : BOOL :=
TRUE; //Reserved
Bit1 : BOOL :=
TRUE; //1 =
Operator can switch to On
Bit2 : BOOL :=
TRUE; //Reserved
Bit3 : BOOL :=
TRUE; //1 =
Operator can switch to OOS
Bit4 : BOOL :=
TRUE; //Reserved
Bit5 : BOOL :=
TRUE; //Reserved
Bit6 : BOOL :=
TRUE; //Reserved
Bit7 : BOOL :=
TRUE; //1 =
Operator can reset accumulated values
Bit8 : BOOL :=
TRUE; //Reserved
Bit9 : BOOL :=
TRUE; //Reserved
Bit10 : BOOL :=
TRUE; //Reserved
Bit11 : BOOL :=
TRUE; //1 =
Operator can enable function simulation
Bit12 : BOOL :=
TRUE; //1 =
Operator can enable function maintenance release
Bit13 : BOOL :=
TRUE; //Reserved
Bit14 : BOOL :=
TRUE; //Reserved
Bit15 : BOOL :=
TRUE; //Reserved
Bit16 : BOOL :=
TRUE; //Reserved
Bit17 : BOOL :=
TRUE; //Reserved
Bit18 : BOOL :=
TRUE; //Reserved
Bit19 : BOOL :=
TRUE; //Reserved
Bit20 : BOOL :=
TRUE; //Reserved
Bit21 : BOOL :=
TRUE; //Reserved
Bit22 : BOOL :=
TRUE; //Reserved
Bit23 : BOOL :=
TRUE; //Reserved
Bit24 : BOOL :=
TRUE; //Reserved
Bit25 : BOOL :=
TRUE; //Reserved
Bit26 : BOOL :=
TRUE; //Reserved
Bit27 : BOOL :=
TRUE; //Reserved
Bit28 : BOOL :=
TRUE; //Reserved
Bit29 : BOOL :=
TRUE; //Reserved
Bit30 : BOOL :=
TRUE; //Reserved
Bit31 : BOOL :=
TRUE; //Reserved
END_STRUCT ;
OS_Perm_ar AT OS_Perm : ARRAY[0..3] OF BYTE;
OpSt_In { BLK_Jump := '1';
S7_visible := 'false'
}: DWORD ; //Enabled
operator stations
Feature { S7_visible := 'false'; S7_xedit :=
'Bit0,para;Bit1,para;Bit22,para;Bit24,para;'
}: STRUCT //Status
of various features
Bit0 : BOOL ; //0 =
Start up with defined initializing in OB100; 1 = keep last stored values
Bit1 : BOOL ; //1 =
OosLi can switch to Out of Service
Bit2 : BOOL ; //Reserved
Bit3 : BOOL ; //Reserved
Bit4 : BOOL ; //Reserved
Bit5 : BOOL ; //Reserved
Bit6 : BOOL ; //Reserved
Bit7 : BOOL ; //Reserved
Bit8 : BOOL ; //Reserved
Bit9 : BOOL ; //Reserved
Bit10 : BOOL ; //Reserved
Bit11 : BOOL ; //Reserved
Bit12 : BOOL ; //Reserved
Bit13 : BOOL ; //Reserved
Bit14 : BOOL ; //Reserved
Bit15 : BOOL ; //Reserved
Bit16 : BOOL ; //Reserved
Bit17 : BOOL ; //Reserved
Bit18 : BOOL ; //Reserved
Bit19 : BOOL ; //1
= Changes Signal status of outputs in OOS to 16#60
Bit20 : BOOL ; //Reserved
Bit21 : BOOL ; //Reserved
Bit22 : BOOL ; //1
= Enable message state actualization
Bit23 : BOOL ; //Reserved
Bit24 : BOOL ; //1
= Local authorization active
Bit25 : BOOL ; //1
= Suppress all messages if MsgLock = 1
Bit26 : BOOL ; //Reserved
Bit27 : BOOL ; //Reserved
Bit28 : BOOL ; //Reserved
Bit29 : BOOL ; //Reserved
Bit30 : BOOL ; //Reserved
Bit31 : BOOL ; //Reserved
END_STRUCT ;
END_VAR
VAR_OUTPUT
MS_Release : STRUCT //1 = MS release
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
Enthalpy_Out { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_edit :=
'para'; S7_xm_c :=
'Value,true;'; S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;';
S7_xtrend := 'Value,Enthalpy_OpScale.Low,Enthalpy_OpScale.High;'
}: STRUCT //Enthalpy
[kJ/kg]
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
AbsHum_Out { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_edit :=
'para'; S7_xm_c :=
'Value,true;'; S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;';
S7_xtrend := 'Value,AbsHum_OpScale.Low,AbsHum_OpScale.High;'
}: STRUCT //absolute
humidity [g/kg]
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
SatHum_Out { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_edit :=
'para'; S7_xm_c :=
'Value,true;'; S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;';
S7_xtrend := 'Value,SatHum_OpScale.Low,SatHum_OpScale.High;'
}: STRUCT //humitity
at saturation [g/kg]
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
TempWeBu_Out { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_edit :=
'para'; S7_xm_c :=
'Value,true;'; S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;';
S7_xtrend := 'Value,Temp_OpScale.Low,Temp_OpScale.High;'
}: STRUCT //wet-bulb
temperature [°C]
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
Temp_Out { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_edit :=
'para'; S7_xm_c :=
'Value,true;'; S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;';
S7_xtrend := 'Value,Temp_OpScale.Low,Temp_OpScale.High;'
}: STRUCT //temperature
[°C]
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
RelHum_Out { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_edit :=
'para'; S7_xm_c :=
'Value,true;'; S7_xqc := 'Value,true;';
S7_xshortcut := 'Value,;';
S7_xtrend := 'Value,RelHum_OpScale.Low,RelHum_OpScale.High;'
}: STRUCT //relative
humidity [%]
Value : REAL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
TempCSF_Out { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_xm_c :=
'Value,true;' }: STRUCT
//temperature (Temp) faulty
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
RelHumCSF_Out { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_xm_c :=
'Value,true;' }: STRUCT
//relative humidity (RelHum) faulty
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
GrErr { S7_dynamic := 'true';
S7_m_c := 'true'
}: BOOL ; //Group
Error
ExtMsg1Out { S7_visible := 'false' }: STRUCT
//Message input 1 - output
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtMsg2Out { S7_visible := 'false' }: STRUCT
//Message input 2 - output
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtMsg3Out { S7_visible := 'false' }: STRUCT
//Message input 3 - output
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtMsg4Out { S7_visible := 'false' }: STRUCT
//Message input 4 - output
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
ExtMsg5Out { S7_visible := 'false' }: STRUCT
//Message input 5 - output
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
SimAct { S7_dynamic := 'true'; S7_m_c := 'true' }: BOOL
; //1=Simulation active
SumMsgAct { S7_dynamic := 'true'; S7_visible :=
'false' }: STRUCT
//Summary message active
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
OosAct { S7_dynamic := 'true'; S7_m_c := 'true'; S7_xm_c :=
'Value,true;' }: STRUCT
//Out of service is active
Value : BOOL ; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
OnAct { S7_dynamic := 'true'
}: STRUCT //On
Mode is active
Value : BOOL :=
TRUE; //Value
ST : BYTE := B#16#80; //Signal
Status
END_STRUCT ;
OS_PermOut { S7_m_c := 'true'; S7_visible := 'false' }: DWORD
; //Operator Permissions: Output for OS
OS_PermOut_ar AT OS_PermOut : ARRAY[0..3] OF BYTE;
OS_PermLog { S7_visible := 'true'; S7_m_c :=
'true' }: DWORD
; //Operator Permissions: Output for OS
OS_PermLog_b AT OS_PermLog : ARRAY[0..31] OF BOOL ;
OS_PermLog_ar AT OS_PermLog : ARRAY[0..3] OF BYTE;
OpSt_Out { S7_visible := 'true'; S7_m_c :=
'true' }: DWORD
; //Enabled operator stations
ST_Worst { S7_m_c := 'true';
S7_visible := 'false'
}: BYTE ; //Worst
Signal Status
Status1 { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_visible :=
'false' }: DWORD
; //Status word 1
Status1_b AT Status1 : ARRAY[0..31] OF BOOL;
Status2 { S7_dynamic := 'true'; S7_m_c :=
'true'; S7_visible :=
'false' }: DWORD
; //Status word 2
Status2_b AT Status2 : ARRAY[0..31] OF BOOL;
MsgErr { S7_visible := 'false'; S7_dynamic := 'false' }: BOOL
; //Message Error
MsgStat { S7_visible := 'false' }: WORD
; //Message Status
MsgAckn { S7_visible := 'false' }: WORD
; //Message acknowledge
MsgSup { S7_m_c := 'true';
S7_dynamic := 'false'
}: BOOL ; //Message
suppressed
END_VAR
VAR
ALARM_8P_1 : "ALARM_8P";
sbFirstStart : BOOL :=
TRUE; //Initial
run.
siRunUpCounter : INT ; //Hochlaufzähler
sbMsgLock : BOOL ; //Meldungen
sperren
sbTempCSF : BOOL ; //Externer
Fehler Temperatur
sbRelHumCSF : BOOL ; //Externer Fehler relative Feuchte
sbExtMsg1 : BOOL ; //Message
1
sbExtMsg2 : BOOL ; //Message
2
sbExtMsg3 : BOOL ; //Message
3
sbExtMsg4 : BOOL ; //Message
4
sbExtMsg5 : BOOL ; //Message
5
sbMsg1Old : BOOL ;
sbMsg2Old : BOOL ;
sbMsg3Old : BOOL ;
sbMsg4Old : BOOL ;
sbMsg5Old : BOOL ;
sbMsg6Old : BOOL ;
sbMsg7Old : BOOL ;
sbMsg8Old : BOOL ;
sbMsgGroupError : BOOL ; //Gruppenfehler
sbMsgRepeat : BOOL ;
sbOnOp : BOOL ;
sbOnAct : BOOL ;
sbOosOp : BOOL ;
sbOosLi : BOOL ;
sbOosAct : BOOL ;
srU : REAL ;
srOldValue : REAL ;
sdBatchID : DWORD ; //Batch
ID
ssBatchName : STRING [32
]; //Batch Name
ssBatchName_byte AT ssBatchName : STRUCT
l : INT;
bytes : ARRAY [0..31] OF BYTE;
END_STRUCT;
sdStepNo : DWORD ; //Step
number
siMsgToggle : INT ;
sbFlankeReset : BOOL ; //Flankenmerker für Eingang RESET
sbState : BOOL ; //Status
der Meldung
liRetVal : INT ; //Fehler
vom SFC Aufruf
swOSStatus : WORD ; //Status-Doppelwort
_reserve : ARRAY [0 .. 15 ] OF //16 bytes
BYTE ; //16 bytes
SxReserved1 : BOOL :=
TRUE; //Reserved
SxReserved2 : BOOL :=
TRUE; //Reserved
SxReserved3 : BOOL :=
TRUE; //Reserved
SxReserved4 : BOOL :=
TRUE; //Reserved
SxReserved5 : BOOL ; //Reserved
SxReserved6 : BOOL ; //Reserved
SxReserved7 : BOOL ; //Reserved
SxReserved8 : BOOL ; //Reserved
END_VAR
VAR_TEMP
b_upd_alarm : BOOL ;
s_inst : STRUCT
b0 : BYTE ; //Byte
0
b1 : BYTE ; //Byte
1
b2 : BYTE ; //Byte
2
b3 : BYTE ; //Byte
3
b4 : BYTE ; //Byte
4
b5 : BYTE ; //Byte
5
b6 : BYTE ; //Byte
6
b7 : BYTE ; //Byte
7
b8 : BYTE ; //Byte
8
b9 : BYTE ; //Byte
9
b10 : BYTE ; //Byte
10
b11 : BYTE ; //Byte
11
b12 : BYTE ; //Byte
12
b13 : BYTE ; //Byte
13
b14 : BYTE ; //Byte
14
b15 : BYTE ; //Byte
15
END_STRUCT ;
TOP_SI : STRUCT
EV_CLASS : BYTE ;
EV_NUM : BYTE ;
PRIORITY : BYTE ;
NUM : BYTE ;
TYP2_3 : BYTE ;
TYP1 : BYTE ;
ZI1 : WORD ;
ZI2_3 : DWORD ;
END_STRUCT ;
START_UP_SI : STRUCT
EV_CLASS : BYTE ;
EV_NUM : BYTE ;
PRIORITY : BYTE ;
NUM : BYTE ;
TYP2_3 : BYTE ;
TYP1 : BYTE ;
ZI1 : WORD ;
ZI2_3 : DWORD ;
END_STRUCT ;
piRetVal : INT ;
prTemp : REAL ; //gemessene
Temperatur
prRelHum : REAL ; //gemessene
relative Feuchte
prErgebnis : REAL ; //Ergebnis
Sättigungsdruck Fall 1 oder Fall 2
prEnthal : REAL ; //berechnete
Enthalpie
prAbsHum : REAL ; //berechnete
absolute Feuchte
prSatHum : REAL ; //berechnete
Sättigungsfeuchte
prTempWeBu : REAL ; //berechnete
Feuchtekugeltemperatur
xFeat_SSinOOS : BOOL ; //Bit19: 1 = changes signal status of all applicable
outputs to 16#60 in OOS
prC1 : REAL ;
prC2 : REAL ;
prC3 : REAL ;
END_VAR
BEGIN
xFeat_SSinOOS:=Feature.Bit19;
piRetVal:=RD_SINFO(TOP_SI :=
TOP_SI // OUT: STRUCT
,START_UP_SI := START_UP_SI // OUT: STRUCT
); // INT
b_upd_alarm:=FALSE;
IF
(((TOP_SI.NUM=B#16#64) OR
Restart) OR sbFirstStart) THEN //A7d0//
sbFirstStart:=FALSE;
siRunUpCounter:=RunUpCyc;
sbOnAct:=OnAct.Value;
sbOosAct:=OosAct.Value;
sbOosLi:=OosLi.Value;
b_upd_alarm:=TRUE;
END_IF;
//A7d0//
IF
(siRunUpCounter>0)
THEN //A7d1//
siRunUpCounter:=siRunUpCounter-1;
MsgSup:=TRUE;
sbMsgLock:=TRUE;
sbOnOp:=FALSE;
sbOosOp:=FALSE;
sbOosLi:=OosLi.Value;
IF (NOT(Feature.Bit0)) THEN //A7d3//
sbTempCSF:=FALSE;
sbRelHumCSF:=FALSE;
sbMsgGroupError:=FALSE;
Status1:=DW#16#0;
Status2:=DW#16#0;
SumMsgAct.Value:=FALSE;
END_IF;
ELSE
//A7d1//
OnAct.Value:=NOT(OosAct.Value);
IF (Status1=DW#16#0) THEN
//A7d4//
sbMsgRepeat:=TRUE;
END_IF; //A7d4//
IF ((((NOT(sbOosOp))
AND OosOp) AND
OnAct.Value) AND
OS_Perm.Bit3) THEN
//A7d5//
sbOnAct:=FALSE;
sbOosAct:=TRUE;
IF (xFeat_SSinOOS) THEN //A7da//
Enthalpy_Out.ST:=B#16#60;
AbsHum_Out.ST:=B#16#60;
SatHum_Out.ST:=B#16#60;
TempWeBu_Out.ST:=B#16#60;
Temp_Out.ST:=B#16#60;
RelHum_Out.ST:=B#16#60;
TempCSF_Out.ST:=B#16#60;
RelHumCSF_Out.ST:=B#16#60;
END_IF;
ELSIF (((NOT(sbOosLi))
AND OosLi.Value)
AND Feature.Bit1)
THEN //A7d8//
sbOnAct:=FALSE;
sbOosAct:=TRUE;
IF (xFeat_SSinOOS) THEN //A7da//
Enthalpy_Out.ST:=B#16#60;
AbsHum_Out.ST:=B#16#60;
SatHum_Out.ST:=B#16#60;
TempWeBu_Out.ST:=B#16#60;
Temp_Out.ST:=B#16#60;
RelHum_Out.ST:=B#16#60;
TempCSF_Out.ST:=B#16#60;
RelHumCSF_Out.ST:=B#16#60;
END_IF;
ELSIF ((((NOT(sbOnOp))
AND OnOp) AND
OosAct.Value) AND
OS_Perm.Bit1) THEN
//A7da//
sbOnAct:=TRUE;
sbOosAct:=FALSE;
END_IF; //A7da//
OS_PermOut_ar[0]:=OS_Perm_ar[3];
OS_PermOut_ar[1]:=OS_Perm_ar[2];
OS_PermOut_ar[2]:=OS_Perm_ar[1];
OS_PermOut_ar[3]:=OS_Perm_ar[0];
IF (sbOnAct) THEN
//A7db//
OS_PermLog_ar[0]:=OS_Perm_ar[3];
OS_PermLog_ar[1]:=OS_Perm_ar[2];
OS_PermLog_ar[2]:=OS_Perm_ar[1];
OS_PermLog_ar[3]:=OS_Perm_ar[0];
OS_PermLog_b[19]:=(NOT(SimLiOp.Value))
AND OS_Perm.Bit11;
ELSIF (sbOosAct) THEN //A7dd//
OS_PermLog:=DW#16#0;
END_IF; //A7dd//
OS_PermLog_b[25]:=(NOT(sbOnAct)) AND
OS_Perm.Bit1;
OS_PermLog_b[27]:=(NOT(sbOosAct)) AND
OS_Perm.Bit3;
OS_PermLog_b[20]:=OS_Perm.Bit12;
OnAct.Value:=sbOnAct;
OosAct.Value:=sbOosAct;
sbOnOp:=OnOp;
sbOosOp:=OosOp;
sbOosLi:=OosLi.Value;
OosOp:=FALSE;
OnOp:=FALSE;
MS_Release.Value:=MS_RelOp;
IF (sbOnAct) THEN
//A7d3//
OS_PermLog_b[19]:=OS_Perm.Bit11;
SimAct:=((NOT(SimLiOp.Value)) AND SimOn)
OR ((SimOnLi.Value)
AND SimLiOp.Value);
sbMsgLock:=MsgLock.Value;
sbTempCSF:=TempCSF.Value;
sbRelHumCSF:=RelHumCSF.Value;
sbExtMsg1:=ExtMsg1.Value;
sbExtMsg2:=ExtMsg2.Value;
sbExtMsg3:=ExtMsg3.Value;
sbExtMsg4:=ExtMsg4.Value;
sbExtMsg5:=ExtMsg5.Value;
IF (SimAct) THEN
//A7df//
IF ((SimOnLi.Value)
AND SimLiOp.Value)
THEN //A7e0//
prTemp:=SimTemp_Li.Value;
prRelHum:=SimRelHum_Li.Value;
ELSE //A7e0//
prTemp:=SimTemp;
prRelHum:=SimRelHum;
END_IF; //A7e1//
IF (SimLiOp.Value)
THEN //A7e3//
SimTemp:=SimTemp_Li.Value;
SimRelHum:=SimRelHum_Li.Value;
END_IF;
ELSE //A7df//
prTemp:=Temp.Value;
prRelHum:=RelHum.Value;
END_IF; //A7e3//
prC3:=_C3;
IF (prTemp=0.000000e+000) THEN
//A7e4//
prErgebnis:=prC3;
ELSE //A7e4//
IF (prTemp>=0.000000e+000) THEN
//A7e6//
prC1:=C1PosTemp;
prC2:=C2PosTemp;
ELSE //A7e6//
prC1:=C1NegTemp;
prC2:=C2NegTemp;
END_IF; //A7e7//
prErgebnis:=EXP((prC1*prTemp)/(prC2+prTemp))*prC3;
END_IF; //A7e5//
prSatHum:= 1/(AtmPress-prErgebnis
/ 100.0)* prErgebnis * 6.221018;
prAbsHum:=(prSatHum*prRelHum)/1.000000e+002;
prEnthal:=(1.006000e+000*prTemp)+((((1.860000e+000*prTemp)+2.501000e+003)*prAbsHum)/1.000000e+003);
prTempWeBu:=(((5.800000e-002*prRelHum)+-5.809000e+000)+(6.970000e-001*prTemp))+((3.000000e-003*prRelHum)*prTemp);
SatHum_Out.Value:=prSatHum;
AbsHum_Out.Value:=prAbsHum;
Enthalpy_Out.Value:=prEnthal;
TempWeBu_Out.Value:=prTempWeBu;
s_inst.b0:=Temp.ST;
s_inst.b1:=RelHum.ST;
ST_Worst:=SelST16(InST := s_inst // IN: STRUCT
,Num := 2 // IN: INT
,SelPrio := 0
// IN: INT
); // BYTE
sbMsgGroupError:=((((((sbTempCSF) OR sbRelHumCSF) OR
sbExtMsg1) OR sbExtMsg2) OR sbExtMsg3) OR
sbExtMsg4) OR sbExtMsg5;
SumMsgAct.Value:=((((((sbTempCSF)
OR sbRelHumCSF) OR
sbExtMsg1) OR sbExtMsg2) OR sbExtMsg3) OR
sbExtMsg4) OR sbExtMsg5;
END_IF; //A7d3//
END_IF;
b_upd_alarm:=
(((((((sbMsg1Old <> (((NOT(sbMsgLock AND
Feature.Bit25)) AND
sbTempCSF) AND (NOT
sbOosAct))) OR b_upd_alarm)
OR (sbMsg2Old <>
(((NOT(sbMsgLock AND
Feature.Bit25)) AND
sbRelHumCSF) AND (NOT
sbOosAct)))
OR (sbMsg3Old <>
((NOT sbMsgLock) AND
SimAct) AND (NOT
sbOosAct)
)) OR (sbMsg4Old <>
(((NOT(sbMsgLock AND
Feature.Bit25)) AND
sbExtMsg1) AND (NOT
sbOosAct))
)) OR (sbMsg5Old <>
(((NOT(sbMsgLock AND
Feature.Bit25)) AND
sbExtMsg2) AND (NOT
sbOosAct))
)) OR (sbMsg6Old <>
(((NOT(sbMsgLock AND
Feature.Bit25)) AND
sbExtMsg3) AND (NOT
sbOosAct))
)) OR (sbMsg7Old <>
(((NOT(sbMsgLock AND
Feature.Bit25)) AND
sbExtMsg4) AND (NOT
sbOosAct))
)) OR (sbMsg8Old <>
(((NOT(sbMsgLock AND
Feature.Bit25)) AND
sbExtMsg5) AND (NOT
sbOosAct))
);
sbMsg1Old:=((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbTempCSF) AND
(NOT(sbOosAct));
sbMsg2Old:=((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbRelHumCSF) AND
(NOT(sbOosAct));
sbMsg3Old:=((NOT(sbMsgLock))
AND SimAct) AND
(NOT(sbOosAct));
sbMsg4Old:=((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg1) AND
(NOT(sbOosAct));
sbMsg5Old:=((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg2) AND
(NOT(sbOosAct));
sbMsg6Old:=((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg3) AND
(NOT(sbOosAct));
sbMsg7Old:=((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg4) AND
(NOT(sbOosAct));
sbMsg8Old:=((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg5) AND
(NOT(sbOosAct));
IF
(Feature.Bit22) THEN
//A7e8//
IF (siMsgToggle>=1) THEN //A7e9//
siMsgToggle:=0;
IF ((MsgAckn AND
W#16#FF)<>W#16#FF) THEN
//A7e8//
b_upd_alarm:=TRUE;
END_IF;
ELSE //A7e9//
siMsgToggle:=1;
END_IF;
END_IF;
//A7e8//
IF
((b_upd_alarm) OR sbMsgRepeat) THEN //A7ec//
ALARM_8P_1(EN_R := TRUE
// IN: BOOL
,ID := W#16#EEEE
// IN: WORD
,EV_ID := MsgEvId //
IN: DWORD
,SIG_1 := ((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbTempCSF) AND
(NOT(sbOosAct)) //
IN: BOOL
,SIG_2 := ((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbRelHumCSF) AND
(NOT(sbOosAct)) //
IN: BOOL
,SIG_3 := ((NOT(sbMsgLock))
AND SimAct) AND
(NOT(sbOosAct)) //
IN: BOOL
,SIG_4 := ((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg1) AND
(NOT(sbOosAct)) //
IN: BOOL
,SIG_5 := ((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg2) AND
(NOT(sbOosAct)) //
IN: BOOL
,SIG_6 := ((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg3) AND
(NOT(sbOosAct)) //
IN: BOOL
,SIG_7 := ((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg4) AND
(NOT(sbOosAct)) //
IN: BOOL
,SIG_8 := ((NOT((sbMsgLock)
AND Feature.Bit25))
AND sbExtMsg5) AND
(NOT(sbOosAct)) //
IN: BOOL
,SD_1 := ssBatchName_byte.bytes // INOUT: ANY
,SD_2 := sdStepNo //
INOUT: ANY
,SD_3 := sdBatchID //
INOUT: ANY
,SD_4 := ExtVal04 //
INOUT: ANY
,SD_5 := ExtVal05 //
INOUT: ANY
,SD_6 := ExtVal06 // INOUT: ANY
,SD_7 := ExtVal07 //
INOUT: ANY
,SD_8 := ExtVal08 //
INOUT: ANY
,SD_9 := ExtVal09 //
INOUT: ANY
,SD_10 := ExtVal10 //
INOUT: ANY
);
sbMsgRepeat:=ALARM_8P_1.STATUS=W#16#14;
IF (Feature.Bit22)
THEN //A7ed//
MsgErr:=ALARM_8P_1.ERROR;
MsgStat:=ALARM_8P_1.STATUS;
MsgAckn:=ALARM_8P_1.ACK_STATE;
ELSE //A7ed//
MsgErr:=FALSE;
MsgStat:=W#16#0;
MsgAckn:=W#16#0;
END_IF;
END_IF;
//A7ec//
MsgSup:=(MsgStat=W#16#15) OR
sbMsgLock;
IF
(SimAct) THEN //A7ef//
Enthalpy_Out.ST:=B#16#60;
AbsHum_Out.ST:=B#16#60;
SatHum_Out.ST:=B#16#60;
Temp_Out.ST:=B#16#60;
RelHum_Out.ST:=B#16#60;
TempWeBu_Out.ST:=B#16#60;
ST_Worst:=B#16#60;
Temp_Out.Value:=prTemp;
RelHum_Out.Value:=prRelHum;
ELSE
//A7ef//
IF (NOT(OosAct.Value)) THEN
//A7f1//
Enthalpy_Out.ST:=ST_Worst;
AbsHum_Out.ST:=ST_Worst;
SatHum_Out.ST:=ST_Worst;
Temp_Out.ST:=Temp.ST;
RelHum_Out.ST:=RelHum.ST;
TempWeBu_Out.ST:=ST_Worst;
END_IF; //A7f1//
Temp_Out.Value:=Temp.Value;
RelHum_Out.Value:=RelHum.Value;
SimTemp:=Temp_Out.Value;
SimRelHum:=RelHum_Out.Value;
END_IF;
//A7f0//
IF
(SimLiOp.Value) THEN
//A7f2//
SimOn:=SimOnLi.Value;
END_IF;
//A7f2//
TempCSF_Out.Value:=sbTempCSF;
RelHumCSF_Out.Value:=sbRelHumCSF;
ExtMsg1Out.Value:=sbExtMsg1;
ExtMsg2Out.Value:=sbExtMsg2;
ExtMsg3Out.Value:=sbExtMsg3;
ExtMsg4Out.Value:=sbExtMsg4;
ExtMsg5Out.Value:=sbExtMsg5;
GrErr:=sbMsgGroupError;
Status1_b[27]:=OosAct.Value;
Status1_b[30]:=OnAct.Value;
Status2_b[7]:=MS_RelOp;
IF
(NOT(OosAct.Value))
THEN //A7f3//
Status1_b[24]:=Occupied;
Status1_b[25]:=BatchEn;
Status1_b[27]:=OosAct.Value;
Status1_b[28]:=OosLi.Value;
Status1_b[30]:=OnAct.Value;
Status1_b[26]:=SimAct;
Status1_b[18]:=SimLiOp.Value;
Status1_b[6]:=NOT(UserAna1.ST=B#16#FF);
Status1_b[7]:=NOT(UserAna2.ST=B#16#FF);
Status2_b[24]:=MsgLock.Value;
Status2_b[25]:=sbTempCSF;
Status2_b[26]:=sbRelHumCSF;
END_IF;
//A7f3//
IF
(Feature.Bit24) THEN
//A7f4//
OpSt_Out:=OpSt_In OR
DW#16#80000000;
ELSE
//A7f4//
OpSt_Out:=OpSt_In AND
DW#16#7FFFFFFF;
END_IF;
//A7f5//
END_FUNCTION_BLOCK
Block checksum NOT equals.
 ýòîì ìåñòå òàê è íå ïîëó÷èëîñü àíàëîãè÷íóþ ñòðî÷êó íà SCL.
Ôóíêöèîíàëüíî ðåçóëüòàò âûïîëíåíèÿ êîäà èäåíòè÷íûé îðèãèíàëó.
Original library PCS7 IL (V9.0sp1) (zip, 20Mb)
Documentation (pdf, 22Mb)
Ïðîñìîòðîâ: 1972
Êîììåíòàðèè ê ìàòåðèàëó
Äîáàâëåí: CupGalllen Äàòà: 2022-03-20
Ýòî âñ¸ çàìå÷àòåëüíî, òîëüêî ãäå áëîêè èç BasicLibrary ïîñâÿù¸ííûå ïðîôèíåòó è èîëèíêó ? Íå õîòèòå ëè óâèäåòü èñõîäíèê FB197 MOD_D8_PN èëè, íàïðèìåð, RACK_PNT ?
Äîáàâèòü êîììåíòàðèé