Вид для печати
Здравствуйте.
Есть спк207 и модули вывода. Подскажите, пожалуйста, как реализовать включение и отключение освещения по часам. Например, в одном месте свет должен включиться в 7 утра, а выключиться в 2 ночи, в другом 7 включиться, а в 22 выключиться.
Не работал еще с часами реального времени и никак не могу разобраться.
Посмотрите п. 13.3 в документе СПК.FAQ.Цитата:
Сообщение от alexanderzzz
Спасибо за подсказку.
А не могли бы чуть чуть подробней объяснить. Как извлечь время понятно, но никак не могу сообразить, что нужно сделать, чтоб в 7-00 включилось, а в 2-00 выключилось.
Цитата:
Сообщение от alexanderzzz
Код:IF CurrentHour=7 AND CurrentMinute=0 AND CurrentSecond=0 THEN
Enable:=TRUE;
END_IF
IF CurrentHour=2 AND CurrentMinute=0 AND CurrentSecond=0 THEN
Enable:=FALSE;
END_IF
Спасибо большое.
Здравствуйте.Цитата:
Сообщение от Евгений Кислов
Подскажите немного другую ситуацию.
Нужно чтоб вентилятор работал в двух режимах, допустил режим 1: понедельник - пятница с 22-30 до 6-00, режим 2: понедельник - пятница с 6-00 до 22-30, суббота и воскресенье - режим 1.
Кручу верчу, ничего со временем не получается...
Добрый день.
Покажите, пожалуйста, что именно у вас не получается (примеры кода).
Последнее на чем остановился, но с диапазонами времени какая то бедаЦитата:
Сообщение от Евгений Кислов
PROGRAM Job_PRG
VAR
usiGetDayOfWeek: USINT; // текущий день недели
usiGetHour: USINT; // текущий час
usiGetMinute: USINT; // текущая минута
usiTimeHourON : USINT; // Время включения (0...23), ч
usiTimeMinuteON : USINT; // Время включения (0...59), мин
usiTimeHourOFF : USINT; // Время выключения (0...23), ч
usiTimeMinuteOFF : UIUSINTNT; // Время выключения (0...59), мин
bJob_1: BOOL; // работа вентилятора режим 1
bJob_2: BOOL; // работа вентилятора режим 2
bFlagTimePRG: BOOL; // флаг
END_VAR
************************************************** ********************************
bFlagTimePRG := usiGetHour >= usiTimeHourON AND usiGetMinute >= usiTimeMinuteON AND
usiGetHour <= usiTimeHourOFF AND usiGetMinute <= usiTimeMinuteOFF;
IF bFlagTimePRG AND NOT usiGetDayOfWeek = 6 OR NOT usiGetDayOfWeek = 7 THEN
bJob_1 := TRUE;
bJob_2 := FALSE;
ELSE
bJob_1 := FALSE;
bJob_2 := TRUE;
END_IF
Чтобы проще было отладить - подставьте вместо usiTimeHourON и т.д. какие-то числа - тогда станет ясно, почему именно все работает не так, как задумано.
В этом я то и запутался, это условие работает когда уставки вкл./выкл. в пределах суток от 0-00 до 23-59Цитата:
Сообщение от Евгений Кислов
bFlagTimePRG := usiGetHour >= 1 AND usiGetMinute >= 15 AND usiGetHour <= 6 AND usiGetMinute <= 30;
А когда включить нужно в конце одного дня, а выключить на следующий, это условие уже не подходит
bFlagTimePRG := usiGetHour >= 22 AND usiGetMinute >= 30 AND usiGetHour <= 6 AND usiGetMinute <= 30;
usiGetHour - текущий час - он не может быть одновременно >=22 и <=6 - а вы условия через оператор AND объединили.
Евгений, это я понимаю, я не понимаю как сделать так как мне нужно)) Просто начал свой вопрос с самого начала, чтоб была понятна моя проблемаЦитата:
Сообщение от Евгений Кислов
превести время в UNIX-время и следить за разницей миллисекунд(просто секунд), от начала до текущего и сравнивать с заданнымЦитата:
Сообщение от vinam
ОбобщенноЦитата:
Сообщение от vinam
Код:(*собираем часы, минуты и секунды в одну кучу - в секунды*)
time_on:=(on_Hour * 60 + on_Minute) * 60 + on_Second; (*время включения*)
time_of:=(of_Hour * 60 + of_Minute) * 60 + of_Second; (*время отключения*)
current_time:=(CurrentHour * 60 + CurrentMinute) * 60 + CurrentSecond; (*текущее время*)
IF time_on <= time_of THEN
Enable:=current_time >= time_on AND current_time < time_of;
ELSE
Enable:=NOT(current_time >= time_of AND current_time < time_on);
END_IF
Спасибо, всем!!!