TON в St

[RomanB]

CH_time:=T#10s;



IF workpomp=12 AND
status1.15=FALSE AND (*H1 - Remote*)
status2.15=FALSE (*H2 - Remote*)

(*AND bakurov>urovfiremin_ret*) (*ïðîâåðê&#224 ; îñóù-ñÿ â äðóãîì áëîêå*)
THEN
CH_timer();
(*-------------------------- ïóñê èç ïîëíîãî îñòàíîâ&#224 ; ---------------------------------*)
IF narab1+narabotkaK<=narab2 AND
status1.1=FALSE AND (*&#224;&#226;&#224;&#240;&#232;&#233; &#205;1- &#237;&#229;&#242; *)
status1.10=FALSE AND (* &#205;1- &#241;&#242;&#238;&#239; *)
status2.10=FALSE (* &#205;2- &#241;&#242;&#238;&#239;*)

THEN
START_INV(nomer_INV:=1 ); (*&#231;&#224;&#239;&#243;&#241;&#242;&#232;&#236 ; &#207;&#215;1*)


ELSIF narab1+narabotkaK>narab2 AND
status2.1=FALSE AND (*&#205;2- &#237;&#229;&#242; &#224;&#226;&#224;&#240;&#232;&#233;*)
status2.10=FALSE AND (* &#205;2- STOP *)
status1.10=FALSE (*&#205;1- STOP *)

THEN
START_INV(nomer_INV:=2 ); (*&#231;&#224;&#239;&#243;&#241;&#242;&#232;&#236 ; &#207;&#215;2*)

(*-------------------------- &#239;&#243;&#241;&#234; &#241; &#245;&#238;&#228;&#224; (&#239;&#229;&#240;&#229;&#234;&#235;&#254;&#247;& #229;&#237;&#232;&#229 ----------------------------*)
ELSIF TRIG_CH12.Q1=TRUE OR (*&#243;&#230;&#229; &#232;&#228;&#184;&#242; &#239;&#229;&#240;&#229;&#234;&#235;&#254;&#247;&# 229;&#237;&#232;&#229;
narab1>(narab2+24) AND *)
(narab1+narabotkaK)>(narab2+1) AND (*&#226;&#240;&#229;&#236;&#229;&#237;&#237;&#238 ; &#205;&#192;&#203;&#192;&#196;&#202;&#192;*)
status2.1=FALSE AND (*&#205;2- &#237;&#229;&#242; &#224;&#226;&#224;&#240;&#232;&#233;*)
status2.10=FALSE AND (* &#205;2- STOP *)
status1.10=TRUE AND (*&#205;1- run *)
pomptimer.IN=FALSE (*&#237;&#229; &#226;&#234;&#235;&#254;&#247;&#229;&#237; &#226;&#242;&#238;&#240;&#238;&#233; &#237;&#224;&#241;&#238;&#241;*)

THEN TRIG_CH12(SET:=TRUE , RESET1:=FALSE); (*&#244;&#235;&#224;&#227; &#239;&#229;&#240;&#229;&#234;&#235;-&#255;*)
(*POMP_CH12();
&#239;&#235;&#224;&#226;&#237;&#238;&#229; &#239;&#229;&#240;&#229;&#234;&#235;&#254;&#247;&# 229;&#237;&#232;&#229; &#237;&#224;&#241;&#238;&#241;&#238;&#226; &#241; 1-&#227;&#238; &#237;&#224; 2*)

(************************************************* ************************************************** ******)
(************************************************* ************************************************** ******)
(************************************************* ************************************************** ******)
(************************************************* ************************************************** ******)
UST_INV (invustavka:=invust , dk:= Pinv2k, Pinv:=Pinv2, ustavka=>invust2 );

(*&#199;&#224;&#239;&#243;&#241;&#242;&#232;&#236 ; &#207;&#215;2 &#241; &#231;&#224;&#228;&#224;&#237;&#237;&#238;&#233 ; &#243;&#241;&#242;&#224;&#226;&#234;&#238;&#233 ; *)
CH_time:=T#10s;
IF status2.10=FALSE (* &#205;2- &#241;&#242;&#238;&#239; *)
THEN CH_ch:=9;

END_IF
IF status2.1=FALSE AND (*&#224;&#226;&#224;&#240;&#232;&#233; &#205;2- &#237;&#229;&#242;*)
status2.10=FALSE (* &#205;2- &#241;&#242;&#238;&#239; *)
THEN CH_timer(IN:=FALSE);(**)
comword2.14:=TRUE;
comword2.15:=TRUE;
comword2.10:=TRUE; (*&#231;&#224;&#239;&#243;&#241;&#242;&#232;&#236 ; &#207;&#215;2*)
(*
CH_timer.IN:=FALSE;
CH_timer.PT:=CH_time; (*start timer*)
CH_timer.IN:=TRUE;*)

CH_timer(IN:=TRUE, PT:=CH_time); (* start timer*)

ELSE comword2.10:= comword2.10; (*&#209;&#206;&#206;&#193;&#217;&#200;&#210; &#238;&#225; &#192;&#194;&#192;&#208;&#200;&#200;*)
END_IF

(*&#209;&#237;&#232;&#230;&#224;&#229;&#236; &#239;&#238;&#253;&#242;&#224;&#239;&#237;&#238 ; &#243;&#241;&#242;&#224;&#226;&#234;&#243; &#207;&#215;1 (&#234;&#224;&#230;&#228;&#251;&#233; &#240;&#224;&#231; &#237;&#224; 10%) *)
CHtimerPT:=CH_timer.ET;
IF
CH_ch >=8 AND CH_timer.Q=TRUE

OR
CH_ch >=2 AND
CH_ch <8 AND
CH_timer.Q=TRUE AND
( (invust2-200)<PIDfeedback2 AND PIDfeedback2<(invust2+100) )

THEN
CH_timer(IN:=FALSE); (*, pt:=CH_time)*)
CH_invust:=(invust-invust/100*(100-CH_ch*10));(*ust:= &#234;&#238;&#240;&#238;&#247;&#229; (100-CH-ch*10)% :-) *)
CH_ch:=CH_ch-1;
UST_INV (invustavka:=CH_invust , dk:= Pinv1k, Pinv:=Pinv1, ustavka=>invust1 );


(* Pvalue:=invust-Pinv2k ; (*&#208;&#231;&#224;&#228;&#239;&#247;*)
Pvalue:=Pvalue*50/Pinv2 ; (*&#243;&#241;&#242;&#224;&#226;&#234;&#224; &#228;&#235;&#255; &#207;&#215; 2*)
invust2:= REAL_TO_WORD (Pvalue*100);
*)
IF CH_ch<8
THEN CH_timer (PT:=CH_time);
ELSE CH_timer (PT:=CH_time*10);
END_IF
CH_timer (IN:=status2.10); (*TRUE start timer*)
CH_timer (IN:=TRUE); (* start timer*)
END_IF
(*
IF
CH_ch >=2 AND
CH_ch <8 AND
CH_timer.Q=TRUE AND
( (invust2-200)<PIDfeedback2 AND PIDfeedback2<(invust2+100) )

THEN
CH_timer(IN:=FALSE); (*, pt:=CH_time)*)
CH_invust:=(invust-invust/100*(100-CH_ch*10));(*ust:= &#234;&#238;&#240;&#238;&#247;&#229; (100-CH-ch*10)% :-) *)
CH_ch:=CH_ch-1;
UST_INV (invustavka:=CH_invust , dk:= Pinv1k, Pinv:=Pinv1, ustavka=>invust1 );

CH_timer (IN:=TRUE, PT:=CH_time); (*start timer*)
END_IF
*)
IF (CH_ch <2 AND CH_timer.Q=TRUE)
THEN
(*CH_timer.IN:=FALSE;*)
comword1.14:=FALSE;
comword1.15:=FALSE;
comword1.10:=FALSE; (*STOP &#207;&#215;1*)
TRIG_CH12(SET:=FALSE , RESET1:=TRUE); (*&#241;&#225;&#240;&#238;&#241;&#232;&#236; &#244;&#235;&#224;&#227; &#239;&#229;&#240;&#229;&#234;&#235;&#254;&#247;&# 229;&#237;&#232;&#255;*)
CH_timer(IN:=FALSE);
osnovpomp:=2; (*&#231;&#224;&#239;&#238;&#236;&#237;&#232;&#236 ; &#237;&#238;&#236;&#229;&#240; &#237;&#238;&#226;&#238;&#227;&#238; &#238;&#241;&#237;&#238;&#226;&#237;&#238;&#227;&# 238; &#237;&#224;&#241;&#238;&#241;&#224;*)

END_IF
(************************************************* ************************************************** ******)
(************************************************* ************************************************** ******)
(************************************************* ************************************************** ******)
(************************************************* ************************************************** ******)








(*________________________________________________ ________________*)


ELSIF TRIG_CH21.Q1=TRUE OR
(*narab2> (narab1+24) AND*)
(narab1+narabotkaK)<(narab2) AND (*&#226;&#240;&#229;&#236;&#229;&#237;&#237;&#238 ; &#205;&#192;&#203;&#192;&#196;&#202;&#192;*)
status1.1=FALSE AND (*&#205;1- &#237;&#229;&#242; &#224;&#226;&#224;&#240;&#232;&#233;*)
status1.10=FALSE AND (*&#205;1- STOP *)
status2.10=TRUE AND (* &#205;2- run*)
pomptimer.IN=FALSE (*&#237;&#229; &#226;&#234;&#235;&#254;&#247;&#229;&#237; &#226;&#242;&#238;&#240;&#238;&#233; &#237;&#224;&#241;&#238;&#241;*)

THEN TRIG_CH21(SET:=TRUE , RESET1:=FALSE); (*&#244;&#235;&#224;&#227; &#239;&#229;&#240;&#229;&#234;&#235;-&#255;*)
(* POMP_CH21();
&#239;&#235;&#224;&#226;&#237;&#238;&#229; &#239;&#229;&#240;&#229;&#234;&#235;&#254;&#247;&# 229;&#237;&#232;&#229; &#237;&#224;&#241;&#238;&#241;&#238;&#226; &#241;&#238; 2-&#227;&#238; &#237;&#224; 1*)

(************************************************* ************************************************** ******)
(************************************************* ************************************************** ******)
(************************************************* ************************************************** ******)
(************************************************* ************************************************** ******)
UST_INV (invustavka:=invust , dk:= Pinv1k, Pinv:=Pinv1, ustavka=>invust1 );

(*&#199;&#224;&#239;&#243;&#241;&#242;&#232;&#236 ; &#207;&#215;1 &#241; &#231;&#224;&#228;&#224;&#237;&#237;&#238;&#233 ; &#243;&#241;&#242;&#224;&#226;&#234;&#238;&#233 ; *)
CH_time:=t#10s;
IF status1.10=FALSE (*&#205;1- STOP *)
THEN CH_ch:=9;

END_IF
IF status1.1=FALSE AND (*&#224;&#226;&#224;&#240;&#232;&#233; &#205;1- &#237;&#229;&#242;*)
status1.10=FALSE AND (*&#205;1- &#241;&#242;&#238;&#239;*)
status1.15=FALSE (*&#205;1- &#226; &#228;&#232;&#241;&#242;.&#240;&#229;&#230;&#232;& #236;&#229;*)
(**)
THEN CH_timer();
(*CH_timer(IN:=FALSE);*)
comword1.14:=TRUE;
comword1.15:=TRUE;
comword1.10:=TRUE; (*&#231;&#224;&#239;&#243;&#241;&#242;&#232;&#236 ; &#207;&#215;1*)
(* CH_timer.IN:=FALSE;*)
CH_timer(IN:=TRUE, PT:=CH_time); (*start timer*)


ELSE comword1.10:= comword1.10; (*&#209;&#206;&#206;&#193;&#217;&#200;&#210; &#238;&#225; &#192;&#194;&#192;&#208;&#200;&#200;*)
END_IF

(*&#209;&#237;&#232;&#230;&#224;&#229;&#236; &#239;&#238;&#253;&#242;&#224;&#239;&#237;&#238 ; &#243;&#241;&#242;&#224;&#226;&#234;&#243; &#207;&#215;2 (&#234;&#224;&#230;&#228;&#251;&#233; &#240;&#224;&#231; &#237;&#224; 10%) *)
IF
(CH_ch >=8 AND CH_timer.Q=TRUE)

THEN CH_timer();
CH_timer(IN:=FALSE); (*, pt:=CH_time)*)
CH_invust:=(invust-invust/100*(100-CH_ch*10));(*ust:= &#234;&#238;&#240;&#238;&#247;&#229; (100-CH-ch*10)% :-) *)
CH_ch:=CH_ch-1;
UST_INV (invustavka:=CH_invust , dk:= Pinv2k, Pinv:=Pinv2, ustavka=>invust2 );


(* Pvalue:=invust-Pinv2k ; (*&#208;&#231;&#224;&#228;&#239;&#247;*)
Pvalue:=Pvalue*50/Pinv2 ; (*&#243;&#241;&#242;&#224;&#226;&#234;&#224; &#228;&#235;&#255; &#207;&#215; 2*)
invust2:= REAL_TO_WORD (Pvalue*100);
*)
CH_timer (IN:=TRUE, PT:=CH_time*10); (*start timer*)

END_IF

IF
CH_ch >=2 AND
CH_ch <8 AND
CH_timer.Q=TRUE AND
( (invust1-200)<PIDfeedback1 AND PIDfeedback1<(invust1+100) )

THEN CH_timer();
CH_timer(IN:=FALSE); (*, pt:=CH_time)*)
CH_invust:=(invust-invust/100*(100-CH_ch*10));(*ust:= &#234;&#238;&#240;&#238;&#247;&#229; (100-CH-ch*10)% :-) *)
CH_ch:=CH_ch-1;
UST_INV (invustavka:=CH_invust , dk:= Pinv2k, Pinv:=Pinv2, ustavka=>invust2 );

CH_timer (IN:=TRUE, PT:=CH_time); (*start timer*)

END_IF

IF (CH_ch <2 AND CH_timer.Q=TRUE)
THEN CH_timer();
(*CH_timer(IN:=FALSE);*)
comword2.14:=FALSE;
comword2.15:=FALSE;
comword2.10:=FALSE; (*STOP &#207;&#215;2*)
TRIG_CH21(SET:=FALSE , RESET1:=TRUE); (*&#241;&#225;&#240;&#238;&#241;&#232;&#236; &#244;&#235;&#224;&#227; &#239;&#229;&#240;&#229;&#234;&#235;&#254;&#247;&# 229;&#237;&#232;&#255;*)
CH_timer(IN:=FALSE);
osnovpomp:=1; (*&#231;&#224;&#239;&#238;&#236;&#237;&#232;&#236 ; &#237;&#238;&#236;&#229;&#240; &#237;&#238;&#226;&#238;&#227;&#238; &#238;&#241;&#237;&#238;&#226;&#237;&#238;&#227;&# 238; &#237;&#224;&#241;&#238;&#241;&#224;*)

END_IF