Вид для печати
Задача стоит сделать функциональный блок недельного расписания работы приточной вентиляции или вытяжки
например в ПН старт в 8:00 стоп в 17:00 и тд на неделю с возможностью хоть каждый час пускать и вставать
с использованием 4 кнопок для меню и настройки.
Меню вроде придумал а вот дальше пока что засада: 7 дней на 24 надо 168 переменных.
думаю надо как то через массив, но в них я пока 0.
может кто на верный путь направит или у кого есть что то подобное
Вот примерно что получилось. Громоздко и с визуализацией сложновато будет - каждую приточку разрисовывать придется
Посмотрите люди добрые как можно упростить?
код:PROGRAM PLC_PRG
VAR
GetTime: CurTimeEx;
TimeAndDate: SystemTimeDate;
Sys_Time: SysTime64;
IN: BOOL;
OUT: BOOL;
KNPLUS : BOOL;
KNMINUS: BOOL;
KNSELEST : BOOL;
KNOK : BOOL;
KNSB : BOOL;
MENU : INT;
MENUDN : INT :=1;
MENUVR : INT;
DN1, DN2, DN3, DN4, DN5, DN6, DN7 : BOOL;
VR00, VR01, VR02, VR03, VR04, VR05, VR06, VR07, VR08, VR09, VR10, VR11, VR12, VR13, VR14, VR15, VR16, VR17, VR18, VR19, VR20, VR21, VR22, VR23 : BOOL;
PLUS: R_TRIG;
MINUS: R_TRIG;
SELEST: R_TRIG;
OK: R_TRIG;
SB: R_TRIG;
s100 : BOOL;
s101 : BOOL;
s102 : BOOL;
s103 : BOOL;
s104 : BOOL;
s105 : BOOL;
s106 : BOOL;
s107 : BOOL;
s108 : BOOL;
s109 : BOOL;
s110 : BOOL;
s111 : BOOL;
s112 : BOOL;
s113 : BOOL;
s114 : BOOL;
s115 : BOOL;
s116 : BOOL;
s117 : BOOL;
s118 : BOOL;
s119 : BOOL;
s120 : BOOL;
s121 : BOOL;
s122 : BOOL;
s123 : BOOL;
s200 : BOOL;
s201 : BOOL;
s202 : BOOL;
s203 : BOOL;
s204 : BOOL;
s205 : BOOL;
s206 : BOOL;
s207 : BOOL;
s208 : BOOL;
s209 : BOOL;
s210 : BOOL;
s211 : BOOL;
s212 : BOOL;
s213 : BOOL;
s214 : BOOL;
s215 : BOOL;
s216 : BOOL;
s217 : BOOL;
s218 : BOOL;
s219 : BOOL;
s220 : BOOL;
s221 : BOOL;
s222 : BOOL;
s223 : BOOL;
s300 : BOOL;
s301 : BOOL;
s302 : BOOL;
s303 : BOOL;
s304 : BOOL;
s305 : BOOL;
s306 : BOOL;
s307 : BOOL;
s308 : BOOL;
s309 : BOOL;
s310 : BOOL;
s311 : BOOL;
s312 : BOOL;
s313 : BOOL;
s314 : BOOL;
s315 : BOOL;
s316 : BOOL;
s317 : BOOL;
s318 : BOOL;
s319 : BOOL;
s320 : BOOL;
s321 : BOOL;
s322 : BOOL;
s323 : BOOL;
s400 : BOOL;
s401 : BOOL;
s402 : BOOL;
s403 : BOOL;
s404 : BOOL;
s405 : BOOL;
s406 : BOOL;
s407 : BOOL;
s408 : BOOL;
s409 : BOOL;
s410 : BOOL;
s411 : BOOL;
s412 : BOOL;
s413 : BOOL;
s414 : BOOL;
s415 : BOOL;
s416 : BOOL;
s417 : BOOL;
s418 : BOOL;
s419 : BOOL;
s420 : BOOL;
s421 : BOOL;
s422 : BOOL;
s423 : BOOL;
s500 : BOOL;
s501 : BOOL;
s502 : BOOL;
s503 : BOOL;
s504 : BOOL;
s505 : BOOL;
s506 : BOOL;
s507 : BOOL;
s508 : BOOL;
s509 : BOOL;
s510 : BOOL;
s511 : BOOL;
s512 : BOOL;
s513 : BOOL;
s514 : BOOL;
s515 : BOOL;
s516 : BOOL;
s517 : BOOL;
s518 : BOOL;
s519 : BOOL;
s520 : BOOL;
s521 : BOOL;
s522 : BOOL;
s523 : BOOL;
s600 : BOOL;
s601 : BOOL;
s602 : BOOL;
s603 : BOOL;
s604 : BOOL;
s605 : BOOL;
s606 : BOOL;
s607 : BOOL;
s608 : BOOL;
s609 : BOOL;
s610 : BOOL;
s611 : BOOL;
s612 : BOOL;
s613 : BOOL;
s614 : BOOL;
s615 : BOOL;
s616 : BOOL;
s617 : BOOL;
s618 : BOOL;
s619 : BOOL;
s620 : BOOL;
s621 : BOOL;
s622 : BOOL;
s623 : BOOL;
s700 : BOOL;
s701 : BOOL;
s702 : BOOL;
s703 : BOOL;
s704 : BOOL;
s705 : BOOL;
s706 : BOOL;
s707 : BOOL;
s708 : BOOL;
s709 : BOOL;
s710 : BOOL;
s711 : BOOL;
s712 : BOOL;
s713 : BOOL;
s714 : BOOL;
s715 : BOOL;
s716 : BOOL;
s717 : BOOL;
s718 : BOOL;
s719 : BOOL;
s720 : BOOL;
s721 : BOOL;
s722 : BOOL;
s723 : BOOL;
END_VAR
PLUS(CLK :=KNPLUS);
MINUS(CLK :=KNMINUS);
OK(CLK :=KNOK);
SB(CLK :=KNSB);
SELEST(CLK :=KNSELEST);
IF SELEST.Q = TRUE THEN
MENU:=MENU+1;
END_IF
IF MENU= 2 THEN
MENU:=0;
END_IF
IF PLUS.Q = TRUE AND MENU= 0 THEN
MENUDN:=MENUDN+1;
END_IF
IF MENUDN= 8 THEN
MENUDN:=1;
END_IF
IF MINUS.Q = TRUE AND MENU= 0 THEN
MENUDN:= MENUDN-1;
END_IF
IF MENUDN= 0 THEN
MENUDN:=7;
END_IF
IF PLUS.Q = TRUE AND MENU= 1 THEN
MENUVR:=MENUVR+1;
END_IF
IF MENUVR= 24 THEN
MENUVR:=0;
END_IF
IF MINUS.Q = TRUE AND MENU= 1 THEN
MENUVR:= MENUVR-1;
END_IF
IF MENUVR= -1 THEN
MENUVR:=23;
END_IF
IF MENUDN= 1 AND MENUVR= 0 AND OK.Q THEN s100 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 1 AND OK.Q THEN s101 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 2 AND OK.Q THEN s102 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 3 AND OK.Q THEN s103 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 4 AND OK.Q THEN s104 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 5 AND OK.Q THEN s105 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 6 AND OK.Q THEN s106 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR=7 AND OK.Q THEN s107 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 8 AND OK.Q THEN s108 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 9 AND OK.Q THEN s109 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 10 AND OK.Q THEN s110 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 11 AND OK.Q THEN s111 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 12 AND OK.Q THEN s112 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 13 AND OK.Q THEN s113 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 14 AND OK.Q THEN s114 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 15 AND OK.Q THEN s115 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 16 AND OK.Q THEN s116 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 17 AND OK.Q THEN s117 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 18 AND OK.Q THEN s118 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 19 AND OK.Q THEN s119 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 20 AND OK.Q THEN s120 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 21 AND OK.Q THEN s121 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 22 AND OK.Q THEN s122 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 23 AND OK.Q THEN s123 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 0 AND OK.Q THEN s200 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 1 AND OK.Q THEN s201 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 2 AND OK.Q THEN s202 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 3 AND OK.Q THEN s203 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 4 AND OK.Q THEN s204 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 5 AND OK.Q THEN s205 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 6 AND OK.Q THEN s206 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 7 AND OK.Q THEN s207 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 8 AND OK.Q THEN s208 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 9 AND OK.Q THEN s209 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 10 AND OK.Q THEN s210 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 11 AND OK.Q THEN s211 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 12 AND OK.Q THEN s212 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 13 AND OK.Q THEN s213 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 14 AND OK.Q THEN s214 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 15 AND OK.Q THEN s215 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 16 AND OK.Q THEN s216 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 17 AND OK.Q THEN s217 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 18 AND OK.Q THEN s218 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 19 AND OK.Q THEN s219 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 20 AND OK.Q THEN s220 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 21 AND OK.Q THEN s221 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 22 AND OK.Q THEN s222 := TRUE ; END_IF
IF MENUDN= 2 AND MENUVR= 23 AND OK.Q THEN s223 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 0 AND OK.Q THEN s300 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 1 AND OK.Q THEN s301 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 2 AND OK.Q THEN s302 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 3 AND OK.Q THEN s303 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 4 AND OK.Q THEN s304 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 5 AND OK.Q THEN s305 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 6 AND OK.Q THEN s306 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 7 AND OK.Q THEN s307 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 8 AND OK.Q THEN s308 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 9 AND OK.Q THEN s309 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 10 AND OK.Q THEN s310 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 11 AND OK.Q THEN s311 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 12 AND OK.Q THEN s312 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 13 AND OK.Q THEN s313 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 14 AND OK.Q THEN s314 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 15 AND OK.Q THEN s315 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 16 AND OK.Q THEN s316 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 17 AND OK.Q THEN s317 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 18 AND OK.Q THEN s318 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 19 AND OK.Q THEN s319 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 20 AND OK.Q THEN s320 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 21 AND OK.Q THEN s321 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 22 AND OK.Q THEN s322 := TRUE ; END_IF
IF MENUDN= 3 AND MENUVR= 23 AND OK.Q THEN s323 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 0 AND OK.Q THEN s400 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 1 AND OK.Q THEN s401 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 2 AND OK.Q THEN s402 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 3 AND OK.Q THEN s403 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 4 AND OK.Q THEN s404 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 5 AND OK.Q THEN s405 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 6 AND OK.Q THEN s406 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 7 AND OK.Q THEN s407 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 8 AND OK.Q THEN s408 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 9 AND OK.Q THEN s409 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 10 AND OK.Q THEN s410 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 11 AND OK.Q THEN s411 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 12 AND OK.Q THEN s412 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 13 AND OK.Q THEN s413 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 14 AND OK.Q THEN s414 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 15 AND OK.Q THEN s415 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 16 AND OK.Q THEN s416 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 17 AND OK.Q THEN s417 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 18 AND OK.Q THEN s418 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 19 AND OK.Q THEN s419 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 20 AND OK.Q THEN s420 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 21 AND OK.Q THEN s421 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 22 AND OK.Q THEN s422 := TRUE ; END_IF
IF MENUDN= 4 AND MENUVR= 23 AND OK.Q THEN s423 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 0 AND OK.Q THEN s500 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 1 AND OK.Q THEN s501 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 2 AND OK.Q THEN s502 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 3 AND OK.Q THEN s503 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 4 AND OK.Q THEN s504 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 5 AND OK.Q THEN s505 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 6 AND OK.Q THEN s506 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 7 AND OK.Q THEN s507 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 8 AND OK.Q THEN s508 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 9 AND OK.Q THEN s509 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 10 AND OK.Q THEN s510 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 11 AND OK.Q THEN s511 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 12 AND OK.Q THEN s512 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 13 AND OK.Q THEN s513 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 14 AND OK.Q THEN s514 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 15 AND OK.Q THEN s515 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 16 AND OK.Q THEN s516 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 17 AND OK.Q THEN s517 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 18 AND OK.Q THEN s518 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 19 AND OK.Q THEN s519 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 20 AND OK.Q THEN s520 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 21 AND OK.Q THEN s521 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 22 AND OK.Q THEN s522 := TRUE ; END_IF
IF MENUDN= 5 AND MENUVR= 23 AND OK.Q THEN s523 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 0 AND OK.Q THEN s600 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 1 AND OK.Q THEN s601 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 2 AND OK.Q THEN s602 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 3 AND OK.Q THEN s603 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 4 AND OK.Q THEN s604 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 5 AND OK.Q THEN s605 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 6 AND OK.Q THEN s606 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 7 AND OK.Q THEN s607 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 8 AND OK.Q THEN s608 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 9 AND OK.Q THEN s609 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 10 AND OK.Q THEN s610 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 11 AND OK.Q THEN s611 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 12 AND OK.Q THEN s612 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 13 AND OK.Q THEN s613 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 14 AND OK.Q THEN s614 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 15 AND OK.Q THEN s615 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 16 AND OK.Q THEN s616 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 17 AND OK.Q THEN s617 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 18 AND OK.Q THEN s618 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 19 AND OK.Q THEN s619 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 20 AND OK.Q THEN s620 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 21 AND OK.Q THEN s621 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 22 AND OK.Q THEN s622 := TRUE ; END_IF
IF MENUDN= 6 AND MENUVR= 23 AND OK.Q THEN s623 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 0 AND OK.Q THEN s700 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 1 AND OK.Q THEN s701 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 2 AND OK.Q THEN s702 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 3 AND OK.Q THEN s703 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 4 AND OK.Q THEN s704 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 5 AND OK.Q THEN s705 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 6 AND OK.Q THEN s706 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 7 AND OK.Q THEN s707 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 8 AND OK.Q THEN s708 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 9 AND OK.Q THEN s709 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 10 AND OK.Q THEN s710 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 11 AND OK.Q THEN s711 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 12 AND OK.Q THEN s712 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 13 AND OK.Q THEN s713 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 14 AND OK.Q THEN s714 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 15 AND OK.Q THEN s715 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 16 AND OK.Q THEN s716 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 17 AND OK.Q THEN s717 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 18 AND OK.Q THEN s718 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 19 AND OK.Q THEN s719 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 20 AND OK.Q THEN s720 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 21 AND OK.Q THEN s721 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 22 AND OK.Q THEN s722 := TRUE ; END_IF
IF MENUDN= 7 AND MENUVR= 23 AND OK.Q THEN s723 := TRUE ; END_IF
IF MENUDN= 1 AND MENUVR= 0 AND SB.Q THEN s100 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 1 AND SB.Q THEN s101 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 2 AND SB.Q THEN s102 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 3 AND SB.Q THEN s103 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 4 AND SB.Q THEN s104 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 5 AND SB.Q THEN s105 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 6 AND SB.Q THEN s106 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 7 AND SB.Q THEN s107 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 8 AND SB.Q THEN s108 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 9 AND SB.Q THEN s109 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 10 AND SB.Q THEN s110 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 11 AND SB.Q THEN s111 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 12 AND SB.Q THEN s112 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 13 AND SB.Q THEN s113 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 14 AND SB.Q THEN s114 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 15 AND SB.Q THEN s115 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 16 AND SB.Q THEN s116 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 17 AND SB.Q THEN s117 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 18 AND SB.Q THEN s118 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 19 AND SB.Q THEN s119 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 20 AND SB.Q THEN s120 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 21 AND SB.Q THEN s121 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 22 AND SB.Q THEN s122 := FALSE ; END_IF
IF MENUDN= 1 AND MENUVR= 23 AND SB.Q THEN s123 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 0 AND SB.Q THEN s200 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 1 AND SB.Q THEN s201 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 2 AND SB.Q THEN s202 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 3 AND SB.Q THEN s203 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 4 AND SB.Q THEN s204 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 5 AND SB.Q THEN s205 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 6 AND SB.Q THEN s206 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 7 AND SB.Q THEN s207 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 8 AND SB.Q THEN s208 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 9 AND SB.Q THEN s209 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 10 AND SB.Q THEN s210 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 11 AND SB.Q THEN s211 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 12 AND SB.Q THEN s212 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 13 AND SB.Q THEN s213 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 14 AND SB.Q THEN s214 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 15 AND SB.Q THEN s215 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 16 AND SB.Q THEN s216 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 17 AND SB.Q THEN s217 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 18 AND SB.Q THEN s218 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 19 AND SB.Q THEN s219 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 20 AND SB.Q THEN s220 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 21 AND SB.Q THEN s221 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 22 AND SB.Q THEN s222 := FALSE ; END_IF
IF MENUDN= 2 AND MENUVR= 23 AND SB.Q THEN s223 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 0 AND SB.Q THEN s300 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 1 AND SB.Q THEN s301 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 2 AND SB.Q THEN s302 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 3 AND SB.Q THEN s303 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 4 AND SB.Q THEN s304 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 5 AND SB.Q THEN s305 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 6 AND SB.Q THEN s306 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 7 AND SB.Q THEN s307 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 8 AND SB.Q THEN s308 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 9 AND SB.Q THEN s309 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 10 AND SB.Q THEN s310 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 11 AND SB.Q THEN s311 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 12 AND SB.Q THEN s312 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 13 AND SB.Q THEN s313 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 14 AND SB.Q THEN s314 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 15 AND SB.Q THEN s315 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 16 AND SB.Q THEN s316 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 17 AND SB.Q THEN s317 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 18 AND SB.Q THEN s318 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 19 AND SB.Q THEN s319 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 20 AND SB.Q THEN s320 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 21 AND SB.Q THEN s321 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 22 AND SB.Q THEN s322 := FALSE ; END_IF
IF MENUDN= 3 AND MENUVR= 23 AND SB.Q THEN s323 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 0 AND SB.Q THEN s400 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 1 AND SB.Q THEN s401 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 2 AND SB.Q THEN s402 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 3 AND SB.Q THEN s403 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 4 AND SB.Q THEN s404 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 5 AND SB.Q THEN s405 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 6 AND SB.Q THEN s406 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 7 AND SB.Q THEN s407 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 8 AND SB.Q THEN s408 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 9 AND SB.Q THEN s409 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 10 AND SB.Q THEN s410 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 11 AND SB.Q THEN s411 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 12 AND SB.Q THEN s412 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 13 AND SB.Q THEN s413 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 14 AND SB.Q THEN s414 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 15 AND SB.Q THEN s415 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 16 AND SB.Q THEN s416 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 17 AND SB.Q THEN s417 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 18 AND SB.Q THEN s418 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 19 AND SB.Q THEN s419 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 20 AND SB.Q THEN s420 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 21 AND SB.Q THEN s421 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 22 AND SB.Q THEN s422 := FALSE ; END_IF
IF MENUDN= 4 AND MENUVR= 23 AND SB.Q THEN s423 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 0 AND SB.Q THEN s500 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 1 AND SB.Q THEN s501 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 2 AND SB.Q THEN s502 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 3 AND SB.Q THEN s503 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 4 AND SB.Q THEN s504 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 5 AND SB.Q THEN s505 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 6 AND SB.Q THEN s506 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 7 AND SB.Q THEN s507 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 8 AND SB.Q THEN s508 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 9 AND SB.Q THEN s509 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 10 AND SB.Q THEN s510 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 11 AND SB.Q THEN s511 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 12 AND SB.Q THEN s512 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 13 AND SB.Q THEN s513 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 14 AND SB.Q THEN s514 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 15 AND SB.Q THEN s515 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 16 AND SB.Q THEN s516 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 17 AND SB.Q THEN s517 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 18 AND SB.Q THEN s518 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 19 AND SB.Q THEN s519 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 20 AND SB.Q THEN s520 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 21 AND SB.Q THEN s521 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 22 AND SB.Q THEN s522 := FALSE ; END_IF
IF MENUDN= 5 AND MENUVR= 23 AND SB.Q THEN s523 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 0 AND SB.Q THEN s600 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 1 AND SB.Q THEN s601 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 2 AND SB.Q THEN s602 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 3 AND SB.Q THEN s603 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 4 AND SB.Q THEN s604 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 5 AND SB.Q THEN s605 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 6 AND SB.Q THEN s606 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 7 AND SB.Q THEN s607 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 8 AND SB.Q THEN s608 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 9 AND SB.Q THEN s609 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 10 AND SB.Q THEN s610 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 11 AND SB.Q THEN s611 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 12 AND SB.Q THEN s612 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 13 AND SB.Q THEN s613 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 14 AND SB.Q THEN s614 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 15 AND SB.Q THEN s615 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 16 AND SB.Q THEN s616 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 17 AND SB.Q THEN s617 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 18 AND SB.Q THEN s618 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 19 AND SB.Q THEN s619 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 20 AND SB.Q THEN s620 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 21 AND SB.Q THEN s621 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 22 AND SB.Q THEN s622 := FALSE ; END_IF
IF MENUDN= 6 AND MENUVR= 23 AND SB.Q THEN s623 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 0 AND SB.Q THEN s700 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 1 AND SB.Q THEN s701 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 2 AND SB.Q THEN s702 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 3 AND SB.Q THEN s703 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 4 AND SB.Q THEN s704 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 5 AND SB.Q THEN s705 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 6 AND SB.Q THEN s706 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 7 AND SB.Q THEN s707 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 8 AND SB.Q THEN s708 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 9 AND SB.Q THEN s709 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 10 AND SB.Q THEN s710 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 11 AND SB.Q THEN s711 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 12 AND SB.Q THEN s712 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 13 AND SB.Q THEN s713 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 14 AND SB.Q THEN s714 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 15 AND SB.Q THEN s715 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 16 AND SB.Q THEN s716 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 17 AND SB.Q THEN s717 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 18 AND SB.Q THEN s718 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 19 AND SB.Q THEN s719 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 20 AND SB.Q THEN s720 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 21 AND SB.Q THEN s721 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 22 AND SB.Q THEN s722 := FALSE ; END_IF
IF MENUDN= 7 AND MENUVR= 23 AND SB.Q THEN s723 := FALSE ; END_IF
DN1:= TimeAndDate.DayOfWeek=1;
DN2:= TimeAndDate.DayOfWeek=2;
DN3:= TimeAndDate.DayOfWeek=3;
DN4:= TimeAndDate.DayOfWeek=4;
DN5:= TimeAndDate.DayOfWeek=5;
DN6:= TimeAndDate.DayOfWeek=6;
DN7:= TimeAndDate.DayOfWeek=7;
VR00:= TimeAndDate.Hour=0 ;
VR01:= TimeAndDate.Hour=1 ;
VR02:= TimeAndDate.Hour=2;
VR03:= TimeAndDate.Hour=3;
VR04:= TimeAndDate.Hour=4;
VR05:= TimeAndDate.Hour=5;
VR06:= TimeAndDate.Hour=6;
VR07:= TimeAndDate.Hour=7;
VR08:= TimeAndDate.Hour=8;
VR09:= TimeAndDate.Hour=9;
VR10:= TimeAndDate.Hour=10;
VR11:= TimeAndDate.Hour=11;
VR12:= TimeAndDate.Hour=12;
VR13:= TimeAndDate.Hour=13;
VR14:= TimeAndDate.Hour=14;
VR15:= TimeAndDate.Hour=15;
VR16:= TimeAndDate.Hour=16;
VR17:= TimeAndDate.Hour=17;
VR18:= TimeAndDate.Hour=18;
VR19:= TimeAndDate.Hour=19;
VR20:= TimeAndDate.Hour=20;
VR21:= TimeAndDate.Hour=21;
VR22:= TimeAndDate.Hour=22;
VR23:= TimeAndDate.Hour=23;
OUT:= DN1 AND VR00 AND s100 OR
DN1 AND VR01 AND s101 OR
DN1 AND VR02 AND s102 OR
DN1 AND VR03 AND s103 OR
DN1 AND VR04 AND s104 OR
DN1 AND VR05 AND s105 OR
DN1 AND VR06 AND s106 OR
DN1 AND VR07 AND s107 OR
DN1 AND VR08 AND s108 OR
DN1 AND VR09 AND s109 OR
DN1 AND VR10 AND s110 OR
DN1 AND VR11 AND s111 OR
DN1 AND VR12 AND s112 OR
DN1 AND VR13 AND s113 OR
DN1 AND VR14 AND s114 OR
DN1 AND VR15 AND s115 OR
DN1 AND VR16 AND s116 OR
DN1 AND VR17 AND s117 OR
DN1 AND VR18 AND s118 OR
DN1 AND VR19 AND s119 OR
DN1 AND VR20 AND s120 OR
DN1 AND VR21 AND s121 OR
DN1 AND VR22 AND s122 OR
DN1 AND VR23 AND s123 OR
DN2 AND VR00 AND s200 OR
DN2 AND VR01 AND s201 OR
DN2 AND VR02 AND s202 OR
DN2 AND VR03 AND s203 OR
DN2 AND VR04 AND s204 OR
DN2 AND VR05 AND s205 OR
DN2 AND VR06 AND s206 OR
DN2 AND VR07 AND s207 OR
DN2 AND VR08 AND s208 OR
DN2 AND VR09 AND s209 OR
DN2 AND VR10 AND s210 OR
DN2 AND VR11 AND s211 OR
DN2 AND VR12 AND s212 OR
DN2 AND VR13 AND s213 OR
DN2 AND VR14 AND s214 OR
DN2 AND VR15 AND s215 OR
DN2 AND VR16 AND s216 OR
DN2 AND VR17 AND s217 OR
DN2 AND VR18 AND s218 OR
DN2 AND VR19 AND s219 OR
DN2 AND VR20 AND s220 OR
DN2 AND VR21 AND s221 OR
DN2 AND VR22 AND s222 OR
DN2 AND VR23 AND s223 OR
DN3 AND VR00 AND s300 OR
DN3 AND VR01 AND s301 OR
DN3 AND VR02 AND s302 OR
DN3 AND VR03 AND s303 OR
DN3 AND VR04 AND s304 OR
DN3 AND VR05 AND s305 OR
DN3 AND VR06 AND s306 OR
DN3 AND VR07 AND s307 OR
DN3 AND VR08 AND s308 OR
DN3 AND VR09 AND s309 OR
DN3 AND VR10 AND s310 OR
DN3 AND VR11 AND s311 OR
DN3 AND VR12 AND s312 OR
DN3 AND VR13 AND s313 OR
DN3 AND VR14 AND s314 OR
DN3 AND VR15 AND s315 OR
DN3 AND VR16 AND s316 OR
DN3 AND VR17 AND s317 OR
DN3 AND VR18 AND s318 OR
DN3 AND VR19 AND s319 OR
DN3 AND VR20 AND s320 OR
DN3 AND VR21 AND s321 OR
DN3 AND VR22 AND s322 OR
DN3 AND VR23 AND s323 OR
DN4 AND VR00 AND s400 OR
DN4 AND VR01 AND s401 OR
DN4 AND VR02 AND s402 OR
DN4 AND VR03 AND s403 OR
DN4 AND VR04 AND s404 OR
DN4 AND VR05 AND s405 OR
DN4 AND VR06 AND s406 OR
DN4 AND VR07 AND s407 OR
DN4 AND VR08 AND s408 OR
DN4 AND VR09 AND s409 OR
DN4 AND VR10 AND s410 OR
DN4 AND VR11 AND s411 OR
DN4 AND VR12 AND s412 OR
DN4 AND VR13 AND s413 OR
DN4 AND VR14 AND s414 OR
DN4 AND VR15 AND s415 OR
DN4 AND VR16 AND s416 OR
DN4 AND VR17 AND s417 OR
DN4 AND VR18 AND s418 OR
DN4 AND VR19 AND s419 OR
DN4 AND VR20 AND s420 OR
DN4 AND VR21 AND s421 OR
DN4 AND VR22 AND s422 OR
DN4 AND VR23 AND s423 OR
DN5 AND VR00 AND s500 OR
DN5 AND VR01 AND s501 OR
DN5 AND VR02 AND s502 OR
DN5 AND VR03 AND s503 OR
DN5 AND VR04 AND s504 OR
DN5 AND VR05 AND s505 OR
DN5 AND VR06 AND s506 OR
DN5 AND VR07 AND s507 OR
DN5 AND VR08 AND s508 OR
DN5 AND VR09 AND s509 OR
DN5 AND VR10 AND s510 OR
DN5 AND VR11 AND s511 OR
DN5 AND VR12 AND s512 OR
DN5 AND VR13 AND s513 OR
DN5 AND VR14 AND s514 OR
DN5 AND VR15 AND s515 OR
DN5 AND VR16 AND s516 OR
DN5 AND VR17 AND s517 OR
DN5 AND VR18 AND s518 OR
DN5 AND VR19 AND s519 OR
DN5 AND VR20 AND s520 OR
DN5 AND VR21 AND s521 OR
DN5 AND VR22 AND s522 OR
DN5 AND VR23 AND s523 OR
DN6 AND VR00 AND s600 OR
DN6 AND VR01 AND s601 OR
DN6 AND VR02 AND s602 OR
DN6 AND VR03 AND s603 OR
DN6 AND VR04 AND s604 OR
DN6 AND VR05 AND s605 OR
DN6 AND VR06 AND s606 OR
DN6 AND VR07 AND s607 OR
DN6 AND VR08 AND s608 OR
DN6 AND VR09 AND s609 OR
DN6 AND VR10 AND s610 OR
DN6 AND VR11 AND s611 OR
DN6 AND VR12 AND s612 OR
DN6 AND VR13 AND s613 OR
DN6 AND VR14 AND s614 OR
DN6 AND VR15 AND s615 OR
DN6 AND VR16 AND s616 OR
DN6 AND VR17 AND s617 OR
DN6 AND VR18 AND s618 OR
DN6 AND VR19 AND s619 OR
DN6 AND VR20 AND s620 OR
DN6 AND VR21 AND s621 OR
DN6 AND VR22 AND s622 OR
DN6 AND VR23 AND s623 OR
DN7 AND VR00 AND s700 OR
DN7 AND VR01 AND s701 OR
DN7 AND VR02 AND s702 OR
DN7 AND VR03 AND s703 OR
DN7 AND VR04 AND s704 OR
DN7 AND VR05 AND s705 OR
DN7 AND VR06 AND s706 OR
DN7 AND VR07 AND s707 OR
DN7 AND VR08 AND s708 OR
DN7 AND VR09 AND s709 OR
DN7 AND VR10 AND s710 OR
DN7 AND VR11 AND s711 OR
DN7 AND VR12 AND s712 OR
DN7 AND VR13 AND s713 OR
DN7 AND VR14 AND s714 OR
DN7 AND VR15 AND s715 OR
DN7 AND VR16 AND s716 OR
DN7 AND VR17 AND s717 OR
DN7 AND VR18 AND s718 OR
DN7 AND VR19 AND s719 OR
DN7 AND VR20 AND s720 OR
DN7 AND VR21 AND s721 OR
DN7 AND VR22 AND s722 OR
DN7 AND VR23 AND s723;
А не проще битовыми масками определять дни недели например ? 1 байт определяет в какие дни надо работать, в какие нет.
Можно организовать двумерный массив:massiv:array[0..6,0..23] of bool;
Тогда проще с визуализацией будет. Всего два значения: день и час + кнопка инверсии (изменения текущего значения) и кнопка для записи значения в массив. Имейте в виду, что в Кодесис день недели "Воскресенье" не 7, а 0.
В программе к элементу массива обращаться так: massiv[0,10]:=value;, что означает "Воскресенье 10 часов".
В качестве индексов массива можно использовать переменные.
value:=massiv[day,hour];
А в виде примера можете этого выложить? Если конечно несложно.Цитата:
Сообщение от amn
Можно организовать двумерный массив:massiv:array[0..6,0..23] of bool;
Тогда проще с визуализацией будет. Всего два значения: день и час + кнопка инверсии (изменения текущего значения) и кнопка для записи значения в массив. Имейте в виду, что в Кодесис день недели "Воскресенье" не 7, а 0.
В программе к элементу массива обращаться так: massiv[0,10]:=value;, что означает "Воскресенье 10 часов".
В качестве индексов массива можно использовать переменные.
value:=massiv[day,hour];
Код:VAR
mas:ARRAY[0..6, 0..23] OF BOOL; (*матрица недели*)
load: BOOL; (*загрузить значение из панели в матрицу*)
value: BOOL; (*задается в панели: 1 - должно быть включено, 0 - должно быть выключено*)
hour: WORD; (*час: задается в панели*)
day:WORD; (*день недели: задается в панели*)
END_VAR
В панели на экране должны быть: регистр дня (day), регистр часа (hour), регистр значения (value) и кнопка инверсии значения, кнопка загрузки в контроллер измененного значения (load)Код:IF load THEN (*если в панели нажали кнопку загрузить*)
mas[day, hour]:=value; (*вносим в матрицу значение из панели*)
END_IF