1
Ваши вопросы / Re: Вопросы по скриптам в Simple-Scada 2
« : 24 Сентября 2024, 12:48:19 »
Не работает функция RunDelay и нет Выполнена задержка в скриптах. Данная функция была удалена ?
Официальный форум Simple-Scada.
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Добрый день!Здравствуйте.
Прошу помощи.
Требуется скрипт.
присвоение переменной DeltaT.value разницы T1.Value через каждые 10 секунд.
const
INTERVAL = 10; // Интервал таймера 10 сек
begin
vrTimer.Value := vrTimer.Value + 1; // накапливаем секунды в vrTimer
// если прошло больше, чем INTERVAL секунд с последнего срабатывания таймера
if vrTimer.Value >= INTERVAL then
begin
// код размещенный здесь будет выполняться каждые 10 секунд
DeltaT.Value:= T2.Value - T1.Value; // присваиваем переменной DeltaT.Value результат вычисления T2.Value - T1.Value
vrTimer.Value := 0; // обнуляем счетчик
end;
end.
begin
if DataSet.Tag = 8 then // если набор данных помечен тегом 8
begin
comboBoxIdDriver.Clear; // очищаем список список
if DataSet.IsEmpty then Exit; // прерываем выполнение, если набор данных пуст
while not DataSet.EOF do // проходим в цикле по всем строкам полученного набора данных
begin
comboBoxIdDriver.AddItem(DataSet.Fields[0].AsStr); // добавляем строку из первой колонки набора данных в список comboBoxDriver
DataSet.Next; // переходим к следующей строке набора данных
end;
end;
end.