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.
 
 
 
 
 
 

511 lines
9.1 KiB

FUNCTION_BLOCK BS_RemoteVavle
VAR_EXTERNAL
END_VAR
VAR_INPUT
REAL_RemoteSet:REAL;
REAL_IN01 :REAL;
REAL_IN02 :REAL;
REAL_IN03 :REAL;
REAL_IN04 :REAL;
REAL_IN05 :REAL;
REAL_IN06 :REAL;
REAL_IN07 :REAL;
REAL_IN08 :REAL;
REAL_IN09 :REAL;
REAL_IN10 :REAL;
REAL_IN11 :REAL;
REAL_IN12 :REAL;
REAL_IN13 :REAL;
REAL_IN14 :REAL;
REAL_IN15 :REAL;
REAL_IN16 :REAL;
REAL_IN17 :REAL;
REAL_IN18 :REAL;
REAL_IN19 :REAL;
REAL_IN20 :REAL;
REAL_IN21 :REAL;
REAL_IN22 :REAL;
REAL_IN23 :REAL;
REAL_IN24 :REAL;
REAL_IN25 :REAL;
REAL_IN26 :REAL;
REAL_IN27 :REAL;
REAL_IN28 :REAL;
REAL_IN29 :REAL;
REAL_IN30 :REAL;
REAL_IN31 :REAL;
REAL_IN32 :REAL;
REAL_IN33 :REAL;
REAL_IN34 :REAL;
REAL_IN35 :REAL;
REAL_IN36 :REAL;
REAL_IN37 :REAL;
REAL_IN38 :REAL;
REAL_IN39 :REAL;
REAL_IN40 :REAL;
REAL_IN41 :REAL;
REAL_IN42 :REAL;
REAL_IN43 :REAL;
REAL_IN44 :REAL;
REAL_IN45 :REAL;
REAL_IN46 :REAL;
REAL_IN47 :REAL;
REAL_IN48 :REAL;
REAL_IN49 :REAL;
REAL_IN50 :REAL;
BOOL_RemoteSet:BOOL;
BOOL_IN01 :BOOL;
BOOL_IN02 :BOOL;
BOOL_IN03 :BOOL;
BOOL_IN04 :BOOL;
BOOL_IN05 :BOOL;
BOOL_IN06 :BOOL;
BOOL_IN07 :BOOL;
BOOL_IN08 :BOOL;
BOOL_IN09 :BOOL;
BOOL_IN10 :BOOL;
BOOL_IN11 :BOOL;
BOOL_IN12 :BOOL;
BOOL_IN13 :BOOL;
BOOL_IN14 :BOOL;
BOOL_IN15 :BOOL;
BOOL_IN16 :BOOL;
BOOL_IN17 :BOOL;
BOOL_IN18 :BOOL;
BOOL_IN19 :BOOL;
BOOL_IN20 :BOOL;
BOOL_IN21 :BOOL;
BOOL_IN22 :BOOL;
BOOL_IN23 :BOOL;
BOOL_IN24 :BOOL;
BOOL_IN25 :BOOL;
BOOL_IN26 :BOOL;
BOOL_IN27 :BOOL;
BOOL_IN28 :BOOL;
BOOL_IN29 :BOOL;
BOOL_IN30 :BOOL;
BOOL_IN31 :BOOL;
BOOL_IN32 :BOOL;
BOOL_IN33 :BOOL;
BOOL_IN34 :BOOL;
BOOL_IN35 :BOOL;
BOOL_IN36 :BOOL;
BOOL_IN37 :BOOL;
BOOL_IN38 :BOOL;
BOOL_IN39 :BOOL;
BOOL_IN40 :BOOL;
BOOL_IN41 :BOOL;
BOOL_IN42 :BOOL;
BOOL_IN43 :BOOL;
BOOL_IN44 :BOOL;
BOOL_IN45 :BOOL;
BOOL_IN46 :BOOL;
BOOL_IN47 :BOOL;
BOOL_IN48 :BOOL;
BOOL_IN49 :BOOL;
BOOL_IN50 :BOOL;
INT_RemoteSet:INT;
INT_IN01 :INT;
INT_IN02 :INT;
INT_IN03 :INT;
INT_IN04 :INT;
INT_IN05 :INT;
INT_IN06 :INT;
INT_IN07 :INT;
INT_IN08 :INT;
INT_IN09 :INT;
INT_IN10 :INT;
INT_IN11 :INT;
INT_IN12 :INT;
INT_IN13 :INT;
INT_IN14 :INT;
INT_IN15 :INT;
INT_IN16 :INT;
INT_IN17 :INT;
INT_IN18 :INT;
INT_IN19 :INT;
INT_IN20 :INT;
INT_IN21 :INT;
INT_IN22 :INT;
INT_IN23 :INT;
INT_IN24 :INT;
INT_IN25 :INT;
INT_IN26 :INT;
INT_IN27 :INT;
INT_IN28 :INT;
INT_IN29 :INT;
INT_IN30 :INT;
INT_IN31 :INT;
INT_IN32 :INT;
INT_IN33 :INT;
INT_IN34 :INT;
INT_IN35 :INT;
INT_IN36 :INT;
INT_IN37 :INT;
INT_IN38 :INT;
INT_IN39 :INT;
INT_IN40 :INT;
INT_IN41 :INT;
INT_IN42 :INT;
INT_IN43 :INT;
INT_IN44 :INT;
INT_IN45 :INT;
INT_IN46 :INT;
INT_IN47 :INT;
INT_IN48 :INT;
INT_IN49 :INT;
INT_IN50 :INT;
END_VAR
VAR_OUTPUT
REAL_OUT01 :REAL;
REAL_OUT02 :REAL;
REAL_OUT03 :REAL;
REAL_OUT04 :REAL;
REAL_OUT05 :REAL;
REAL_OUT06 :REAL;
REAL_OUT07 :REAL;
REAL_OUT08 :REAL;
REAL_OUT09 :REAL;
REAL_OUT10 :REAL;
REAL_OUT11 :REAL;
REAL_OUT12 :REAL;
REAL_OUT13 :REAL;
REAL_OUT14 :REAL;
REAL_OUT15 :REAL;
REAL_OUT16 :REAL;
REAL_OUT17 :REAL;
REAL_OUT18 :REAL;
REAL_OUT19 :REAL;
REAL_OUT20 :REAL;
REAL_OUT21 :REAL;
REAL_OUT22 :REAL;
REAL_OUT23 :REAL;
REAL_OUT24 :REAL;
REAL_OUT25 :REAL;
REAL_OUT26 :REAL;
REAL_OUT27 :REAL;
REAL_OUT28 :REAL;
REAL_OUT29 :REAL;
REAL_OUT30 :REAL;
REAL_OUT31 :REAL;
REAL_OUT32 :REAL;
REAL_OUT33 :REAL;
REAL_OUT34 :REAL;
REAL_OUT35 :REAL;
REAL_OUT36 :REAL;
REAL_OUT37 :REAL;
REAL_OUT38 :REAL;
REAL_OUT39 :REAL;
REAL_OUT40 :REAL;
REAL_OUT41 :REAL;
REAL_OUT42 :REAL;
REAL_OUT43 :REAL;
REAL_OUT44 :REAL;
REAL_OUT45 :REAL;
REAL_OUT46 :REAL;
REAL_OUT47 :REAL;
REAL_OUT48 :REAL;
REAL_OUT49 :REAL;
REAL_OUT50 :REAL;
BOOL_OUT01 :BOOL;
BOOL_OUT02 :BOOL;
BOOL_OUT03 :BOOL;
BOOL_OUT04 :BOOL;
BOOL_OUT05 :BOOL;
BOOL_OUT06 :BOOL;
BOOL_OUT07 :BOOL;
BOOL_OUT08 :BOOL;
BOOL_OUT09 :BOOL;
BOOL_OUT10 :BOOL;
BOOL_OUT11 :BOOL;
BOOL_OUT12 :BOOL;
BOOL_OUT13 :BOOL;
BOOL_OUT14 :BOOL;
BOOL_OUT15 :BOOL;
BOOL_OUT16 :BOOL;
BOOL_OUT17 :BOOL;
BOOL_OUT18 :BOOL;
BOOL_OUT19 :BOOL;
BOOL_OUT20 :BOOL;
BOOL_OUT21 :BOOL;
BOOL_OUT22 :BOOL;
BOOL_OUT23 :BOOL;
BOOL_OUT24 :BOOL;
BOOL_OUT25 :BOOL;
BOOL_OUT26 :BOOL;
BOOL_OUT27 :BOOL;
BOOL_OUT28 :BOOL;
BOOL_OUT29 :BOOL;
BOOL_OUT30 :BOOL;
BOOL_OUT31 :BOOL;
BOOL_OUT32 :BOOL;
BOOL_OUT33 :BOOL;
BOOL_OUT34 :BOOL;
BOOL_OUT35 :BOOL;
BOOL_OUT36 :BOOL;
BOOL_OUT37 :BOOL;
BOOL_OUT38 :BOOL;
BOOL_OUT39 :BOOL;
BOOL_OUT40 :BOOL;
BOOL_OUT41 :BOOL;
BOOL_OUT42 :BOOL;
BOOL_OUT43 :BOOL;
BOOL_OUT44 :BOOL;
BOOL_OUT45 :BOOL;
BOOL_OUT46 :BOOL;
BOOL_OUT47 :BOOL;
BOOL_OUT48 :BOOL;
BOOL_OUT49 :BOOL;
BOOL_OUT50 :BOOL;
INT_OUT01 :INT;
INT_OUT02 :INT;
INT_OUT03 :INT;
INT_OUT04 :INT;
INT_OUT05 :INT;
INT_OUT06 :INT;
INT_OUT07 :INT;
INT_OUT08 :INT;
INT_OUT09 :INT;
INT_OUT10 :INT;
INT_OUT11 :INT;
INT_OUT12 :INT;
INT_OUT13 :INT;
INT_OUT14 :INT;
INT_OUT15 :INT;
INT_OUT16 :INT;
INT_OUT17 :INT;
INT_OUT18 :INT;
INT_OUT19 :INT;
INT_OUT20 :INT;
INT_OUT21 :INT;
INT_OUT22 :INT;
INT_OUT23 :INT;
INT_OUT24 :INT;
INT_OUT25 :INT;
INT_OUT26 :INT;
INT_OUT27 :INT;
INT_OUT28 :INT;
INT_OUT29 :INT;
INT_OUT30 :INT;
INT_OUT31 :INT;
INT_OUT32 :INT;
INT_OUT33 :INT;
INT_OUT34 :INT;
INT_OUT35 :INT;
INT_OUT36 :INT;
INT_OUT37 :INT;
INT_OUT38 :INT;
INT_OUT39 :INT;
INT_OUT40 :INT;
INT_OUT41 :INT;
INT_OUT42 :INT;
INT_OUT43 :INT;
INT_OUT44 :INT;
INT_OUT45 :INT;
INT_OUT46 :INT;
INT_OUT47 :INT;
INT_OUT48 :INT;
INT_OUT49 :INT;
INT_OUT50 :INT;
END_VAR
VAR
REAL_RemoteSetP :REAL;
BOOL_RemoteSetP :BOOL;
INT_RemoteSetP :INT;
END_VAR
(*
时 间:20191008
版 本:1.1
作 者:姚立
名 称:远程平台赋值程序
说 明:用于远程平台赋值,又不锁定本地变量输入
备 注:
依赖块:无
*)
(**********一个REAL型总变量对20个变量赋值,20个变量也可单独赋值*************)
if REAL_RemoteSet<>REAL_RemoteSetP then
REAL_OUT01:=REAL_RemoteSet;
REAL_OUT02:=REAL_RemoteSet;
REAL_OUT03:=REAL_RemoteSet;
REAL_OUT04:=REAL_RemoteSet;
REAL_OUT05:=REAL_RemoteSet;
REAL_OUT06:=REAL_RemoteSet;
REAL_OUT07:=REAL_RemoteSet;
REAL_OUT08:=REAL_RemoteSet;
REAL_OUT09:=REAL_RemoteSet;
REAL_OUT10:=REAL_RemoteSet;
REAL_OUT11:=REAL_RemoteSet;
REAL_OUT12:=REAL_RemoteSet;
REAL_OUT13:=REAL_RemoteSet;
REAL_OUT14:=REAL_RemoteSet;
REAL_OUT15:=REAL_RemoteSet;
REAL_OUT16:=REAL_RemoteSet;
REAL_OUT17:=REAL_RemoteSet;
REAL_OUT18:=REAL_RemoteSet;
REAL_OUT19:=REAL_RemoteSet;
REAL_OUT20:=REAL_RemoteSet;
elsif REAL_RemoteSet=REAL_RemoteSetP then
REAL_OUT01:=REAL_IN01;
REAL_OUT02:=REAL_IN02;
REAL_OUT03:=REAL_IN03;
REAL_OUT04:=REAL_IN04;
REAL_OUT05:=REAL_IN05;
REAL_OUT06:=REAL_IN06;
REAL_OUT07:=REAL_IN07;
REAL_OUT08:=REAL_IN08;
REAL_OUT09:=REAL_IN09;
REAL_OUT10:=REAL_IN10;
REAL_OUT11:=REAL_IN11;
REAL_OUT12:=REAL_IN12;
REAL_OUT13:=REAL_IN13;
REAL_OUT14:=REAL_IN14;
REAL_OUT15:=REAL_IN15;
REAL_OUT16:=REAL_IN16;
REAL_OUT17:=REAL_IN17;
REAL_OUT18:=REAL_IN18;
REAL_OUT19:=REAL_IN19;
REAL_OUT20:=REAL_IN20;
end_if;
REAL_RemoteSetP:=REAL_RemoteSet;
(**********一个BOOL型总变量对50个变量赋值,50个变量也可单独赋值*************)
if BOOL_RemoteSet<>BOOL_RemoteSetP then
BOOL_OUT01:=BOOL_RemoteSet;
BOOL_OUT02:=BOOL_RemoteSet;
BOOL_OUT03:=BOOL_RemoteSet;
BOOL_OUT04:=BOOL_RemoteSet;
BOOL_OUT05:=BOOL_RemoteSet;
BOOL_OUT06:=BOOL_RemoteSet;
BOOL_OUT07:=BOOL_RemoteSet;
BOOL_OUT08:=BOOL_RemoteSet;
BOOL_OUT09:=BOOL_RemoteSet;
BOOL_OUT10:=BOOL_RemoteSet;
BOOL_OUT11:=BOOL_RemoteSet;
BOOL_OUT12:=BOOL_RemoteSet;
BOOL_OUT13:=BOOL_RemoteSet;
BOOL_OUT14:=BOOL_RemoteSet;
BOOL_OUT15:=BOOL_RemoteSet;
BOOL_OUT16:=BOOL_RemoteSet;
BOOL_OUT17:=BOOL_RemoteSet;
BOOL_OUT18:=BOOL_RemoteSet;
BOOL_OUT19:=BOOL_RemoteSet;
BOOL_OUT20:=BOOL_RemoteSet;
elsif BOOL_RemoteSet=BOOL_RemoteSetP then
BOOL_OUT01:=BOOL_IN01;
BOOL_OUT02:=BOOL_IN02;
BOOL_OUT03:=BOOL_IN03;
BOOL_OUT04:=BOOL_IN04;
BOOL_OUT05:=BOOL_IN05;
BOOL_OUT06:=BOOL_IN06;
BOOL_OUT07:=BOOL_IN07;
BOOL_OUT08:=BOOL_IN08;
BOOL_OUT09:=BOOL_IN09;
BOOL_OUT10:=BOOL_IN10;
BOOL_OUT11:=BOOL_IN11;
BOOL_OUT12:=BOOL_IN12;
BOOL_OUT13:=BOOL_IN13;
BOOL_OUT14:=BOOL_IN14;
BOOL_OUT15:=BOOL_IN15;
BOOL_OUT16:=BOOL_IN16;
BOOL_OUT17:=BOOL_IN17;
BOOL_OUT18:=BOOL_IN18;
BOOL_OUT19:=BOOL_IN19;
BOOL_OUT20:=BOOL_IN20;
end_if;
BOOL_RemoteSetP:=BOOL_RemoteSet;
(**********一个INT型总变量对50个变量赋值,50个变量也可单独赋值*************)
if INT_RemoteSet<>INT_RemoteSetP then
INT_OUT01:=INT_RemoteSet;
INT_OUT02:=INT_RemoteSet;
INT_OUT03:=INT_RemoteSet;
INT_OUT04:=INT_RemoteSet;
INT_OUT05:=INT_RemoteSet;
INT_OUT06:=INT_RemoteSet;
INT_OUT07:=INT_RemoteSet;
INT_OUT08:=INT_RemoteSet;
INT_OUT09:=INT_RemoteSet;
INT_OUT10:=INT_RemoteSet;
INT_OUT11:=INT_RemoteSet;
INT_OUT12:=INT_RemoteSet;
INT_OUT13:=INT_RemoteSet;
INT_OUT14:=INT_RemoteSet;
INT_OUT15:=INT_RemoteSet;
INT_OUT16:=INT_RemoteSet;
INT_OUT17:=INT_RemoteSet;
INT_OUT18:=INT_RemoteSet;
INT_OUT19:=INT_RemoteSet;
INT_OUT20:=INT_RemoteSet;
elsif INT_RemoteSet=INT_RemoteSetP then
INT_OUT01:=INT_IN01;
INT_OUT02:=INT_IN02;
INT_OUT03:=INT_IN03;
INT_OUT04:=INT_IN04;
INT_OUT05:=INT_IN05;
INT_OUT06:=INT_IN06;
INT_OUT07:=INT_IN07;
INT_OUT08:=INT_IN08;
INT_OUT09:=INT_IN09;
INT_OUT10:=INT_IN10;
INT_OUT11:=INT_IN11;
INT_OUT12:=INT_IN12;
INT_OUT13:=INT_IN13;
INT_OUT14:=INT_IN14;
INT_OUT15:=INT_IN15;
INT_OUT16:=INT_IN16;
INT_OUT17:=INT_IN17;
INT_OUT18:=INT_IN18;
INT_OUT19:=INT_IN19;
INT_OUT20:=INT_IN20;
end_if;
INT_RemoteSetP:=INT_RemoteSet;
END_FUNCTION_BLOCK