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.
723 lines
26 KiB
723 lines
26 KiB
FUNCTION_BLOCK IJ_LCB1030
|
|
VAR_EXTERNAL
|
|
|
|
END_VAR
|
|
|
|
VAR_INPUT
|
|
|
|
LOCK :int:=0;
|
|
LightGroup_Input :array[0..10,0..30] of bool;
|
|
CM :bool;
|
|
Delay :time:=t#50ms;
|
|
END_VAR
|
|
|
|
VAR_OUTPUT
|
|
|
|
LightGroup_Output :array[0..10,0..30] of bool;
|
|
|
|
END_VAR
|
|
|
|
VAR
|
|
|
|
LightGroup_OutputP :array[0..10] of bool;
|
|
LightGroup_InputP :array[0..10] of bool;
|
|
Delay_ton1 :ton;
|
|
Delay_ton2 :ton;
|
|
Delay_ton3 :ton;
|
|
Delay_ton4 :ton;
|
|
Delay_ton5 :ton;
|
|
Delay_ton6 :ton;
|
|
Delay_ton7 :ton;
|
|
Delay_ton8 :ton;
|
|
Delay_ton9 :ton;
|
|
Delay_ton10 :ton;
|
|
i :int;
|
|
j1 :int;
|
|
j2 :int;
|
|
j3 :int;
|
|
j4 :int;
|
|
j5 :int;
|
|
j6 :int;
|
|
j7 :int;
|
|
j8 :int;
|
|
j9 :int;
|
|
j10 :int;
|
|
k :int;
|
|
|
|
END_VAR
|
|
(*
|
|
|
|
时 间：20200731
|
|
版 本：1.1
|
|
作 者：姚立
|
|
名 称：照明电控箱控制程序
|
|
说 明：
|
|
CM 为群组控制启用和失效
|
|
LOCK 为锁定模式 0不锁定 1锁定
|
|
Delay 为回路延时设定，默认为50ms
|
|
LightGroup_Input 照明分组变量输入 array[0..10,0..30] 前部分为分组，后部分为回路
|
|
LightGroup_Output 照明分组变量输出 array[0..10,0..30] 前部分为分组，后部分为回路
|
|
|
|
1.新云控制同步功能
|
|
|
|
CM=0 不接收群组控制
|
|
CM=1 接收群组控制
|
|
|
|
2.延时赋值功能
|
|
用于变量延时批量赋值
|
|
回路非锁输出，输出延时间隔可设定，默认50ms
|
|
|
|
3.控制锁定功能
|
|
LOCK 0不锁定;非0锁定;
|
|
|
|
|
|
备 注：支持10种灯具分组，每种30组灯具;
|
|
依赖块：无
|
|
|
|
*)
|
|
|
|
(*DEMO
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[x,0]<>LightGroup_InputP[x] then
|
|
LightGroup_Output[x,0]:=LightGroup_Input[x,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[x,0]<>LightGroup_OutputP[x] then
|
|
|
|
Delay_tonx(PT :=Delay );
|
|
Delay_tonx.in:= not Delay_tonx.q;
|
|
if Delay_tonx.q=1 then
|
|
j:=j+1;
|
|
LightGroup_Output[x,j] :=LightGroup_Output[x,0];
|
|
if j=30 then
|
|
j:=0;
|
|
LightGroup_OutputP[x]:=LightGroup_Output[x,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else
|
|
if Lock=0 then
|
|
LightGroup_Output[x,1] :=LightGroup_Input[x,1] ;
|
|
LightGroup_Output[x,2] :=LightGroup_Input[x,2] ;
|
|
LightGroup_Output[x,3] :=LightGroup_Input[x,3] ;
|
|
LightGroup_Output[x,4] :=LightGroup_Input[x,4] ;
|
|
LightGroup_Output[x,5] :=LightGroup_Input[x,5] ;
|
|
LightGroup_Output[x,6] :=LightGroup_Input[x,6] ;
|
|
LightGroup_Output[x,7] :=LightGroup_Input[x,7] ;
|
|
LightGroup_Output[x,8] :=LightGroup_Input[x,8] ;
|
|
LightGroup_Output[x,9] :=LightGroup_Input[x,9] ;
|
|
LightGroup_Output[x,10]:=LightGroup_Input[x,10];
|
|
LightGroup_Output[x,11]:=LightGroup_Input[x,11];
|
|
LightGroup_Output[x,12]:=LightGroup_Input[x,12];
|
|
LightGroup_Output[x,13]:=LightGroup_Input[x,13];
|
|
LightGroup_Output[x,14]:=LightGroup_Input[x,14];
|
|
LightGroup_Output[x,15]:=LightGroup_Input[x,15];
|
|
LightGroup_Output[x,16]:=LightGroup_Input[x,16];
|
|
LightGroup_Output[x,17]:=LightGroup_Input[x,17];
|
|
LightGroup_Output[x,18]:=LightGroup_Input[x,18];
|
|
LightGroup_Output[x,19]:=LightGroup_Input[x,19];
|
|
LightGroup_Output[x,20]:=LightGroup_Input[x,20];
|
|
LightGroup_Output[x,21]:=LightGroup_Input[x,21];
|
|
LightGroup_Output[x,22]:=LightGroup_Input[x,22];
|
|
LightGroup_Output[x,23]:=LightGroup_Input[x,23];
|
|
LightGroup_Output[x,24]:=LightGroup_Input[x,24];
|
|
LightGroup_Output[x,25]:=LightGroup_Input[x,25];
|
|
LightGroup_Output[x,26]:=LightGroup_Input[x,26];
|
|
LightGroup_Output[x,27]:=LightGroup_Input[x,27];
|
|
LightGroup_Output[x,28]:=LightGroup_Input[x,28];
|
|
LightGroup_Output[x,29]:=LightGroup_Input[x,29];
|
|
LightGroup_Output[x,30]:=LightGroup_Input[x,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[x]:=LightGroup_Input[x,0];
|
|
*)
|
|
|
|
(**************************************************分组1****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[1,0]<>LightGroup_InputP[1] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[1,0]:=LightGroup_Input[1,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[1,0]<>LightGroup_OutputP[1] then
|
|
|
|
Delay_ton1(PT :=Delay );
|
|
Delay_ton1.in:= not Delay_ton1.q;
|
|
if Delay_ton1.q=1 then
|
|
j1:=j1+1;
|
|
LightGroup_Output[1,j1] :=LightGroup_Output[1,0];
|
|
if j1=30 then
|
|
j1:=0;
|
|
LightGroup_OutputP[1]:=LightGroup_Output[1,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[1,1] :=LightGroup_Input[1,1] ;
|
|
LightGroup_Output[1,2] :=LightGroup_Input[1,2] ;
|
|
LightGroup_Output[1,3] :=LightGroup_Input[1,3] ;
|
|
LightGroup_Output[1,4] :=LightGroup_Input[1,4] ;
|
|
LightGroup_Output[1,5] :=LightGroup_Input[1,5] ;
|
|
LightGroup_Output[1,6] :=LightGroup_Input[1,6] ;
|
|
LightGroup_Output[1,7] :=LightGroup_Input[1,7] ;
|
|
LightGroup_Output[1,8] :=LightGroup_Input[1,8] ;
|
|
LightGroup_Output[1,9] :=LightGroup_Input[1,9] ;
|
|
LightGroup_Output[1,10]:=LightGroup_Input[1,10];
|
|
LightGroup_Output[1,11]:=LightGroup_Input[1,11];
|
|
LightGroup_Output[1,12]:=LightGroup_Input[1,12];
|
|
LightGroup_Output[1,13]:=LightGroup_Input[1,13];
|
|
LightGroup_Output[1,14]:=LightGroup_Input[1,14];
|
|
LightGroup_Output[1,15]:=LightGroup_Input[1,15];
|
|
LightGroup_Output[1,16]:=LightGroup_Input[1,16];
|
|
LightGroup_Output[1,17]:=LightGroup_Input[1,17];
|
|
LightGroup_Output[1,18]:=LightGroup_Input[1,18];
|
|
LightGroup_Output[1,19]:=LightGroup_Input[1,19];
|
|
LightGroup_Output[1,20]:=LightGroup_Input[1,20];
|
|
LightGroup_Output[1,21]:=LightGroup_Input[1,21];
|
|
LightGroup_Output[1,22]:=LightGroup_Input[1,22];
|
|
LightGroup_Output[1,23]:=LightGroup_Input[1,23];
|
|
LightGroup_Output[1,24]:=LightGroup_Input[1,24];
|
|
LightGroup_Output[1,25]:=LightGroup_Input[1,25];
|
|
LightGroup_Output[1,26]:=LightGroup_Input[1,26];
|
|
LightGroup_Output[1,27]:=LightGroup_Input[1,27];
|
|
LightGroup_Output[1,28]:=LightGroup_Input[1,28];
|
|
LightGroup_Output[1,29]:=LightGroup_Input[1,29];
|
|
LightGroup_Output[1,30]:=LightGroup_Input[1,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[1]:=LightGroup_Input[1,0];
|
|
|
|
(**************************************************分组2****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[2,0]<>LightGroup_InputP[2] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[2,0]:=LightGroup_Input[2,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[2,0]<>LightGroup_OutputP[2] then
|
|
|
|
Delay_ton2(PT :=Delay );
|
|
Delay_ton2.in:= not Delay_ton2.q;
|
|
if Delay_ton2.q=1 then
|
|
j2:=j2+1;
|
|
LightGroup_Output[2,j2] :=LightGroup_Output[2,0];
|
|
if j2=30 then
|
|
j2:=0;
|
|
LightGroup_OutputP[2]:=LightGroup_Output[2,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[2,1] :=LightGroup_Input[2,1] ;
|
|
LightGroup_Output[2,2] :=LightGroup_Input[2,2] ;
|
|
LightGroup_Output[2,3] :=LightGroup_Input[2,3] ;
|
|
LightGroup_Output[2,4] :=LightGroup_Input[2,4] ;
|
|
LightGroup_Output[2,5] :=LightGroup_Input[2,5] ;
|
|
LightGroup_Output[2,6] :=LightGroup_Input[2,6] ;
|
|
LightGroup_Output[2,7] :=LightGroup_Input[2,7] ;
|
|
LightGroup_Output[2,8] :=LightGroup_Input[2,8] ;
|
|
LightGroup_Output[2,9] :=LightGroup_Input[2,9] ;
|
|
LightGroup_Output[2,10]:=LightGroup_Input[2,10];
|
|
LightGroup_Output[2,11]:=LightGroup_Input[2,11];
|
|
LightGroup_Output[2,12]:=LightGroup_Input[2,12];
|
|
LightGroup_Output[2,13]:=LightGroup_Input[2,13];
|
|
LightGroup_Output[2,14]:=LightGroup_Input[2,14];
|
|
LightGroup_Output[2,15]:=LightGroup_Input[2,15];
|
|
LightGroup_Output[2,16]:=LightGroup_Input[2,16];
|
|
LightGroup_Output[2,17]:=LightGroup_Input[2,17];
|
|
LightGroup_Output[2,18]:=LightGroup_Input[2,18];
|
|
LightGroup_Output[2,19]:=LightGroup_Input[2,19];
|
|
LightGroup_Output[2,20]:=LightGroup_Input[2,20];
|
|
LightGroup_Output[2,21]:=LightGroup_Input[2,21];
|
|
LightGroup_Output[2,22]:=LightGroup_Input[2,22];
|
|
LightGroup_Output[2,23]:=LightGroup_Input[2,23];
|
|
LightGroup_Output[2,24]:=LightGroup_Input[2,24];
|
|
LightGroup_Output[2,25]:=LightGroup_Input[2,25];
|
|
LightGroup_Output[2,26]:=LightGroup_Input[2,26];
|
|
LightGroup_Output[2,27]:=LightGroup_Input[2,27];
|
|
LightGroup_Output[2,28]:=LightGroup_Input[2,28];
|
|
LightGroup_Output[2,29]:=LightGroup_Input[2,29];
|
|
LightGroup_Output[2,30]:=LightGroup_Input[2,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[2]:=LightGroup_Input[2,0];
|
|
(**************************************************分组3****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[3,0]<>LightGroup_InputP[3] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[3,0]:=LightGroup_Input[3,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[3,0]<>LightGroup_OutputP[3] then
|
|
|
|
Delay_ton3(PT :=Delay );
|
|
Delay_ton3.in:= not Delay_ton3.q;
|
|
if Delay_ton3.q=1 then
|
|
j3:=j3+1;
|
|
LightGroup_Output[3,j3] :=LightGroup_Output[3,0];
|
|
if j3=30 then
|
|
j3:=0;
|
|
LightGroup_OutputP[3]:=LightGroup_Output[3,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[3,1] :=LightGroup_Input[3,1] ;
|
|
LightGroup_Output[3,2] :=LightGroup_Input[3,2] ;
|
|
LightGroup_Output[3,3] :=LightGroup_Input[3,3] ;
|
|
LightGroup_Output[3,4] :=LightGroup_Input[3,4] ;
|
|
LightGroup_Output[3,5] :=LightGroup_Input[3,5] ;
|
|
LightGroup_Output[3,6] :=LightGroup_Input[3,6] ;
|
|
LightGroup_Output[3,7] :=LightGroup_Input[3,7] ;
|
|
LightGroup_Output[3,8] :=LightGroup_Input[3,8] ;
|
|
LightGroup_Output[3,9] :=LightGroup_Input[3,9] ;
|
|
LightGroup_Output[3,10]:=LightGroup_Input[3,10];
|
|
LightGroup_Output[3,11]:=LightGroup_Input[3,11];
|
|
LightGroup_Output[3,12]:=LightGroup_Input[3,12];
|
|
LightGroup_Output[3,13]:=LightGroup_Input[3,13];
|
|
LightGroup_Output[3,14]:=LightGroup_Input[3,14];
|
|
LightGroup_Output[3,15]:=LightGroup_Input[3,15];
|
|
LightGroup_Output[3,16]:=LightGroup_Input[3,16];
|
|
LightGroup_Output[3,17]:=LightGroup_Input[3,17];
|
|
LightGroup_Output[3,18]:=LightGroup_Input[3,18];
|
|
LightGroup_Output[3,19]:=LightGroup_Input[3,19];
|
|
LightGroup_Output[3,20]:=LightGroup_Input[3,20];
|
|
LightGroup_Output[3,21]:=LightGroup_Input[3,21];
|
|
LightGroup_Output[3,22]:=LightGroup_Input[3,22];
|
|
LightGroup_Output[3,23]:=LightGroup_Input[3,23];
|
|
LightGroup_Output[3,24]:=LightGroup_Input[3,24];
|
|
LightGroup_Output[3,25]:=LightGroup_Input[3,25];
|
|
LightGroup_Output[3,26]:=LightGroup_Input[3,26];
|
|
LightGroup_Output[3,27]:=LightGroup_Input[3,27];
|
|
LightGroup_Output[3,28]:=LightGroup_Input[3,28];
|
|
LightGroup_Output[3,29]:=LightGroup_Input[3,29];
|
|
LightGroup_Output[3,30]:=LightGroup_Input[3,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[3]:=LightGroup_Input[3,0];
|
|
(**************************************************分组4****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[4,0]<>LightGroup_InputP[4] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[4,0]:=LightGroup_Input[4,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[4,0]<>LightGroup_OutputP[4] then
|
|
|
|
Delay_ton4(PT :=Delay );
|
|
Delay_ton4.in:= not Delay_ton4.q;
|
|
if Delay_ton4.q=1 then
|
|
j4:=j4+1;
|
|
LightGroup_Output[4,j4] :=LightGroup_Output[4,0];
|
|
if j4=30 then
|
|
j4:=0;
|
|
LightGroup_OutputP[4]:=LightGroup_Output[4,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[4,1] :=LightGroup_Input[4,1] ;
|
|
LightGroup_Output[4,2] :=LightGroup_Input[4,2] ;
|
|
LightGroup_Output[4,3] :=LightGroup_Input[4,3] ;
|
|
LightGroup_Output[4,4] :=LightGroup_Input[4,4] ;
|
|
LightGroup_Output[4,5] :=LightGroup_Input[4,5] ;
|
|
LightGroup_Output[4,6] :=LightGroup_Input[4,6] ;
|
|
LightGroup_Output[4,7] :=LightGroup_Input[4,7] ;
|
|
LightGroup_Output[4,8] :=LightGroup_Input[4,8] ;
|
|
LightGroup_Output[4,9] :=LightGroup_Input[4,9] ;
|
|
LightGroup_Output[4,10]:=LightGroup_Input[4,10];
|
|
LightGroup_Output[4,11]:=LightGroup_Input[4,11];
|
|
LightGroup_Output[4,12]:=LightGroup_Input[4,12];
|
|
LightGroup_Output[4,13]:=LightGroup_Input[4,13];
|
|
LightGroup_Output[4,14]:=LightGroup_Input[4,14];
|
|
LightGroup_Output[4,15]:=LightGroup_Input[4,15];
|
|
LightGroup_Output[4,16]:=LightGroup_Input[4,16];
|
|
LightGroup_Output[4,17]:=LightGroup_Input[4,17];
|
|
LightGroup_Output[4,18]:=LightGroup_Input[4,18];
|
|
LightGroup_Output[4,19]:=LightGroup_Input[4,19];
|
|
LightGroup_Output[4,20]:=LightGroup_Input[4,20];
|
|
LightGroup_Output[4,21]:=LightGroup_Input[4,21];
|
|
LightGroup_Output[4,22]:=LightGroup_Input[4,22];
|
|
LightGroup_Output[4,23]:=LightGroup_Input[4,23];
|
|
LightGroup_Output[4,24]:=LightGroup_Input[4,24];
|
|
LightGroup_Output[4,25]:=LightGroup_Input[4,25];
|
|
LightGroup_Output[4,26]:=LightGroup_Input[4,26];
|
|
LightGroup_Output[4,27]:=LightGroup_Input[4,27];
|
|
LightGroup_Output[4,28]:=LightGroup_Input[4,28];
|
|
LightGroup_Output[4,29]:=LightGroup_Input[4,29];
|
|
LightGroup_Output[4,30]:=LightGroup_Input[4,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[4]:=LightGroup_Input[4,0];
|
|
(**************************************************分组5****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[5,0]<>LightGroup_InputP[5] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[5,0]:=LightGroup_Input[5,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[5,0]<>LightGroup_OutputP[5] then
|
|
|
|
Delay_ton5(PT :=Delay );
|
|
Delay_ton5.in:= not Delay_ton5.q;
|
|
if Delay_ton5.q=1 then
|
|
j5:=j5+1;
|
|
LightGroup_Output[5,j5] :=LightGroup_Output[5,0];
|
|
if j5=30 then
|
|
j5:=0;
|
|
LightGroup_OutputP[5]:=LightGroup_Output[5,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[5,1] :=LightGroup_Input[5,1] ;
|
|
LightGroup_Output[5,2] :=LightGroup_Input[5,2] ;
|
|
LightGroup_Output[5,3] :=LightGroup_Input[5,3] ;
|
|
LightGroup_Output[5,4] :=LightGroup_Input[5,4] ;
|
|
LightGroup_Output[5,5] :=LightGroup_Input[5,5] ;
|
|
LightGroup_Output[5,6] :=LightGroup_Input[5,6] ;
|
|
LightGroup_Output[5,7] :=LightGroup_Input[5,7] ;
|
|
LightGroup_Output[5,8] :=LightGroup_Input[5,8] ;
|
|
LightGroup_Output[5,9] :=LightGroup_Input[5,9] ;
|
|
LightGroup_Output[5,10]:=LightGroup_Input[5,10];
|
|
LightGroup_Output[5,11]:=LightGroup_Input[5,11];
|
|
LightGroup_Output[5,12]:=LightGroup_Input[5,12];
|
|
LightGroup_Output[5,13]:=LightGroup_Input[5,13];
|
|
LightGroup_Output[5,14]:=LightGroup_Input[5,14];
|
|
LightGroup_Output[5,15]:=LightGroup_Input[5,15];
|
|
LightGroup_Output[5,16]:=LightGroup_Input[5,16];
|
|
LightGroup_Output[5,17]:=LightGroup_Input[5,17];
|
|
LightGroup_Output[5,18]:=LightGroup_Input[5,18];
|
|
LightGroup_Output[5,19]:=LightGroup_Input[5,19];
|
|
LightGroup_Output[5,20]:=LightGroup_Input[5,20];
|
|
LightGroup_Output[5,21]:=LightGroup_Input[5,21];
|
|
LightGroup_Output[5,22]:=LightGroup_Input[5,22];
|
|
LightGroup_Output[5,23]:=LightGroup_Input[5,23];
|
|
LightGroup_Output[5,24]:=LightGroup_Input[5,24];
|
|
LightGroup_Output[5,25]:=LightGroup_Input[5,25];
|
|
LightGroup_Output[5,26]:=LightGroup_Input[5,26];
|
|
LightGroup_Output[5,27]:=LightGroup_Input[5,27];
|
|
LightGroup_Output[5,28]:=LightGroup_Input[5,28];
|
|
LightGroup_Output[5,29]:=LightGroup_Input[5,29];
|
|
LightGroup_Output[5,30]:=LightGroup_Input[5,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[5]:=LightGroup_Input[5,0];
|
|
(**************************************************分组6****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[6,0]<>LightGroup_InputP[6] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[6,0]:=LightGroup_Input[6,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[6,0]<>LightGroup_OutputP[6] then
|
|
|
|
Delay_ton6(PT :=Delay );
|
|
Delay_ton6.in:= not Delay_ton6.q;
|
|
if Delay_ton6.q=1 then
|
|
j6:=j6+1;
|
|
LightGroup_Output[6,j6] :=LightGroup_Output[6,0];
|
|
if j6=30 then
|
|
j6:=0;
|
|
LightGroup_OutputP[6]:=LightGroup_Output[6,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[6,1] :=LightGroup_Input[6,1] ;
|
|
LightGroup_Output[6,2] :=LightGroup_Input[6,2] ;
|
|
LightGroup_Output[6,3] :=LightGroup_Input[6,3] ;
|
|
LightGroup_Output[6,4] :=LightGroup_Input[6,4] ;
|
|
LightGroup_Output[6,5] :=LightGroup_Input[6,5] ;
|
|
LightGroup_Output[6,6] :=LightGroup_Input[6,6] ;
|
|
LightGroup_Output[6,7] :=LightGroup_Input[6,7] ;
|
|
LightGroup_Output[6,8] :=LightGroup_Input[6,8] ;
|
|
LightGroup_Output[6,9] :=LightGroup_Input[6,9] ;
|
|
LightGroup_Output[6,10]:=LightGroup_Input[6,10];
|
|
LightGroup_Output[6,11]:=LightGroup_Input[6,11];
|
|
LightGroup_Output[6,12]:=LightGroup_Input[6,12];
|
|
LightGroup_Output[6,13]:=LightGroup_Input[6,13];
|
|
LightGroup_Output[6,14]:=LightGroup_Input[6,14];
|
|
LightGroup_Output[6,15]:=LightGroup_Input[6,15];
|
|
LightGroup_Output[6,16]:=LightGroup_Input[6,16];
|
|
LightGroup_Output[6,17]:=LightGroup_Input[6,17];
|
|
LightGroup_Output[6,18]:=LightGroup_Input[6,18];
|
|
LightGroup_Output[6,19]:=LightGroup_Input[6,19];
|
|
LightGroup_Output[6,20]:=LightGroup_Input[6,20];
|
|
LightGroup_Output[6,21]:=LightGroup_Input[6,21];
|
|
LightGroup_Output[6,22]:=LightGroup_Input[6,22];
|
|
LightGroup_Output[6,23]:=LightGroup_Input[6,23];
|
|
LightGroup_Output[6,24]:=LightGroup_Input[6,24];
|
|
LightGroup_Output[6,25]:=LightGroup_Input[6,25];
|
|
LightGroup_Output[6,26]:=LightGroup_Input[6,26];
|
|
LightGroup_Output[6,27]:=LightGroup_Input[6,27];
|
|
LightGroup_Output[6,28]:=LightGroup_Input[6,28];
|
|
LightGroup_Output[6,29]:=LightGroup_Input[6,29];
|
|
LightGroup_Output[6,30]:=LightGroup_Input[6,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[6]:=LightGroup_Input[6,0];
|
|
(**************************************************分组7****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[7,0]<>LightGroup_InputP[7] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[7,0]:=LightGroup_Input[7,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[7,0]<>LightGroup_OutputP[7] then
|
|
|
|
Delay_ton7(PT :=Delay );
|
|
Delay_ton7.in:= not Delay_ton7.q;
|
|
if Delay_ton7.q=1 then
|
|
j7:=j7+1;
|
|
LightGroup_Output[7,j7] :=LightGroup_Output[7,0];
|
|
if j7=30 then
|
|
j7:=0;
|
|
LightGroup_OutputP[7]:=LightGroup_Output[7,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[7,1] :=LightGroup_Input[7,1] ;
|
|
LightGroup_Output[7,2] :=LightGroup_Input[7,2] ;
|
|
LightGroup_Output[7,3] :=LightGroup_Input[7,3] ;
|
|
LightGroup_Output[7,4] :=LightGroup_Input[7,4] ;
|
|
LightGroup_Output[7,5] :=LightGroup_Input[7,5] ;
|
|
LightGroup_Output[7,6] :=LightGroup_Input[7,6] ;
|
|
LightGroup_Output[7,7] :=LightGroup_Input[7,7] ;
|
|
LightGroup_Output[7,8] :=LightGroup_Input[7,8] ;
|
|
LightGroup_Output[7,9] :=LightGroup_Input[7,9] ;
|
|
LightGroup_Output[7,10]:=LightGroup_Input[7,10];
|
|
LightGroup_Output[7,11]:=LightGroup_Input[7,11];
|
|
LightGroup_Output[7,12]:=LightGroup_Input[7,12];
|
|
LightGroup_Output[7,13]:=LightGroup_Input[7,13];
|
|
LightGroup_Output[7,14]:=LightGroup_Input[7,14];
|
|
LightGroup_Output[7,15]:=LightGroup_Input[7,15];
|
|
LightGroup_Output[7,16]:=LightGroup_Input[7,16];
|
|
LightGroup_Output[7,17]:=LightGroup_Input[7,17];
|
|
LightGroup_Output[7,18]:=LightGroup_Input[7,18];
|
|
LightGroup_Output[7,19]:=LightGroup_Input[7,19];
|
|
LightGroup_Output[7,20]:=LightGroup_Input[7,20];
|
|
LightGroup_Output[7,21]:=LightGroup_Input[7,21];
|
|
LightGroup_Output[7,22]:=LightGroup_Input[7,22];
|
|
LightGroup_Output[7,23]:=LightGroup_Input[7,23];
|
|
LightGroup_Output[7,24]:=LightGroup_Input[7,24];
|
|
LightGroup_Output[7,25]:=LightGroup_Input[7,25];
|
|
LightGroup_Output[7,26]:=LightGroup_Input[7,26];
|
|
LightGroup_Output[7,27]:=LightGroup_Input[7,27];
|
|
LightGroup_Output[7,28]:=LightGroup_Input[7,28];
|
|
LightGroup_Output[7,29]:=LightGroup_Input[7,29];
|
|
LightGroup_Output[7,30]:=LightGroup_Input[7,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[7]:=LightGroup_Input[7,0];
|
|
(**************************************************分组8****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[8,0]<>LightGroup_InputP[8] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[8,0]:=LightGroup_Input[8,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[8,0]<>LightGroup_OutputP[8] then
|
|
|
|
Delay_ton8(PT :=Delay );
|
|
Delay_ton8.in:= not Delay_ton8.q;
|
|
if Delay_ton8.q=1 then
|
|
j8:=j8+1;
|
|
LightGroup_Output[8,j8] :=LightGroup_Output[8,0];
|
|
if j8=30 then
|
|
j8:=0;
|
|
LightGroup_OutputP[8]:=LightGroup_Output[8,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[8,1] :=LightGroup_Input[8,1] ;
|
|
LightGroup_Output[8,2] :=LightGroup_Input[8,2] ;
|
|
LightGroup_Output[8,3] :=LightGroup_Input[8,3] ;
|
|
LightGroup_Output[8,4] :=LightGroup_Input[8,4] ;
|
|
LightGroup_Output[8,5] :=LightGroup_Input[8,5] ;
|
|
LightGroup_Output[8,6] :=LightGroup_Input[8,6] ;
|
|
LightGroup_Output[8,7] :=LightGroup_Input[8,7] ;
|
|
LightGroup_Output[8,8] :=LightGroup_Input[8,8] ;
|
|
LightGroup_Output[8,9] :=LightGroup_Input[8,9] ;
|
|
LightGroup_Output[8,10]:=LightGroup_Input[8,10];
|
|
LightGroup_Output[8,11]:=LightGroup_Input[8,11];
|
|
LightGroup_Output[8,12]:=LightGroup_Input[8,12];
|
|
LightGroup_Output[8,13]:=LightGroup_Input[8,13];
|
|
LightGroup_Output[8,14]:=LightGroup_Input[8,14];
|
|
LightGroup_Output[8,15]:=LightGroup_Input[8,15];
|
|
LightGroup_Output[8,16]:=LightGroup_Input[8,16];
|
|
LightGroup_Output[8,17]:=LightGroup_Input[8,17];
|
|
LightGroup_Output[8,18]:=LightGroup_Input[8,18];
|
|
LightGroup_Output[8,19]:=LightGroup_Input[8,19];
|
|
LightGroup_Output[8,20]:=LightGroup_Input[8,20];
|
|
LightGroup_Output[8,21]:=LightGroup_Input[8,21];
|
|
LightGroup_Output[8,22]:=LightGroup_Input[8,22];
|
|
LightGroup_Output[8,23]:=LightGroup_Input[8,23];
|
|
LightGroup_Output[8,24]:=LightGroup_Input[8,24];
|
|
LightGroup_Output[8,25]:=LightGroup_Input[8,25];
|
|
LightGroup_Output[8,26]:=LightGroup_Input[8,26];
|
|
LightGroup_Output[8,27]:=LightGroup_Input[8,27];
|
|
LightGroup_Output[8,28]:=LightGroup_Input[8,28];
|
|
LightGroup_Output[8,29]:=LightGroup_Input[8,29];
|
|
LightGroup_Output[8,30]:=LightGroup_Input[8,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[8]:=LightGroup_Input[8,0];
|
|
(**************************************************分组9****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[9,0]<>LightGroup_InputP[9] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[9,0]:=LightGroup_Input[9,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[9,0]<>LightGroup_OutputP[9] then
|
|
|
|
Delay_ton9(PT :=Delay );
|
|
Delay_ton9.in:= not Delay_ton9.q;
|
|
if Delay_ton9.q=1 then
|
|
j9:=j9+1;
|
|
LightGroup_Output[9,j9] :=LightGroup_Output[9,0];
|
|
if j9=30 then
|
|
j9:=0;
|
|
LightGroup_OutputP[9]:=LightGroup_Output[9,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[9,1] :=LightGroup_Input[9,1] ;
|
|
LightGroup_Output[9,2] :=LightGroup_Input[9,2] ;
|
|
LightGroup_Output[9,3] :=LightGroup_Input[9,3] ;
|
|
LightGroup_Output[9,4] :=LightGroup_Input[9,4] ;
|
|
LightGroup_Output[9,5] :=LightGroup_Input[9,5] ;
|
|
LightGroup_Output[9,6] :=LightGroup_Input[9,6] ;
|
|
LightGroup_Output[9,7] :=LightGroup_Input[9,7] ;
|
|
LightGroup_Output[9,8] :=LightGroup_Input[9,8] ;
|
|
LightGroup_Output[9,9] :=LightGroup_Input[9,9] ;
|
|
LightGroup_Output[9,10]:=LightGroup_Input[9,10];
|
|
LightGroup_Output[9,11]:=LightGroup_Input[9,11];
|
|
LightGroup_Output[9,12]:=LightGroup_Input[9,12];
|
|
LightGroup_Output[9,13]:=LightGroup_Input[9,13];
|
|
LightGroup_Output[9,14]:=LightGroup_Input[9,14];
|
|
LightGroup_Output[9,15]:=LightGroup_Input[9,15];
|
|
LightGroup_Output[9,16]:=LightGroup_Input[9,16];
|
|
LightGroup_Output[9,17]:=LightGroup_Input[9,17];
|
|
LightGroup_Output[9,18]:=LightGroup_Input[9,18];
|
|
LightGroup_Output[9,19]:=LightGroup_Input[9,19];
|
|
LightGroup_Output[9,20]:=LightGroup_Input[9,20];
|
|
LightGroup_Output[9,21]:=LightGroup_Input[9,21];
|
|
LightGroup_Output[9,22]:=LightGroup_Input[9,22];
|
|
LightGroup_Output[9,23]:=LightGroup_Input[9,23];
|
|
LightGroup_Output[9,24]:=LightGroup_Input[9,24];
|
|
LightGroup_Output[9,25]:=LightGroup_Input[9,25];
|
|
LightGroup_Output[9,26]:=LightGroup_Input[9,26];
|
|
LightGroup_Output[9,27]:=LightGroup_Input[9,27];
|
|
LightGroup_Output[9,28]:=LightGroup_Input[9,28];
|
|
LightGroup_Output[9,29]:=LightGroup_Input[9,29];
|
|
LightGroup_Output[9,30]:=LightGroup_Input[9,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[9]:=LightGroup_Input[9,0];
|
|
(**************************************************分组10****************************************************)
|
|
if CM =1 then
|
|
|
|
if LightGroup_Input[10,0]<>LightGroup_InputP[10] then (*主控CPU群组控制--》新云/本地控制*)
|
|
LightGroup_Output[10,0]:=LightGroup_Input[10,0];
|
|
end_if;
|
|
|
|
end_if;
|
|
|
|
if LightGroup_Output[10,0]<>LightGroup_OutputP[10] then
|
|
|
|
Delay_ton10(PT :=Delay );
|
|
Delay_ton10.in:= not Delay_ton10.q;
|
|
if Delay_ton10.q=1 then
|
|
j10:=j10+1;
|
|
LightGroup_Output[10,j10] :=LightGroup_Output[10,0];
|
|
if j10=30 then
|
|
j10:=0;
|
|
LightGroup_OutputP[10]:=LightGroup_Output[10,0];
|
|
end_if;
|
|
end_if;
|
|
|
|
else (*保持非锁定*)
|
|
if Lock=0 then
|
|
LightGroup_Output[10,1] :=LightGroup_Input[10,1] ;
|
|
LightGroup_Output[10,2] :=LightGroup_Input[10,2] ;
|
|
LightGroup_Output[10,3] :=LightGroup_Input[10,3] ;
|
|
LightGroup_Output[10,4] :=LightGroup_Input[10,4] ;
|
|
LightGroup_Output[10,5] :=LightGroup_Input[10,5] ;
|
|
LightGroup_Output[10,6] :=LightGroup_Input[10,6] ;
|
|
LightGroup_Output[10,7] :=LightGroup_Input[10,7] ;
|
|
LightGroup_Output[10,8] :=LightGroup_Input[10,8] ;
|
|
LightGroup_Output[10,9] :=LightGroup_Input[10,9] ;
|
|
LightGroup_Output[10,10]:=LightGroup_Input[10,10];
|
|
LightGroup_Output[10,11]:=LightGroup_Input[10,11];
|
|
LightGroup_Output[10,12]:=LightGroup_Input[10,12];
|
|
LightGroup_Output[10,13]:=LightGroup_Input[10,13];
|
|
LightGroup_Output[10,14]:=LightGroup_Input[10,14];
|
|
LightGroup_Output[10,15]:=LightGroup_Input[10,15];
|
|
LightGroup_Output[10,16]:=LightGroup_Input[10,16];
|
|
LightGroup_Output[10,17]:=LightGroup_Input[10,17];
|
|
LightGroup_Output[10,18]:=LightGroup_Input[10,18];
|
|
LightGroup_Output[10,19]:=LightGroup_Input[10,19];
|
|
LightGroup_Output[10,20]:=LightGroup_Input[10,20];
|
|
LightGroup_Output[10,21]:=LightGroup_Input[10,21];
|
|
LightGroup_Output[10,22]:=LightGroup_Input[10,22];
|
|
LightGroup_Output[10,23]:=LightGroup_Input[10,23];
|
|
LightGroup_Output[10,24]:=LightGroup_Input[10,24];
|
|
LightGroup_Output[10,25]:=LightGroup_Input[10,25];
|
|
LightGroup_Output[10,26]:=LightGroup_Input[10,26];
|
|
LightGroup_Output[10,27]:=LightGroup_Input[10,27];
|
|
LightGroup_Output[10,28]:=LightGroup_Input[10,28];
|
|
LightGroup_Output[10,29]:=LightGroup_Input[10,29];
|
|
LightGroup_Output[10,30]:=LightGroup_Input[10,30];
|
|
end_if;
|
|
end_if;
|
|
|
|
LightGroup_InputP[10]:=LightGroup_Input[10,0];
|
|
|
|
|
|
|
|
END_FUNCTION_BLOCK
|