Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?

Официальный форум Simple-Scada.

Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - pan2000

Страницы: 1 2 [3] 4 5 ... 15
31
  Здравствуйте.

считаю вопрос закрыт тк мой скрипт криво, но справляется с уведомлениями.
Для однократной отправки сообщения необходим флаг "сообщение отправлено", причем в качестве оного можно использовать свойство Color объекта.
Вполне возможно, что дополнительно придется добавить гистерезис температуры для исключения отправки сообщений при "болтанке" температуры вблизи границы:
Код: (delphi)
const dT = 3;   // гистерезис температуры
begin
   if Sender is TM_Object then     // проверяем, что Sender это объект
     with Sender as TM_Object do   // приводим Sender к типу "TM_Object"
       if Color <> clRed then
       begin
         if AsSingle >= VariableEx.AsSingle then
         begin
           Color := clRed;
           AddMessage(Now, mkWarning, Variable.Description + ' превысила ' + Variable.AsStr + ' градуса ', True, True);
         end;
       end
      else
        if AsSingle < (VariableEx.AsSingle - dT) then Color := RGB(191,191,191);
end.
Для выполнения контроля при изменении границы можно добавить скрипт по изменению дополнительной переменной (границы):
Код: (delphi)
begin
    Sender.Color := RGB(191,191,191);     // обязательно выполнить сравнение с границей
    TM_Object(Sender).OnDataChangeEvent;
end.

Вполне рабочий вариант с использованием границ переменных.
{удалено, чтобы не повторять написанное Simple_Scada выше}

Во вложении два примера как со скриптами по изменению переменных, так и по нарушению границы. Как говорится, найдите 3 отличия.

32
   Здравствуйте.

  Запрос к БД должен "расыпать" один столбец данных исходной таблицы на три столбца данных, причем с использованием фильтрации по ID данных и по времени.
  На фильтр по времени существнно влияет как формируется временная метка записи в БД, либо от внешней архивируемой переменной, либо от внутренней по временным событиям scada-сервера.
  В примере из вложения фильтр по одиночному значению метки времени в пределах первой минуты часа/получаса. При отсутствии метки времени в пределах фильтрации, выдается сообщение "нет данных". ЛКМ на выбранной ячейке удаляет соответствующую строку тестовой таблицы.
  Предварительно строится временная таблица меток времени от начала недели с интервалом в 12 часов, далее формируется запрос на объединение таблицы меток и трех таблиц данных, полученных подзапросами.
 
  P.S. Иллюзия "игнорирования" - в разделе "Ваши вопросы" обнаружено всего 12 вопросов без ответов :), да и то многие из них предполагают отсутствие ответов. 

33
   Здравствуйте.

  Запрос к БД должен содержать фильтры, ограничивающие выборку данных только за одну предыдущую неделю с прореживанием данных.
  Простой фильтры предполагает, что метки времени попадают в первый минутный интервал периода измерения, т.е. минуты = 0 или 30, а секунды = 00..59:
 
Код: (delphi)
var aFirstDay: TDateTime;
begin
  aFirstDay := IncDay(DATE, - (6 + integer(DayOfTheWeek(Now))));                    // первый день пред. недели
  Table5.RunSQL('SELECT DATE_FORMAT(`t`,''%d.%m.%Y  %H:%i'')'                       // форматирование даты-времени
              + ',FORMAT(`T_3`,2),FORMAT(`T_6`,2),FORMAT(`T_7`,2) FROM `my_table` ' // форматирование температур
              + 'WHERE (MINUTE(`t`) = 0) '                                          // фильтр: минуты=0 или начало часа
              + 'AND ((HOUR(`t`) MOD 12) = 0) '                                     // фильтр: час=0 или час=12
              + 'AND (`t` >=' + MySQLDateTime(aFirstDay, dttHour)                   // фильтр: предыдущая неделя - начало
              + ') AND (`t` <' + MySQLDateTime(IncDay(aFirstDay, 7), dttHour)       //         предыдущая неделя - конец
              + ') ;',
              tsSaveFixRow);
end.
Во вложении пример построения исходной таблицы за две предшествующие и начало текущей недели. Построение таблицы результатов.

34
   Здравствуйте.

 Вполне можно обойтись без таймера, достаточно в скрипте по изменению основной переменной переводить кнопку с фиксацией в начальное состояние:
Код: (delphi)
begin
  with Sender as TM_Button do
    if AsInt > 0 then                     //  для boolean: if AsBool then
      begin
        Value := 0;                       //  для boolean:  Value := false; 
// действие при нажатии кнопки, например счетчик числа нажатий на самой кнопке
        Tag := Tag + 1;
        States[0].Caption := IntToStr(Tag);
      end;
end.


Для кнопки с таймером реализация немножко сложнее. Набор скриптов для "самодостаточной" кнопки (т.е. не требующей изменения скриптов или добавления новых переменных):
- по изменению основной переменной:
Код: (delphi)
begin
  with Sender as TM_Object do
    if AsInt > 0 then Tag := 5;  // Tag - это таймерная переменная данной кнопки
// действие при нажатии кнопки
end.

- "Прошла секунда":
Код: (delphi)
begin
  timer.Inc(1, 0, 10000000);            // это единственная виртуальная переменная - таймера хватит на 7 лет
end.
- по изменению дополнительной переменной, в качестве которой выступает виртуальная переменная timer:
Код: (delphi)
begin
  with Sender as TM_Button do
    if Tag > 0 then
    begin
      if Tag = 1 then Value := 0; // обнуление основной переменной - сброс кнопки в начальное состояние
      Tag := Tag - 1;
// иллюстрация - изменение значения таймерной переменной
      States[1].Caption := IntToStr(Tag);   
    end;
end.
       

Для кнопок с изменяемым таймером можно использовать шаблон. Принудительное переключение кнопки в начальное состояние можно заблокировать, управляя свойством Enabled кнопки.
Все примеры во вложении.         

35
   Здравствуйте.

  Передать набор текстовых элементов в шаблон можно в свойстве Hint объекта. Текстовые элементы разделяются разделителем, не входящим ни в один элемент. Общая длина такой строки ограничена 255 символами. При подстановке текстовых элементов возможны два варианта - фиксированное число элементов (удобнее, но для разного числа нужно несколько шаблонов или частичная подстановка в самый "большой" ;D) или произвольное (шаблон один, предварительно подстановку можно подготовить текстовым редактором). Варианты выбора по основной переменной "один из двух" (boolean) или "по номеру" (integer).
  Управлять цветом можно посредством набора пар "цвет объекта" - "цвет шрифта" по номеру набора из дополнительной переменной.
  Бесскриптовый способ изменения текста с предустановленными цветами - объект "Кнопка".
Пример во вложении.

36
    Здравствйте.

В зависимости от желаемого правила изменения можно менять цвет с учетом двух переменных (один скрипт на оба события изменения переменных):
Код: (delphi)
begin
  with Sender as TM_Object do
    case SetBit(SetBit(0, 0, AsBool), 1, VariableEx.AsBool) of
    0: Color := clGray;     // оба выключены
    1: Color := clLime;     // насос с управлением по основной переменной
    2: Color := clYellow;   // насос с управлением по дополнительной переменной
    3: Color := clRed;      // а это - оба сразу !
    end;
end.
или независимо по каждой переменной:
Код: (delphi)
begin
  with Sender as TM_Object do
    if AsBool then Color := clLime else Color := clGray;
end.
Код: (delphi)
begin
  with Sender as TM_Object do
    if VariableEx.AsBool then Color := clYellow else Color := clGray;
end.
Пример во вложении.

37
   Здравствуйте.

  Вполне рабочий вариант 2 - использование шаблонов, причем возможны два варианта реализации:
- отключить штатную навигацию по страницам, что позволит для мнемосхемы создать необходимое число страниц с двумя шаблонами - мнемосхемы и навигации;
- "замонолитить" шаблон мнемосхемы на этапе инициализации - создается односторонняя цепочка ссылок между объектами шаблона (спасибо разработчикам за свойство объекта UserData). Теперь у шаблона, как единого целого, можно управлять видимостью или перемещением.
Пример с управлением видимостью во вложении.

38
  Здравствуйте.

Штатную систему трендов можно использовать для предварительного просмотра и подготовке к формированию отчета.
В основе предпросмотра - таблица графиков, управление архивированием переменной и переход в меню трендов.
При выполнении критерия начала запуска измерения (в примере - просто порог) в таблицу записывается текущее время, разрешается архивирование переменной и запускается таймер.
По окончании таймера архивирование переменной выключается.
По клику на строку таблицы вызывается просмотр тренда в пределах 1 минуты (самый минимальный интервал отображения, разрешение графики примерно 30 элементов на 1 секунду). Выключение архивирования дает слева и справа от графика пустые поля (разумеется если графики следуют по времени не слишком часто).
В примере для переменной используется возрастающая последовательность типа пилы. Генератор пилы дает примерно 20 отсчетов в секунду и работает после запуска ограниченное время (иначе графики "пилы" пойдут сплошным потоком :-\).
Устанавливаются порог начала измерения и начальное значение генератора. При маленькой разнице от момента запуска генератора до момента начала измерения могут получится два близко расположенных на тренде графика.   

39
Ваши вопросы / Re: Создать Амперметр
« : 05 Мая 2024, 08:35:25 »
   Здравствуйте.

  В Simple-Scada можно реализовать стрелку, а в качестве собственно стрелочного прибора использовать пользовательское изображение (да получится амперметр).
Во вложении пример амперметра. Пример построен с использованием шаблонов.
Шаблон имеет подстановки: измеряемая переменная, полный угол отклонения стрелки и внутренний радиус. Последние два параметра исключительно для правильного совмещения изображения и стрелок, и при желании могут быть забиты в объект изображение.
Стрелка состоит из двух тонких прямоугольников, представляющие радиальные сегменты с одинаковым внутренними радиусами и различными наружными. Для вращения такого объекта необходимы следующие параметры: координаты центра вращения, наружный радиус, высота объекта и угол поворота. В этом случае для всех "стрелок" достаточно одного универсального скрипта по изменению измеряемой переменной.
Угол поворота вычисляется из значения измеряемой величины, в пределах минимума и максимума переменной для полного угла отклонения стрелки. Высота объекта есть собственное свойство. Координаты центра вращения определяются при инициализации по одной из стрелок, которая должна быть вертикальна, а ее вертикальная проекция проходит через предполагаемый центр вращения стрелки прибора. Аналогично и для наружного радиуса, при инициализации он вычисляется как высота стрелки плюс внутренний радиус.
Файл примера не содержит графику прибора, и предварительно должен быть считан в пользовательские изображения из вложения предыдущего сообщения.

40
   Здравствуйте.

  Если под исторической таблицей Вы понимаете что-то похожее на "Периодический отчет", но непосредственно на клиенте, то построение такой таблицы требует заметного времени.
  Задаются период просмотра и число интервалов. Копия исторической таблицы предварительно накапливается в БД при циклическом обращении к стандартным функциям извлечения значений переменной из архива.
  Пример небольшой статической таблицы (в смысле фиксированного набора переменных для которого не требуется горизонтальный скролл) во вложении.
  Для удобства просмотра можно добавить возможности выбора переменных, перестановку столбцов, горизонтальный скролл и вычисление значения переменной в интервале по своим правилам.

41
Ваши вопросы / Re: Расписание. Schedule
« : 28 Апреля 2024, 18:07:15 »
  Здравствуйте.

Самодельный способ реализации зависит от количества интервалов, кванта интервала, способа хранения данных, вида отображения состояния и т.д, например:
- предполагая, что для интервалов достаточно точности в 1 мин, в качестве метки времени можно использовать целочисленное значение (при некотором увеличении количества вычислений можно и в секундах);
- хранение данных об интервалах БД (MySQL), файл, набор виртуальных переменных при малом числе интервалов;
- интервалы не перекрываются (оно конечно можно и перекрыванием разобраться, однако собственно управление может оказаться сложнее остального проекта). Включение осуществляется в начале минуты, а выключение в конце, что для смежных интервалов означает отсутствие провалов управления. Это актуально для смежных интервалов для разных суток (например, включили в среду, а выключили в пятницу).
- для каждого интервала можно установить своё оповещение в пределах 1-255 минут, значение 0 - без оповещения;
- использование графики объекта "Расписание" требует для отображения интервала одного объекта и еще одного объекта для ненулевого оповещения, в данном примере таких объектов 128, т.е. минимально 64 интервала - самое существенное ограничение.
Для управления используется таблица, заполняемая из БД. Для упрощения проекта (и снижения информативности) можно заменить графику объекта "Расписание" на группу окон с текущими параметрами.
Во вложении пример (и только пример без тщательной проверки) проекта на неделю, включающий три части: редактирование интервалов в БД, отображение процесса на основе графики объекта "Расписание" и получение текущих значений включения/выключения и оповещения.


42
    Здравствуйте.

... Агрегаты должны запускаться и останавливаться по ранее созданному маршруту с определенным интервалом времени...
  Simple-Scada может обеспечить управление агрегатами с шагом длительности в 1 сек и разбросом длительности в пределах 1-2 сек.
  1. Варианты независимого управления агрегатами с возможностью настройки (по усложнению реализации).
- маршрут на сутки или неделю - объект "Расписание", маршрут привязан к началу суток/недели;
- циклический (фиксированные времена включенного и выключенного состояния агрегата) - скрипт по таймеру 1 сек;
- последовательность временных меток изменения состояния агрегата с единым таймером. Для фиксированного маршрута - массив констант, для изменяемого - файл или база данных.
  2. Зависимая работа группы агрегатов - решение существенно зависит от характера взаимодействия агрегатов. Например, к одному "Расписанию" можно подключить несколько агрегатов, работающих синхронно или с настраиваемыми задержками.
Во вложении пример для первых двух вариантов независимого управления.

43
  Здравствуйте.

...Есть большое количество однотипных агрегатов у которых 8 переменных по которым определяется аварийное и рабочее состояние. Задача заключается в создании шаблона который менял цвет в зависимости от 5 переменных, в шаблонном окне по нажатию кнопки сбрасывались 4 булевские переменные, ...
Как правильно заметили разработчики Simple-Scada, то что можно следует загонять в ПЛК. Однако, если такой возможности нет, а количество агрегатов большое, то можно использовать шаблоны.
При проектировании шаблона следует стремиться к минимуму подстановок, количеству и объёму скриптов. Собственно подстановки шаблона сводятся к подстановкам в объекты этого шаблона.
Минимальный набор подстановок объекта включает основную и дополнительную переменную (имена переменных), свойства Tag (целое число) и Hint (строка). По изменению переменных возможен вызов соответствующих скриптов.
Для минимизации подстановок переменных следует использовать для каждого агрегата однотипные наборы имен, включающие поле номера агрегата, тогда единственной подстановкой будет только номер агрегата.
Пример построения шаблона с тремя отображаемыми отдельными параметрами и некоторой групповой логикой от 5-ти булевых переменных (упрощенная модель координатного стола: пуск/стоп, выход за границы, координаты):
- для отображения параметров используются три объекта "Поле" с подстановкой основной переменной, скрипт не требуется;
- три из 5-ти булевых переменных используют подстановку в дополнительные переменные объектов "Поле", а две оставшиеся подстановку в переменные объекта "Текст". Т.е. шаблон содержит четыре объекта с однотипными именами TempObj_<i=1..4>.
Булевы переменные по изменению (основной и дополнительной) собираются в вектор скриптом:
Код: (delphi)
var i, j: integer;
begin
  j := SetBit(0, 0, GetTemplateObject('TempObj_1').AsBool);   // младший бит вкл./выкл.
  for i := 1 to 4 do
    with GetTemplateObject('TempObj_' + IntToStr(i)) do
      j := SetBit(j, i, VariableEx.AsBool);              // собрать весь вектор
// интерпретация вектора - по таблице, case - оператором или набором условных операторов
end.
 
Во вложении пример для 4-х моделей агрегатов, которые связаны через встроенный OPC UA сервер собственно с шаблонами.

44
   Здравствуйте.

... Из минусов только то, что надо пройтись по всем экранным формам, где используется этот шаблон и "ручками" вбить номер кнопки, которая должна подсвечиваться.
  Определить, что кнопка должна подсвечиваться, можно по совпадению владельца и страницы перехода. В шаблоне редактируются ссылки на страницы и заголовки кнопок.
  А "ленивым" можно не заморачиваться связкой кнопок и страниц, достаточно считать, что порядок расположения кнопок соответствует порядку экранных форм (страниц/подстраниц). В шаблоне редактируются только заголовки кнопок.
  Пример во вложении.

45
  Здравствуйте.

 Один из вариантов реализации задачи:
- измерение интервала времени по разности значений даты-времени на концах интервала;
- условием записи в таблицу является превышение на 1 градус порогового значения, которое увеличивается на 1 градус после записи в таблицу;
- запись в таблицу осуществляется по индексу, который увеличивается на 1 после каждой записи.
Пример с моделью линейно возрастающей температурой во вложении.

 Это только пример. Модель специально выбрана так, что значения температуры вещественные числа, причем разность с пороговым (целочисленным) значением возрастает.
Реальный проект определяется (тех)заданием и, возможно, придётся интерполировать временной интервал или использовать базу данных.

Страницы: 1 2 [3] 4 5 ... 15