Здравствуйте.
Для решения данной задачи можно выполнять проверку качества нужной переменной, используя свойство "IsGoodQuality (https://simple-scada.com/help/script/varisgoodquality.html)", и в зависимости от качества запускать/останавливать таймер, используя таймерные процедуры (https://simple-scada.com/help/script/timers.html). Выполнять проверку качества переменной можно в скрипте с типом события "Изменились переменные (https://simple-scada.com/help/script/changed-the-variables.html)". Пример работы с таймерами можно найти в демо-проекте -> страница "Скрипты" -> "Простые скрипты (1)" -> пример №3.
Пример скрипта:
begin
if Variable.IsGoodQuality = False then // если переменная плохого качества, то
TimerStart(vrLinkTimer, 0) // запускаем таймер по переменной "vrLinkTimer"
else // иначе
TimerReset(vrLinkTimer); // сбрасываем таймер по переменной "vrLinkTimer"
end.
Если время отсутствия связи может быть больше 23:59:59, то его можно выводить в компонент "Текст (https://simple-scada.com/help/manual/text.html)". Для этого компонент "Текст" нужно связать с переменной таймера "vrLinkTimer" и на событие "OnDataChange" (https://simple-scada.com/help/script/by-obj-event.html) написать универсальный скрипт:
var
aSeconds: Int64;
begin
if Sender is TM_Text then // проверяем, что Sender это текст
with Sender as TM_Text do // приводим Sender к типу "TM_Text"
begin
aSeconds := SecondsBetween(0, vrLinkTimer.AsDateTime); // получаем кол-во секунд
Text := SecondsToStr(aSeconds); // переводим секунды в строку вида "чч:мм:сс".
end;
end.
Может в скрипте какая-то неточность? хотя компилятор пропустил. Для таймера создал внутреннюю переменную TimeLerm103, внешняя переменная, время отсутствия связи с которой нужно узнать - Lermont_103.
var
aSeconds: Int64;
begin
If Lermont_103.IsGoodQuality = False then
TimerStart (TimeLerm103, 0)
else
TimerReset (TimeLerm103);
if Sender is TM_Text then // проверяем, что Sender это текст
with Sender as TM_Text do // приводим Sender к типу "TM_Text"
begin
aSeconds := SecondsBetween(0, TimeLerm103.AsDateTime); // получаем кол-во секунд
Text := SecondsToStr(aSeconds); // переводим секунды в строку вида "чч:мм:сс".
end;
end.
В моём случае таймер почему-то сразу обнуляется, хотя ВНЕШНЯЯ переменная приходит с качеством BAD с контроллера, хотя таймер должен считать. На другом объекте, где качество ВНЕШНЕЙ переменной GOOD, при изменении её на BAD таймер так же не начинает отсчёт. В чём может быть ошибка?
begin
If Lermont_103.IsGoodQuality = False then
TimerStart (TimeLerm103, 0)
else
TimerReset (TimeLerm103);
end.
begin
If Serova_451.IsGoodQuality = False then
TimerStart (TimeSerova451, 0)
else
TimerReset (TimeSerova451);
end.
Оба скрипта были созданы с типом события "Изменились переменные"
Описание действий по пунктам:
1. Создаём скрипт с типом события "Изменились переменные (https://simple-scada.com/help/script/changed-the-variables.html)" и добавляем переменную "Serova_451" в список скрипта (https://clck.ru/3GN6TE).
2. Вставляем в него следующий код (без изменений):
begin
if Variable.IsGoodQuality = False then
TimerStartTimeLerm103, 0)
else
TimerReset(TimeLerm103);
end.
4. Для удобства: переходим в "Редактор переменных (https://simple-scada.com/help/manual/variable-editor.html)" и для переменной "TimeLerm103" в свойство "Начальное значение (https://clck.ru/3GN7Aa)" указываем значение, равное 0.
5. Сохраняем и запускаем/перезапускаем проект. Также убедитесь, что Вы запускаете проект не в режиме отладки (https://simple-scada.com/help/manual/rundebugmode.html) с эмуляцией работы OPC-сервера (https://clck.ru/3GN7Mj).
Если разобраться не получится, то присылайте проект на проверку.