Вид для печати
Подскажите как реализовать следующий алгоритм (CFC)
Задается время включения выключения
если задано в 9 включить а 1 выключить то чтоб в промежуток между 9 и 1 должно произойти включение *(если оператор задал в 10 часов, чтоб включилось 9 то должно включится не на следующий день а сразу )
а с 1 до 9 выключение
библиотека сислиб тайм- получаете время.
потом сравниваете. если больше или равно времени включения то устанавливаете маркер
если больше времени выключения то устанавливаете маркер выключения.
маркеры на вход RS
это все сейчас так и сделано но если А>9 то все хорошо до 0 а потом получается что А<9
так может изменить логику, задавать начало включения и период работы, а тот вариант которывый изначально хотите осуществить далеко не полный, не решена проблема как плк должен определять насколько часов можно задавать начало "задним числом"Цитата:
Сообщение от Roman29
проблема в том что надо именно так . Уже месяц голову ломаю.
В СКАДЕ выставляется время включения час + минуты и время выключения
сейчас включается ровно в за данное время (9:00 к примеру )
По фронтам тогда маркер ставьте. можно с запоминанием.
А при срабатывании по фронту, не только устанавливайте маркер включения, но и производите сброс маркера установки.
Соотвественно при установке маркера выключения сначала сбросьте маркер включения.
Я что-то не догоняю или вы дружно велосипед изобретаете?Код:код ниже
гы, там еще предлагалось, когда on>off, currTime>on то всёравно включить и работать до off? причем не указывалось насколько могла быть велика разница между currTime-onЦитата:
Сообщение от Yegor
У меня вроде так и есть. Ну то есть если включение на 9:00, выключение — на 03:00 (ночи), и сейчас 23:00, то оно (за)работает. И в 01:00 ночи оно (за)работает.Цитата:
когда on>off, currTime>on то всёравно включить и работать до off
Фу ты блин, скобки забыл:Код:out := (on < off AND curTime >= on AND curTime < off) OR
(on > off AND (curTime < off OR curTime > on));
конечно я не проверял код, просто интуитивно чуствую, не всё так однозначно :)Цитата:
Сообщение от Yegor
...а как с такими НУ on:=4, off:=21, curTime:=22
Выключено согласно первой строчке.Цитата:
on:=4, off:=21, curTime:=22
CFC для некоторых: Вложение 16267
Цитата:
Сообщение от Roman29
Цитата:
Сообщение от Yegor
Я уже выкладывал готовый ФБ http://www.owen.ru/forum/showthread....l=1#post158114Цитата:
Сообщение от Roman29
В программе на CFC будет выглядеть так
Вложение 16268
а чего у меня тогда горит выход?Цитата:
Сообщение от Yegor
А мой код работает, проверено
Вложение 16270
ЗЫ.
Или частный случай, без дней недели
Код:CASE BOOL_TO_INT(time_on <= time_of) OF
0: q:=NOT(current_time >= time_of AND current_time < time_on);
1: q:=current_time >= time_on AND current_time < time_of;
END_CASE
(*Или такой вариант
IF time_on <= time_of THEN
q:=current_time >= time_on AND current_time < time_of;
ELSE
q:=NOT(current_time >= time_of AND current_time < time_on);
END_IF
*)
Скобки во второй строке забыли (ну, то есть я сначала забыл).Цитата:
а чего у меня тогда горит выход?
Чтобы совсем было гуд, надо в последнем условии вместо ">" ставить ">="Цитата:
Сообщение от Yegor
В противном случае если on > off, то out включается на целый час позже значения "on"Код:out := (on < off AND curTime >= on AND curTime < off) OR
(on > off AND (curTime < off OR curTime >= on));
Спасибо всем сейчас буду пробовать
Спасибо всем сейчас буду пробовать
у меня освещение примерно так
svet12_0 := TimeAndDate.Hour >=2 AND TimeAndDate.Hour <=20; (*время включения и выключения тогда будет работать с 21-1*)
MDVV_out.7:= NOT svet12_0 AND autosvet;
Я так-то с типом TOD это предполагал использовать, который здесь очень кстати. Тогда ошибка на одну миллисекунду, а не на час. Но всё равно ошибка, вы правы.Цитата:
В противном случае если on > off, то out включается на целый час позже значения "on"
Установил все отлично работает еще раз большое спасибоЦитата:
Сообщение от petera
Petera, спасибо. Тоже пригодился Ваш ФБ.