FUNCTION_BLOCK IJ_MSyncControl VAR_EXTERNAL END_VAR VAR_INPUT REAL_IN1 :REAL; REAL_IN2 :REAL; BOOL_IN0 :BOOL; BOOL_IN1 :BOOL; BOOL_IN2 :BOOL; INT_IN1 :INT; INT_IN2 :INT; CM :BOOL; END_VAR VAR_OUTPUT REAL_OUT1 :REAL; REAL_OUT2 :REAL; BOOL_OUT0 :BOOL; BOOL_OUT1 :BOOL; BOOL_OUT2 :BOOL; INT_OUT1 :INT; INT_OUT2 :INT; END_VAR VAR REAL_TEMP1 :REAL; REAL_TEMP2 :REAL; BOOL_TEMP0 :BOOL; BOOL_TEMP1 :BOOL; BOOL_TEMP2 :BOOL; INT_TEMP1 :INT; INT_TEMP2 :INT; END_VAR (*Automatically declared*) VAR_EXTERNAL END_VAR (** {* **) (** **) (** 时 间:20191009 **) (** 版 本:1.0 **) (** 作 者:姚立 **) (** 名 称:主控CPU新云群控、本地群控、定时控制(BOOL型专用)同步功能块 **) (** 说 明: **) (** IN0 为定时控制 (仅为BOOL型有,保留给定时控制) **) (** IN1为本地群控,IN2为新云群控 **) (** CM 为新云模式 0本地模式 1新云模式 **) (** **) (** 支持BOOL,REAL,INT三种类型变量 **) (** 备 注: **) (** 依赖块:无 **) (** **) (** *} **) (** **) (** {**********新云模式时变量相互同步,本地模式时,本地->新云单向同步*************} **) (** if CM =0 then {*本地模式*} **) (* if - Cond *) LD CM EQ 0 JMPCN ODK_SKIP_000000000000001_000000000000001 (* then - Stmts *) (** {*定时控制--》本地群控--》新云群控*} **) (** if BOOL_IN0<>BOOL_TEMP0 then {*定时控制--》本地群组控制*} **) (* if - Cond *) LD BOOL_IN0 NE BOOL_TEMP0 JMPCN ODK_SKIP_000000000000002_000000000000001 (* then - Stmts *) (** BOOL_OUT0:=BOOL_IN0; {*定时群控*} **) (* assign - Stmt *) LD BOOL_IN0 ST BOOL_OUT0 (** BOOL_OUT1:=BOOL_IN0; {*本地群控*} **) (* assign - Stmt *) LD BOOL_IN0 ST BOOL_OUT1 JMP ODK_END_IF_000000000000002 (** else **) (* else *) ODK_SKIP_000000000000002_000000000000001: (* else - Stmts *) (** BOOL_OUT1:=BOOL_IN1; **) (* assign - Stmt *) LD BOOL_IN1 ST BOOL_OUT1 (** BOOL_OUT2:=BOOL_IN1; **) (* assign - Stmt *) LD BOOL_IN1 ST BOOL_OUT2 (** end_if; **) (* if - End *) ODK_END_IF_000000000000002: JMP ODK_END_IF_000000000000001 (** end_if; **) (* if - End *) ODK_SKIP_000000000000001_000000000000001: ODK_END_IF_000000000000001: (** **) (** if CM =1 then {*新云模式*} **) (* if - Cond *) LD CM EQ 1 JMPCN ODK_SKIP_000000000000003_000000000000001 (* then - Stmts *) (** {*新云群控《--》本地群控*} **) (** if BOOL_IN1<>BOOL_TEMP1 then {*新云群控《-- 本地群控*} **) (* if - Cond *) LD BOOL_IN1 NE BOOL_TEMP1 JMPCN ODK_SKIP_000000000000004_000000000000001 (* then - Stmts *) (** BOOL_OUT1:=BOOL_IN1; **) (* assign - Stmt *) LD BOOL_IN1 ST BOOL_OUT1 (** BOOL_OUT2:=BOOL_IN1; **) (* assign - Stmt *) LD BOOL_IN1 ST BOOL_OUT2 JMP ODK_END_IF_000000000000004 (** elsif BOOL_IN2<>BOOL_TEMP2 then {*新云群控 --》本地群控*} **) (* elseif - Cond *) ODK_SKIP_000000000000004_000000000000001: LD BOOL_IN2 NE BOOL_TEMP2 JMPCN ODK_SKIP_000000000000004_000000000000002 (* elsif - Stmts *) (** BOOL_OUT1:=BOOL_IN2; **) (* assign - Stmt *) LD BOOL_IN2 ST BOOL_OUT1 (** BOOL_OUT2:=BOOL_IN2; **) (* assign - Stmt *) LD BOOL_IN2 ST BOOL_OUT2 JMP ODK_END_IF_000000000000004 (** end_if; **) (* if - End *) ODK_SKIP_000000000000004_000000000000002: ODK_END_IF_000000000000004: JMP ODK_END_IF_000000000000003 (** end_if; **) (* if - End *) ODK_SKIP_000000000000003_000000000000001: ODK_END_IF_000000000000003: (** **) (** BOOL_TEMP0:=BOOL_IN0; **) (* assign - Stmt *) LD BOOL_IN0 ST BOOL_TEMP0 (** BOOL_TEMP1:=BOOL_IN1; **) (* assign - Stmt *) LD BOOL_IN1 ST BOOL_TEMP1 (** BOOL_TEMP2:=BOOL_IN2; **) (* assign - Stmt *) LD BOOL_IN2 ST BOOL_TEMP2 (** **) (** if CM =0 then **) (* if - Cond *) LD CM EQ 0 JMPCN ODK_SKIP_000000000000005_000000000000001 (* then - Stmts *) (** REAL_OUT1:=REAL_IN1; **) (* assign - Stmt *) LD REAL_IN1 ST REAL_OUT1 (** REAL_OUT2:=REAL_IN1; **) (* assign - Stmt *) LD REAL_IN1 ST REAL_OUT2 JMP ODK_END_IF_000000000000005 (** end_if; **) (* if - End *) ODK_SKIP_000000000000005_000000000000001: ODK_END_IF_000000000000005: (** **) (** **) (** if CM =1 then **) (* if - Cond *) LD CM EQ 1 JMPCN ODK_SKIP_000000000000006_000000000000001 (* then - Stmts *) (** if REAL_IN1<>REAL_TEMP1 then **) (* if - Cond *) LD REAL_IN1 NE REAL_TEMP1 JMPCN ODK_SKIP_000000000000007_000000000000001 (* then - Stmts *) (** REAL_OUT1:=REAL_IN1; **) (* assign - Stmt *) LD REAL_IN1 ST REAL_OUT1 (** REAL_OUT2:=REAL_IN1; **) (* assign - Stmt *) LD REAL_IN1 ST REAL_OUT2 JMP ODK_END_IF_000000000000007 (** elsif REAL_IN2<>REAL_TEMP2 then **) (* elseif - Cond *) ODK_SKIP_000000000000007_000000000000001: LD REAL_IN2 NE REAL_TEMP2 JMPCN ODK_SKIP_000000000000007_000000000000002 (* elsif - Stmts *) (** REAL_OUT1:=REAL_IN2; **) (* assign - Stmt *) LD REAL_IN2 ST REAL_OUT1 (** REAL_OUT2:=REAL_IN2; **) (* assign - Stmt *) LD REAL_IN2 ST REAL_OUT2 JMP ODK_END_IF_000000000000007 (** end_if; **) (* if - End *) ODK_SKIP_000000000000007_000000000000002: ODK_END_IF_000000000000007: JMP ODK_END_IF_000000000000006 (** end_if; **) (* if - End *) ODK_SKIP_000000000000006_000000000000001: ODK_END_IF_000000000000006: (** **) (** REAL_TEMP1:=REAL_IN1; **) (* assign - Stmt *) LD REAL_IN1 ST REAL_TEMP1 (** REAL_TEMP2:=REAL_IN2; **) (* assign - Stmt *) LD REAL_IN2 ST REAL_TEMP2 (** **) (** if CM =0 then **) (* if - Cond *) LD CM EQ 0 JMPCN ODK_SKIP_000000000000008_000000000000001 (* then - Stmts *) (** INT_OUT1:=INT_IN1; **) (* assign - Stmt *) LD INT_IN1 ST INT_OUT1 (** INT_OUT2:=INT_IN1; **) (* assign - Stmt *) LD INT_IN1 ST INT_OUT2 JMP ODK_END_IF_000000000000008 (** end_if; **) (* if - End *) ODK_SKIP_000000000000008_000000000000001: ODK_END_IF_000000000000008: (** **) (** if CM =1 then **) (* if - Cond *) LD CM EQ 1 JMPCN ODK_SKIP_000000000000009_000000000000001 (* then - Stmts *) (** if INT_IN1<>INT_TEMP1 then **) (* if - Cond *) LD INT_IN1 NE INT_TEMP1 JMPCN ODK_SKIP_00000000000000A_000000000000001 (* then - Stmts *) (** INT_OUT1:=INT_IN1; **) (* assign - Stmt *) LD INT_IN1 ST INT_OUT1 (** INT_OUT2:=INT_IN1; **) (* assign - Stmt *) LD INT_IN1 ST INT_OUT2 JMP ODK_END_IF_00000000000000A (** elsif INT_IN2<>INT_TEMP2 then **) (* elseif - Cond *) ODK_SKIP_00000000000000A_000000000000001: LD INT_IN2 NE INT_TEMP2 JMPCN ODK_SKIP_00000000000000A_000000000000002 (* elsif - Stmts *) (** INT_OUT1:=INT_IN2; **) (* assign - Stmt *) LD INT_IN2 ST INT_OUT1 (** INT_OUT2:=INT_IN2; **) (* assign - Stmt *) LD INT_IN2 ST INT_OUT2 JMP ODK_END_IF_00000000000000A (** end_if; **) (* if - End *) ODK_SKIP_00000000000000A_000000000000002: ODK_END_IF_00000000000000A: JMP ODK_END_IF_000000000000009 (** end_if; **) (* if - End *) ODK_SKIP_000000000000009_000000000000001: ODK_END_IF_000000000000009: (** **) (** INT_TEMP1:=INT_IN1; **) (* assign - Stmt *) LD INT_IN1 ST INT_TEMP1 (** INT_TEMP2:=INT_IN2; **) (* assign - Stmt *) LD INT_IN2 ST INT_TEMP2 (** **) END_FUNCTION_BLOCK