Добрый день! Вопрос следующий. Мне нужно реализовать таймер времени (обьект Текст - txtTime) в формате минуты:секунды, привязанный к переменной с OPC-сервера (выводится в Скаде в обьекте Поле = field1). При установке переменной в 1 - запуск счета и останов таймера при значении переменной 0. Следуя аналогии DemoProject, в событии OnDataChange обьекта field1 пишем скрипт:
if field.value :=0 then
vrTimerState.Value := 0;
else
vrTimerState.Value := 1;
Далее пишем скрипт OnSecondTimer:
begin
if vrTimerState.ValueAsInt = 1 then
txtTimer.Text := TimeToStr(Now - vrTime.Value);
end.
Т.е индикация идет каждую секунду (только добавляются еще часы, которые мне не нужны)
А вот где сам счет идет переменной vrTime - я так и не понял:
vrTime.Value := IncSecond(Now, -vrIntervalInSec.ValueAsInt);
И можно ли убрать из индикации Часы? Спасибо