FUNCTION_BLOCK BS_DelayRemoteVavle
VAR_EXTERNAL

END_VAR

VAR_INPUT
Lock	  :INT;
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;

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;

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;

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;

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;

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;

END_VAR

VAR
REAL_RemoteSetP :REAL;
BOOL_RemoteSetP :BOOL;
INT_RemoteSetP   :INT;
Delay_Ton1	    :TON;
Delay_Ton2	    :TON;
Delay_Ton3	    :TON;
END_VAR
(* 

时  间：20191008
版  本：1.1
作  者：姚立
名  称：变量延时批量赋值
说  明：用于变量延时批量赋值，可选锁定单体变量输入
		1-5s分别赋值1-10变量/1-5s分别赋值11-20变量；
		LOCK 0均不锁定;1锁定BOOL;2,锁定INT;3,锁定REAL;
备  注：支持10组BOOL,10组REAL,10组INT
依赖块：无

*)
(**********一个REAL型总变量对50个变量赋值，50个变量也可单独赋值*************)
Delay_Ton1(PT :=t#5s );
if REAL_RemoteSet<>REAL_RemoteSetP and Delay_Ton1.Q=0 then
	Delay_Ton1.IN:=1;
end_if;
if Delay_Ton1.Q=1 then
	Delay_Ton1.IN:=0;
end_if;

Delay_Ton2(PT :=t#5s );
if BOOL_RemoteSet<>BOOL_RemoteSetP and Delay_Ton2.Q=0 then
	Delay_Ton2.IN:=1;
end_if;
if Delay_Ton2.Q=1 then
	Delay_Ton2.IN:=0;
end_if;

Delay_Ton3(PT :=t#5s );
if INT_RemoteSet<>INT_RemoteSetP and Delay_Ton3.Q=0 then
	Delay_Ton3.IN:=1;
end_if;
if Delay_Ton3.Q=1 then
	Delay_Ton3.IN:=0;
end_if;


if REAL_RemoteSet<>REAL_RemoteSetP then
	
	if Delay_Ton1.et>t#0.0s then REAL_OUT01:=REAL_RemoteSet; end_if;
	if Delay_Ton1.et>t#0.5s then REAL_OUT02:=REAL_RemoteSet; end_if;
	if Delay_Ton1.et>t#1.0s then REAL_OUT03:=REAL_RemoteSet; end_if;
	if Delay_Ton1.et>t#1.5s then REAL_OUT04:=REAL_RemoteSet; end_if;
	if Delay_Ton1.et>t#2.0s then REAL_OUT05:=REAL_RemoteSet; end_if;
	if Delay_Ton1.et>t#2.5s then REAL_OUT06:=REAL_RemoteSet; end_if;
	if Delay_Ton1.et>t#3.0s then REAL_OUT07:=REAL_RemoteSet; end_if;
	if Delay_Ton1.et>t#3.5s then REAL_OUT08:=REAL_RemoteSet; end_if;
	if Delay_Ton1.et>t#4.0s then REAL_OUT09:=REAL_RemoteSet; end_if;
	if Delay_Ton1.et>t#4.5s then REAL_OUT10:=REAL_RemoteSet; end_if;

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;	 
		 
end_if;

	
(**********一个BOOL型总变量对50个变量赋值，50个变量也可单独赋值*************)

if BOOL_RemoteSet<>BOOL_RemoteSetP then

	if Delay_Ton2.et>t#0.0s then BOOL_OUT01:=BOOL_RemoteSet; end_if;
	if Delay_Ton2.et>t#0.5s then BOOL_OUT02:=BOOL_RemoteSet; end_if;
	if Delay_Ton2.et>t#1.0s then BOOL_OUT03:=BOOL_RemoteSet; end_if;
	if Delay_Ton2.et>t#1.5s then BOOL_OUT04:=BOOL_RemoteSet; end_if;
	if Delay_Ton2.et>t#2.0s then BOOL_OUT05:=BOOL_RemoteSet; end_if;
	if Delay_Ton2.et>t#2.5s then BOOL_OUT06:=BOOL_RemoteSet; end_if;
	if Delay_Ton2.et>t#3.0s then BOOL_OUT07:=BOOL_RemoteSet; end_if;
	if Delay_Ton2.et>t#3.5s then BOOL_OUT08:=BOOL_RemoteSet; end_if;
	if Delay_Ton2.et>t#4.0s then BOOL_OUT09:=BOOL_RemoteSet; end_if;
	if Delay_Ton2.et>t#4.5s then BOOL_OUT10:=BOOL_RemoteSet; end_if;
	
	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;	 

end_if;


(**********一个INT型总变量对50个变量赋值，50个变量也可单独赋值*************)

if INT_RemoteSet<>INT_RemoteSetP then
	
	if Delay_Ton3.et>t#0.0s then INT_OUT01:=INT_RemoteSet; end_if;
	if Delay_Ton3.et>t#0.5s then INT_OUT02:=INT_RemoteSet; end_if;
	if Delay_Ton3.et>t#1.0s then INT_OUT03:=INT_RemoteSet; end_if;
	if Delay_Ton3.et>t#1.5s then INT_OUT04:=INT_RemoteSet; end_if;
	if Delay_Ton3.et>t#2.0s then INT_OUT05:=INT_RemoteSet; end_if;
	if Delay_Ton3.et>t#2.5s then INT_OUT06:=INT_RemoteSet; end_if;
	if Delay_Ton3.et>t#3.0s then INT_OUT07:=INT_RemoteSet; end_if;
	if Delay_Ton3.et>t#3.5s then INT_OUT08:=INT_RemoteSet; end_if;
	if Delay_Ton3.et>t#4.0s then INT_OUT09:=INT_RemoteSet; end_if;
	if Delay_Ton3.et>t#4.5s then INT_OUT10:=INT_RemoteSet; end_if;
	
	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;	 

end_if;

case lock of
(*0时，均不锁定，1锁定BOOL;2,锁定INT;3,锁定REAL;*)
0:
	BOOL_RemoteSetP:=BOOL_RemoteSet;
	INT_RemoteSetP:=INT_RemoteSet;
	REAL_RemoteSetP:=REAL_RemoteSet;
1: 
	INT_RemoteSetP:=INT_RemoteSet;
	REAL_RemoteSetP:=REAL_RemoteSet;
2: 
	BOOL_RemoteSetP:=BOOL_RemoteSet;
	REAL_RemoteSetP:=REAL_RemoteSet;
3: 
	BOOL_RemoteSetP:=BOOL_RemoteSet;
	INT_RemoteSetP:=INT_RemoteSet;
end_case;


END_FUNCTION_BLOCK