xing
/
wuyue_latest
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 Commits
1 Branch
0 Tags
64 MiB
Tree: 55d7b37f4f
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '55d7b37f4f'
${ noResults }
wuyue_latest/BRCON_MCFB_ED_v3.3.0.1/IJ_FAU.POE

1144 lines
24 KiB
Raw Normal View History

init
4 months ago
FUNCTION_BLOCK IJ_FAU
VAR_EXTERNAL
END_VAR
VAR_INPUT
FAU_STRUCT_IN :FAU_IN;
END_VAR
VAR_OUTPUT
FAU_STRUCT_OUT :FAU_OUT;
END_VAR
VAR
FAU_SPID :BS_PID;
FAU_WPID :BS_PID;
FAU_RunTime :BS_Runtime;
FAU_WVCTEMP :REAL;
RunTon1 :TON;
RunTon2 :TON;
RunTon3 :TON;
RunTon5 :TON;
RunTof1 :TOF;
RunTof2 :TOF;
RunTof3 :TOF;
DevCheck1_time :TIME :=t#15s; (*设备运行状态反馈*)
DevCheck2_time :TIME :=t#15s; (*设备运行状态反馈*)
AFSDelay_time :TIME :=t#10s;
Status0 :INT;
Status1 :INT;
Status2 :INT;
Status3 :INT;
FAU_SPID_VP :REAL;
FAU_SPID_VI :REAL;
FAU_WPID_VP :REAL;
FAU_WPID_VI :REAL;
PID_in :BOOL;
PID_timer :TON;
AFSM :BOOL;
FDSM :BOOL;
FDOM :BOOL;
FDOTon :TON;
FDSTon :TON;
FAU_FEC :BS_FEC;
FAU_CM :BOOL;
FAU_VFCSM :INT;
ini :BOOL;
VFMVM :INT;
AFSON :BOOL;
AFSOF :BOOL;
AFSTON :TON;
AFSTOF :TOF;
END_VAR
(*Automatically declared*)
VAR_EXTERNAL
END_VAR
(** {* **)
(** **)
(** ʱ �䣺20200411 **)
(** �� ����1.4 **)
(** �� �ߣ���ƽ/Ҧ�� **)
(** �� �ƣ����ö��Ƶ����յ������������ܿ� **)
(** ˵ ���� **)
(** �������� **)
(** FAU_STRUCT_IN. **)
(** SM :INT ; ����ģʽ 0�ļ� 1���� 2���� **)
(** LM :LM ; ����ģʽ 0������ 1���� **)
(** Run :BOOL; ����״̬ **)
(** Fault :BOOL; ����״̬ **)
(** Auto :BOOL; �Զ�״̬ **)
(** Control :BOOL; �������� **)
(** FDOB :BOOL; �緧��״̬ **)
(** FDSB :BOOL; �緧��״̬ **)
(** TSET :REAL; �¶��趨 **)
(** WVMC :BOOL; ˮ���ֶ����� **)
(** WVMV :REAL; ˮ���ֶ�����ֵ **)
(** VFMV :INT; ��Ƶ�趨ֵ **)
(** STS :REAL; �ͷ��¶� **)
(** RST :BOOL; ����ʱ���ۼ����� **)
(** RSTV :REAL; ����ʱ���ۼ�����ֵ **)
(** FPS :BOOL; ����ѹ�� **)
(** IPS :BOOL; ����ѹ�� **)
(** AFS :BOOL; ���¶�·���� **)
(** ISO1 :BOOL; ���й��Ϸ������� **)
(** ISO2 :BOOL; ����ѹ������� **)
(** ISO3 :BOOL; ���¶�·�������� **)
(** VFBS :INT; ��Ƶ���� **)
(** VP :REAL; PI�趨ֵP **)
(** VI :REAL; PI�趨ֵI **)
(** FDELAY :TIME; ����������ʱ **)
(** VDELAY :TIME; �緧�ź��г���ʱ **)
(** FAU_STRUCT_OUT. **)
(** WVCS :INT ; ˮ������ת��ֵ���Ŵ�100�� **)
(** VFCS :INT; ��Ƶ���� (35~50) **)
(** FDO :BOOL; �緧������ **)
(** FDS :BOOL; �緧�ؿ��� **)
(** Control :BOOL; ��ͣ���� **)
(** RH :REAL; ����Сʱ **)
(** SN :INT ; �豸״̬���� **)
(** **)
(** �������¼��㹦�� **)
(** 1.���й��ϻؼ�,�������ϴ��룬֧�ֹ��ϱ������� **)
(** 2.ˮ��PID����/�ֶ����� **)
(** 3.����ʱ���ۼ� **)
(** 4.������������ **)
(** 5.�緧�������򣬼��ⷧ�ŵ�λ��ֹͣ���Ƶ����� **)
(** 6.������̼�������� **)
(** 7.������ͣ�������� **)
(** 8.��Ƶ���� **)
(** **)
(** �� ע�� **)
(** �����飺 **)
(** BS_PID; **)
(** BS_Runtime; **)
(** **)
(** *}{* **)
(** if ini=0 then **)
(** FAU_STRUCT_IN.VFMV:=40; **)
(** ini:=1; **)
(** end_if;*} **)
(** **)
(** **)
(** **)
(** **)
(** **)
(** **)
(** {******************************************************CO2��������******************************************************* **)
(** �����ܿ������� **)
(** if FAU_STRUCT_IN.LM=0 then **)
(** if FAU_STRUCT_IN.Control=1 then **)
(** FAU_CM:=1; **)
(** else FAU_CM:=0; **)
(** end_if; **)
(** end_if; **)
(** **)
(** if FAU_STRUCT_IN.LM=1 then **)
(** FAU_FEC(RUN :=FAU_STRUCT_IN.CM , SET :=FAU_STRUCT_IN.CO2SET , FB :=FAU_STRUCT_IN.CO2S , DEAD_BAND :=10.0 , DELAY :=t#20s | FAU_CM:= DevC); **)
(** end_if; **)
(** *} **)
(** **)
(** {******************************************************�·�����ͣ����********************************************************} **)
(** **)
(** if AFSM=0 then{*������������������������ʼ*} **)
(* if - Cond *)
LD AFSM
EQ 0
JMPCN ODK_SKIP_000000000000001_000000000000001
(* then - Stmts *)
(** **)
(** {*�����������������緧*} **)
(** if FAU_STRUCT_IN.Control=1 or FAU_STRUCT_IN.Run=1 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.Control
EQ 1
OR ( FAU_STRUCT_IN.Run
EQ 1
)
JMPCN ODK_SKIP_000000000000002_000000000000001
(* then - Stmts *)
(** FDOM:=1; **)
(* assign - Stmt *)
LD 1
ST FDOM
(** FDSM:=0; **)
(* assign - Stmt *)
LD 0
ST FDSM
JMP ODK_END_IF_000000000000002
(** else **)
(* else *)
ODK_SKIP_000000000000002_000000000000001:
(* else - Stmts *)
(** FDOM:=0; **)
(* assign - Stmt *)
LD 0
ST FDOM
(** FDSM:=1; **)
(* assign - Stmt *)
LD 1
ST FDSM
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000002:
(** **)
(** {***************************************������ʱ��������**********************************************} **)
(** RunTon3 ( IN:=FAU_STRUCT_IN.Control , PT:=FAU_STRUCT_IN.FDELAY | FAU_STRUCT_OUT.Control:=q ); **)
(* call - Stmt *)
CAL RunTon3 (
IN := FAU_STRUCT_IN.Control,
PT := FAU_STRUCT_IN.FDELAY
|
FAU_STRUCT_OUT.Control := q
)
(** {*��Ƶ��������ֵ*} **)
(** if FAU_STRUCT_IN.VFMV<=50 and FAU_STRUCT_IN.VFMV>=35 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.VFMV
LE 50
AND ( FAU_STRUCT_IN.VFMV
GE 35
)
JMPCN ODK_SKIP_000000000000003_000000000000001
(* then - Stmts *)
(** FAU_STRUCT_OUT.VFCS:=FAU_STRUCT_IN.VFMV; **)
(* assign - Stmt *)
LD FAU_STRUCT_IN.VFMV
ST FAU_STRUCT_OUT.VFCS
JMP ODK_END_IF_000000000000003
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000003_000000000000001:
ODK_END_IF_000000000000003:
(** if FAU_STRUCT_IN.VFMV>50 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.VFMV
GT 50
JMPCN ODK_SKIP_000000000000004_000000000000001
(* then - Stmts *)
(** FAU_STRUCT_OUT.VFCS:=50; **)
(* assign - Stmt *)
LD 50
ST FAU_STRUCT_OUT.VFCS
JMP ODK_END_IF_000000000000004
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000004_000000000000001:
ODK_END_IF_000000000000004:
(** if FAU_STRUCT_IN.VFMV<35 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.VFMV
LT 35
JMPCN ODK_SKIP_000000000000005_000000000000001
(* then - Stmts *)
(** FAU_STRUCT_OUT.VFCS:=35; **)
(* assign - Stmt *)
LD 35
ST FAU_STRUCT_OUT.VFCS
JMP ODK_END_IF_000000000000005
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000005_000000000000001:
ODK_END_IF_000000000000005:
(** {******************************************************ˮ������******************************************************} **)
(** **)
(** PID_in:= not PID_timer.q; **)
(* assign - Stmt *)
LD PID_timer.q
NOT
ST PID_in
(** PID_timer(in:=PID_in, pt:=t#1s );{*PID����ʱ��*} **)
(* call - Stmt *)
CAL PID_timer (
IN := PID_in,
PT := t#1s
)
(** **)
(** if FAU_STRUCT_IN.WVMC=0 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.WVMC
EQ 0
JMPCN ODK_SKIP_000000000000006_000000000000001
(* then - Stmts *)
(** if FAU_STRUCT_IN.Run=1 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.Run
EQ 1
JMPCN ODK_SKIP_000000000000007_000000000000001
(* then - Stmts *)
(** if FAU_STRUCT_IN.VP<>0.0 and FAU_STRUCT_IN.VI<>0.0 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.VP
NE 0.0
AND ( FAU_STRUCT_IN.VI
NE 0.0
)
JMPCN ODK_SKIP_000000000000008_000000000000001
(* then - Stmts *)
(** FAU_SPID_VP:=-FAU_STRUCT_IN.VP; **)
(* assign - Stmt *)
LD FAU_STRUCT_IN.VP
NEG
ST FAU_SPID_VP
(** FAU_SPID_VI:=-FAU_STRUCT_IN.VI; **)
(* assign - Stmt *)
LD FAU_STRUCT_IN.VI
NEG
ST FAU_SPID_VI
(** FAU_WPID_VP:=FAU_STRUCT_IN.VP; **)
(* assign - Stmt *)
LD FAU_STRUCT_IN.VP
ST FAU_WPID_VP
(** FAU_WPID_VI:=FAU_STRUCT_IN.VI; **)
(* assign - Stmt *)
LD FAU_STRUCT_IN.VI
ST FAU_WPID_VI
JMP ODK_END_IF_000000000000008
(** else **)
(* else *)
ODK_SKIP_000000000000008_000000000000001:
(* else - Stmts *)
(** FAU_SPID_VP:=-30.0; **)
(* assign - Stmt *)
LD -30.0
ST FAU_SPID_VP
(** FAU_SPID_VI:=-150.0; **)
(* assign - Stmt *)
LD -150.0
ST FAU_SPID_VI
(** FAU_WPID_VP:=30.0; **)
(* assign - Stmt *)
LD 30.0
ST FAU_WPID_VP
(** FAU_WPID_VI:=150.0; **)
(* assign - Stmt *)
LD 150.0
ST FAU_WPID_VI
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000008:
(** {*���伾*} **)
(** if FAU_STRUCT_IN.SM=0 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.SM
EQ 0
JMPCN ODK_SKIP_000000000000009_000000000000001
(* then - Stmts *)
(** if FAU_STRUCT_IN.STS-FAU_STRUCT_IN.TSET>=3.0 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.STS
SUB FAU_STRUCT_IN.TSET
GE 3.0
JMPCN ODK_SKIP_00000000000000A_000000000000001
(* then - Stmts *)
(** FAU_WVCTEMP:=100.0; **)
(* assign - Stmt *)
LD 100.0
ST FAU_WVCTEMP
JMP ODK_END_IF_00000000000000A
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000A_000000000000001:
ODK_END_IF_00000000000000A:
(** if PID_timer.q then **)
(* if - Cond *)
LD PID_timer.q
JMPCN ODK_SKIP_00000000000000B_000000000000001
(* then - Stmts *)
(** FAU_SPID(RUN:= FAU_STRUCT_IN.RUN,STOP_D:=1,STOP_I:=0,SET:=FAU_STRUCT_IN.TSET,FB:=FAU_STRUCT_IN.STS,KFB:=1.0,KP:=FAU_SPID_VP,TI:=FAU_SPID_VI,TD:=-1.0,DEAD_BAND:=0.2,YMAX:=100.0,YMIN:=0.0 | FAU_WVCTEMP:=OUT); **)
(* call - Stmt *)
CAL FAU_SPID (
Run := FAU_STRUCT_IN.Run,
STOP_D := 1,
STOP_I := 0,
SET := FAU_STRUCT_IN.TSET,
FB := FAU_STRUCT_IN.STS,
KFB := 1.0,
KP := FAU_SPID_VP,
TI := FAU_SPID_VI,
TD := -1.0,
DEAD_BAND := 0.2,
YMAX := 100.0,
YMIN := 0.0
|
FAU_WVCTEMP := OUT
)
JMP ODK_END_IF_00000000000000B
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000B_000000000000001:
ODK_END_IF_00000000000000B:
JMP ODK_END_IF_000000000000009
(** end_if; **)
(* if - End *)
ODK_SKIP_000000000000009_000000000000001:
ODK_END_IF_000000000000009:
(** {*���ȼ�*} **)
(** if FAU_STRUCT_IN.SM=1 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.SM
EQ 1
JMPCN ODK_SKIP_00000000000000C_000000000000001
(* then - Stmts *)
(** if FAU_STRUCT_IN.TSET-FAU_STRUCT_IN.STS>=3.0 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.TSET
SUB FAU_STRUCT_IN.STS
GE 3.0
JMPCN ODK_SKIP_00000000000000D_000000000000001
(* then - Stmts *)
(** FAU_WVCTEMP:=100.0; **)
(* assign - Stmt *)
LD 100.0
ST FAU_WVCTEMP
JMP ODK_END_IF_00000000000000D
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000D_000000000000001:
ODK_END_IF_00000000000000D:
(** if PID_timer.q then **)
(* if - Cond *)
LD PID_timer.q
JMPCN ODK_SKIP_00000000000000E_000000000000001
(* then - Stmts *)
(** FAU_WPID(RUN:= FAU_STRUCT_IN.RUN,STOP_D:=1,STOP_I:=0,SET:=FAU_STRUCT_IN.TSET,FB:=FAU_STRUCT_IN.STS,KFB:=1.0,KP:=FAU_WPID_VP,TI:=FAU_WPID_VI,TD:=1.0,DEAD_BAND:=0.2,YMAX:=100.0,YMIN:=0.0 | FAU_WVCTEMP:=OUT); **)
(* call - Stmt *)
CAL FAU_WPID (
Run := FAU_STRUCT_IN.Run,
STOP_D := 1,
STOP_I := 0,
SET := FAU_STRUCT_IN.TSET,
FB := FAU_STRUCT_IN.STS,
KFB := 1.0,
KP := FAU_WPID_VP,
TI := FAU_WPID_VI,
TD := 1.0,
DEAD_BAND := 0.2,
YMAX := 100.0,
YMIN := 0.0
|
FAU_WVCTEMP := OUT
)
JMP ODK_END_IF_00000000000000E
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000E_000000000000001:
ODK_END_IF_00000000000000E:
JMP ODK_END_IF_00000000000000C
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000C_000000000000001:
ODK_END_IF_00000000000000C:
(** {*���ɼ�*} **)
(** if FAU_STRUCT_IN.SM=2 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.SM
EQ 2
JMPCN ODK_SKIP_00000000000000F_000000000000001
(* then - Stmts *)
(** FAU_WVCTEMP:=0.0; **)
(* assign - Stmt *)
LD 0.0
ST FAU_WVCTEMP
JMP ODK_END_IF_00000000000000F
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000F_000000000000001:
ODK_END_IF_00000000000000F:
JMP ODK_END_IF_000000000000007
(** else **)
(* else *)
ODK_SKIP_000000000000007_000000000000001:
(* else - Stmts *)
(** FAU_WVCTEMP:=0.0; **)
(* assign - Stmt *)
LD 0.0
ST FAU_WVCTEMP
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000007:
JMP ODK_END_IF_000000000000006
(** else **)
(* else *)
ODK_SKIP_000000000000006_000000000000001:
(* else - Stmts *)
(** FAU_WVCTEMP:=FAU_STRUCT_IN.WVMV; **)
(* assign - Stmt *)
LD FAU_STRUCT_IN.WVMV
ST FAU_WVCTEMP
(** end_if; **)
(* if - End *)
ODK_END_IF_000000000000006:
JMP ODK_END_IF_000000000000001
(** **)
(** end_if;{*�����������������������*} **)
(* if - End *)
ODK_SKIP_000000000000001_000000000000001:
ODK_END_IF_000000000000001:
(** **)
(** **)
(** {*ˮ����ֵ����ת��*} **)
(** FAU_STRUCT_OUT.WVCS:=REAL_TO_INT(FAU_WVCTEMP*100.0); **)
(* assign - Stmt *)
LD FAU_WVCTEMP
MUL 100.0
REAL_TO_INT
ST FAU_STRUCT_OUT.WVCS
(** **)
(** **)
(** {***************************************�緧���ŵ�λ���ӳ�ֹͣ���Ƶ���������**********************************************} **)
(** FDOTon( IN:=FDOM , PT:=FAU_STRUCT_IN.VDELAY); **)
(* call - Stmt *)
CAL FDOTon (
IN := FDOM,
PT := FAU_STRUCT_IN.VDELAY
)
(** FDSTon( IN:=FDSM , PT:=FAU_STRUCT_IN.VDELAY); **)
(* call - Stmt *)
CAL FDSTon (
IN := FDSM,
PT := FAU_STRUCT_IN.VDELAY
)
(** **)
(** if FDOM=1 and FDOTon.q=0 then **)
(* if - Cond *)
LD FDOM
EQ 1
AND ( FDOTon.q
EQ 0
)
JMPCN ODK_SKIP_00000000000000G_000000000000001
(* then - Stmts *)
(** FAU_STRUCT_OUT.FDO:=1; **)
(* assign - Stmt *)
LD 1
ST FAU_STRUCT_OUT.FDO
JMP ODK_END_IF_00000000000000G
(** else FAU_STRUCT_OUT.FDO:=0; **)
(* else *)
ODK_SKIP_00000000000000G_000000000000001:
(* else - Stmts *)
(* assign - Stmt *)
LD 0
ST FAU_STRUCT_OUT.FDO
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000G:
(** if FDSM=1 and FDSTon.q=0 then **)
(* if - Cond *)
LD FDSM
EQ 1
AND ( FDSTon.q
EQ 0
)
JMPCN ODK_SKIP_00000000000000H_000000000000001
(* then - Stmts *)
(** FAU_STRUCT_OUT.FDS:=1; **)
(* assign - Stmt *)
LD 1
ST FAU_STRUCT_OUT.FDS
JMP ODK_END_IF_00000000000000H
(** else FAU_STRUCT_OUT.FDS:=0; **)
(* else *)
ODK_SKIP_00000000000000H_000000000000001:
(* else - Stmts *)
(* assign - Stmt *)
LD 0
ST FAU_STRUCT_OUT.FDS
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000H:
(** {*��Ƶ������������ͣ������*} **)
(** {* **)
(** ��Ƶ��������ֹͣ���ɺ������������ر�����,������Ƶ��һ���Դ�����������ֹͣ����ʱ�����˹��� **)
(** **)
(** RunTon5 ( IN:=RunTon5M , PT:=DevDelay5_time ); **)
(** RunTon5M:= not RunTon5.q; **)
(** **)
(** if RunTon3.Q =1 then **)
(** if RunTon5.Q then **)
(** FAU_VFCSM:=FAU_VFCSM+1; **)
(** end_if; **)
(** if FAU_VFCSM>FAU_STRUCT_IN.VFMV then **)
(** FAU_VFCSM:=FAU_STRUCT_IN.VFMV; **)
(** end_if; **)
(** end_if; **)
(** if FAU_CM =0 then **)
(** if RunTon5.Q then **)
(** FAU_VFCSM:=FAU_VFCSM-1; **)
(** end_if; **)
(** if FAU_VFCSM<1 then **)
(** FAU_VFCSM:=0; **)
(** FAU_STRUCT_OUT.Control :=0; **)
(** FDOM:=0; **)
(** FDSM:=1; **)
(** end_if; **)
(** end_if; **)
(** **)
(** **)
(** if RunTon3.q=1 then **)
(** if FAU_VFCSM=FAU_STRUCT_IN.VFMV then **)
(** FAU_STRUCT_OUT.Control:=1; **)
(** end_if; **)
(** if FAU_VFCSM=0 then **)
(** FAU_STRUCT_OUT.Control:=0; **)
(** end_if; **)
(** end_if; **)
(** **)
(** FAU_STRUCT_OUT.VFCS :=FAU_VFCSM; **)
(** *} **)
(** {******************************************************������������******************************************************} **)
(** **)
(** if FAU_STRUCT_IN.ISO3=0 and FAU_STRUCT_IN.SM=1 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.ISO3
EQ 0
AND ( FAU_STRUCT_IN.SM
EQ 1
)
JMPCN ODK_SKIP_00000000000000I_000000000000001
(* then - Stmts *)
(** AFSTON ( IN:=FAU_STRUCT_IN.AFS , PT:=AFSDelay_time | AFSON:=q ); **)
(* call - Stmt *)
CAL AFSTON (
IN := FAU_STRUCT_IN.AFS,
PT := AFSDelay_time
|
AFSON := q
)
(** AFSTOF ( IN:=FAU_STRUCT_IN.AFS , PT:=AFSDelay_time | AFSOF:=q ); **)
(* call - Stmt *)
CAL AFSTOF (
IN := FAU_STRUCT_IN.AFS,
PT := AFSDelay_time
|
AFSOF := q
)
(** if AFSON=1 and AFSOF=1 then **)
(* if - Cond *)
LD AFSON
EQ 1
AND ( AFSOF
EQ 1
)
JMPCN ODK_SKIP_00000000000000J_000000000000001
(* then - Stmts *)
(** AFSM:=1 ; **)
(* assign - Stmt *)
LD 1
ST AFSM
JMP ODK_END_IF_00000000000000J
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000J_000000000000001:
ODK_END_IF_00000000000000J:
(** if AFSOF=0 and AFSON=0 then **)
(* if - Cond *)
LD AFSOF
EQ 0
AND ( AFSON
EQ 0
)
JMPCN ODK_SKIP_00000000000000K_000000000000001
(* then - Stmts *)
(** AFSM:=0 ; **)
(* assign - Stmt *)
LD 0
ST AFSM
JMP ODK_END_IF_00000000000000K
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000K_000000000000001:
ODK_END_IF_00000000000000K:
(** if AFSM=1 then **)
(* if - Cond *)
LD AFSM
EQ 1
JMPCN ODK_SKIP_00000000000000L_000000000000001
(* then - Stmts *)
(** FAU_STRUCT_OUT.Control:=0; **)
(* assign - Stmt *)
LD 0
ST FAU_STRUCT_OUT.Control
(** FAU_WVCTEMP:=100.0; **)
(* assign - Stmt *)
LD 100.0
ST FAU_WVCTEMP
(** FDSM:=1; **)
(* assign - Stmt *)
LD 1
ST FDSM
(** FDOM:=0; **)
(* assign - Stmt *)
LD 0
ST FDOM
(** Status3:=1; **)
(* assign - Stmt *)
LD 1
ST Status3
JMP ODK_END_IF_00000000000000L
(** else **)
(* else *)
ODK_SKIP_00000000000000L_000000000000001:
(* else - Stmts *)
(** Status3:=0; **)
(* assign - Stmt *)
LD 0
ST Status3
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000L:
JMP ODK_END_IF_00000000000000I
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000I_000000000000001:
ODK_END_IF_00000000000000I:
(** {*�Ƕ����������г���������*} **)
(** if FAU_STRUCT_IN.ISO3=1 or FAU_STRUCT_IN.SM<>1 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.ISO3
EQ 1
OR ( FAU_STRUCT_IN.SM
NE 1
)
JMPCN ODK_SKIP_00000000000000M_000000000000001
(* then - Stmts *)
(** AFSM:=0; **)
(* assign - Stmt *)
LD 0
ST AFSM
JMP ODK_END_IF_00000000000000M
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000M_000000000000001:
ODK_END_IF_00000000000000M:
(** **)
(** **)
(** {******************************************************���й��ϻؼ�******************************************************} **)
(** RunTon1( IN:=FAU_STRUCT_IN.Control , PT:=DevCheck1_time); **)
(* call - Stmt *)
CAL RunTon1 (
IN := FAU_STRUCT_IN.Control,
PT := DevCheck1_time
)
(** RunTof1( IN:=FAU_STRUCT_IN.Control , PT:=DevCheck1_time); **)
(* call - Stmt *)
CAL RunTof1 (
IN := FAU_STRUCT_IN.Control,
PT := DevCheck1_time
)
(** RunTon2( IN:=FAU_STRUCT_IN.Control , PT:=DevCheck2_time); **)
(* call - Stmt *)
CAL RunTon2 (
IN := FAU_STRUCT_IN.Control,
PT := DevCheck2_time
)
(** RunTof2( IN:=FAU_STRUCT_IN.Control , PT:=DevCheck2_time); **)
(* call - Stmt *)
CAL RunTof2 (
IN := FAU_STRUCT_IN.Control,
PT := DevCheck2_time
)
(** **)
(** {*�豸��������������ָ�����豸���з�����һ�¹��ϼ��⣬�������ϲ���ԭ������û�硢��·���Ͽ����м��̵������Ӵ������ϵ�ΪStatus0*}; **)
(** **)
(** if FAU_STRUCT_IN.ISO1=0 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.ISO1
EQ 0
JMPCN ODK_SKIP_00000000000000N_000000000000001
(* then - Stmts *)
(** if RunTon1.q or not RunTof1.q then **)
(* if - Cond *)
LD RunTon1.q
OR ( RunTof1.q
NOT
)
JMPCN ODK_SKIP_00000000000000O_000000000000001
(* then - Stmts *)
(** if FAU_STRUCT_OUT.Control<>FAU_STRUCT_IN.Run then **)
(* if - Cond *)
LD FAU_STRUCT_OUT.Control
NE FAU_STRUCT_IN.Run
JMPCN ODK_SKIP_00000000000000P_000000000000001
(* then - Stmts *)
(** Status0:=1; **)
(* assign - Stmt *)
LD 1
ST Status0
JMP ODK_END_IF_00000000000000P
(** else **)
(* else *)
ODK_SKIP_00000000000000P_000000000000001:
(* else - Stmts *)
(** Status0:=0; **)
(* assign - Stmt *)
LD 0
ST Status0
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000P:
(** if FAU_STRUCT_IN.Fault=1 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.Fault
EQ 1
JMPCN ODK_SKIP_00000000000000Q_000000000000001
(* then - Stmts *)
(** Status1:=1; **)
(* assign - Stmt *)
LD 1
ST Status1
JMP ODK_END_IF_00000000000000Q
(** else **)
(* else *)
ODK_SKIP_00000000000000Q_000000000000001:
(* else - Stmts *)
(** Status1:=0; **)
(* assign - Stmt *)
LD 0
ST Status1
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000Q:
JMP ODK_END_IF_00000000000000O
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000O_000000000000001:
ODK_END_IF_00000000000000O:
JMP ODK_END_IF_00000000000000N
(** else **)
(* else *)
ODK_SKIP_00000000000000N_000000000000001:
(* else - Stmts *)
(** Status0:=0; **)
(* assign - Stmt *)
LD 0
ST Status0
(** Status1:=0; **)
(* assign - Stmt *)
LD 0
ST Status1
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000N:
(** **)
(** {*�豸��������������ָ�����豸���з�����һ�¹��ϼ��⣬�������ϲ�������ѹ���޻ؼ��ź�*}; **)
(** if FAU_STRUCT_IN.ISO2=0 then **)
(* if - Cond *)
LD FAU_STRUCT_IN.ISO2
EQ 0
JMPCN ODK_SKIP_00000000000000R_000000000000001
(* then - Stmts *)
(** if RunTon2.q or not RunTof2.q then **)
(* if - Cond *)
LD RunTon2.q
OR ( RunTof2.q
NOT
)
JMPCN ODK_SKIP_00000000000000S_000000000000001
(* then - Stmts *)
(** if FAU_STRUCT_OUT.Control<>FAU_STRUCT_IN.FPS then **)
(* if - Cond *)
LD FAU_STRUCT_OUT.Control
NE FAU_STRUCT_IN.FPS
JMPCN ODK_SKIP_00000000000000T_000000000000001
(* then - Stmts *)
(** Status2:=1; **)
(* assign - Stmt *)
LD 1
ST Status2
JMP ODK_END_IF_00000000000000T
(** else **)
(* else *)
ODK_SKIP_00000000000000T_000000000000001:
(* else - Stmts *)
(** Status2:=0; **)
(* assign - Stmt *)
LD 0
ST Status2
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000T:
JMP ODK_END_IF_00000000000000S
(** end_if; **)
(* if - End *)
ODK_SKIP_00000000000000S_000000000000001:
ODK_END_IF_00000000000000S:
JMP ODK_END_IF_00000000000000R
(** else **)
(* else *)
ODK_SKIP_00000000000000R_000000000000001:
(* else - Stmts *)
(** Status2:=0; **)
(* assign - Stmt *)
LD 0
ST Status2
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000R:
(** **)
(** **)
(** {*�������ϴ���*} **)
(** if FAU_STRUCT_OUT.Control<>0 then **)
(* if - Cond *)
LD FAU_STRUCT_OUT.Control
NE 0
JMPCN ODK_SKIP_00000000000000U_000000000000001
(* then - Stmts *)
(** FAU_STRUCT_OUT.SN := Status0*1 + Status1*2 + Status2*4 + Status3*8; **)
(* assign - Stmt *)
LD Status0
MUL 1
ADD ( Status1
MUL 2
)
ADD ( Status2
MUL 4
)
ADD ( Status3
MUL 8
)
ST FAU_STRUCT_OUT.SN
JMP ODK_END_IF_00000000000000U
(** else **)
(* else *)
ODK_SKIP_00000000000000U_000000000000001:
(* else - Stmts *)
(** FAU_STRUCT_OUT.SN := 0 ; **)
(* assign - Stmt *)
LD 0
ST FAU_STRUCT_OUT.SN
(** end_if; **)
(* if - End *)
ODK_END_IF_00000000000000U:
(** **)
(** {******************************************************����ʱ���ۼ�******************************************************} **)
(** FAU_RunTime(RUN :=FAU_STRUCT_IN.Run , RUNTIMESET :=FAU_STRUCT_IN.RSTV , RUNTIMERST :=FAU_STRUCT_IN.RST ,RunTimeRec_In :=FAU_STRUCT_OUT.RH | FAU_STRUCT_OUT.RH:= RUNTIME); **)
(* call - Stmt *)
CAL FAU_RunTime (
Run := FAU_STRUCT_IN.Run,
RUNTIMESET := FAU_STRUCT_IN.RSTV,
RUNTIMERST := FAU_STRUCT_IN.RST,
RunTimeRec_In := FAU_STRUCT_OUT.RH
|
FAU_STRUCT_OUT.RH := RUNTIME
)
(** **)
(** **)
(** **)
(** **)
(** **)
(** **)
(** **)
(** **)
(** **)
END_FUNCTION_BLOCK