Вверх ↑
Ответов: 8887
Рейтинг: 823
#1: 2020-10-21 01:09:22 ЛС | профиль | цитата
Stalevar, шихта по расчёту?
Заготовку приложил. Время работы в StrList.
Первая колонка -- День недели, вторая -- Время. Это начало работы
Третья колонка -- День недели, четвёртая -- Время. Это окончание работы
"1" -- Понедельник, 2--Вторник...
Время в долях суток, 7:30 = (7*3600 + 30*60)/86400 = 0.3125, например:
3;0.8125;4;0.3125 -- начинаем в 19:30 среды, заканчиваем 7:30 четверга.
Заготовка


Add(MainForm,2953706,161,105)
{
link(onCreate,10635605:doEvent1,[])
}
Add(Time,3050763,294,56)
{
Time_Date=1
Format="W"
Point(DateTime)
}
Add(Timer,5933353,238,126)
{
Interval=30000
Enable=1
link(onTimer,16002078:doWork2,[])
}
Add(Hub,10635605,203,119)
{
link(onEvent1,16002078:doWork1,[(277,125)])
link(onEvent2,5933353:doTimer,[])
}
Add(StrList,615605,350,56)
{
Strings=#17:1;0.3125;1;0.8125|17:3;0.8125;4;0.3125|18:5;0.3125;5;0.8125 |
}
Add(MathParse,4174473,294,126)
{
MathStr="%1 + frac(%2)"
link(onResult,6234702:doEnum,[])
link(X1,3050763:FormatTime,[])
link(X2,3050763:DateTime,[])
}
Add(HubEx,16002078,273,126)
{
link(onEvent,4174473:doCalc,[])
}
Add(ArrayEnum,6234702,343,126)
{
link(onItem,8908942:doSplit,[])
link(Array,615605:Array,[(349,110)(370,110)])
}
Add(MultiStrPart,8908942,406,126)
{
Count=4
link(onSplit,16073842:doCalc,[(445,132)(445,146)(396,146)(396,195)])
}
Add(MathParse,16073842,406,189)
{
MathStr="%1 + frac(%2)"
link(onResult,16093291:doCompare,[])
link(X1,8908942:Part1,[])
link(X2,8908942:Part2,[])
}
Add(MathParse,14874395,504,189)
{
MathStr="%1 + frac(%2)"
link(onResult,731921:doCompare,[])
link(X1,8908942:Part3,[(510,173)(426,173)])
link(X2,8908942:Part4,[(517,166)(433,166)])
}
Add(If_else,16093291,455,189)
{
Type=1
link(onTrue,14874395:doCalc,[])
link(Op1,2919603:Var2,[])
}
Add(If_else,731921,553,189)
{
Type=2
link(onTrue,2953706:doClose,[(592,195)(592,230)(151,230)(151,132)])
link(Op1,2919603:Var3,[(559,180)])
}
Add(GetDataEx,2919603,455,175)
{
Angle=3
link(Data,4174473:Result,[(300,180)])
}

карма: 19

1
Голосовали:Stalevar