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

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

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

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


Сообщения - msigx680

Страницы: [1]
1
Здравствуйте! Подскажите пожалуйста, как реализовать опрос OPC сервера по расписанию (времени)? Например с 12-00 до 13-00 опрос запрещен, а в остальное время разрешен. Или опрос по времени отдельных переменных.

2
Здравствуйте! Помогите пожалуйста со скриптом уровня (есть переменная уровень (шкала), задача менять цвет от значения в одном скрипте):
Код
{ условия для уровня }
  begin
  if Sender is TM_Level then          // проверяем, что Sender это уровень
     with Sender as TM_Level do        // приводим Sender к типу "TM_Level"
        if AsInt < 70 then             // если перем. меньше 70, то
          BackgroundColor := clRed    // изменить цвет фона уровня на красный
             else                          // иначе
               BackgroundColor := clBlue; // изменить цвет фона уровня на синий
                end begin

                if AsInt > 98 then             // если перем. ,больше 98, то
                   BackgroundColor := clRed    // изменить цвет фона уровня на красный
                   else                          // иначе
               BackgroundColor := clBlue; // изменить цвет фона уровня на синий
end.

3
Здравствуйте! Подскажите как правильно решить задачу:
Считываю данные из счетчика Эл. Энергии в тренд, как писать в тренд с учетом коэффициента трансформации, т.е. значение переменной умножить на число и его уже писать в тренд?

4
Добрый день! Спасибо большое за ответ!
Цитировать
связь переменных in32scada и набора myvar<i> осуществляет скрипт "Изменилась переменная in32scada"
Так заработало!
var i: integer;
    aVar: TM_Variable;
begin
for i := 0 to 31 do begin
   aVar := GetVariableByName('alarmstopnor48');
   if aVar <> nil then aVar.Value := GetBit(Variable.AsInt, 0);     //1

   aVar := GetVariableByName('avtomat_nor48');
   if aVar <> nil then aVar.Value := GetBit(Variable.AsInt, 1);     //2

5
Здравствуйте! Подскажите пожалуйста по такому вопросу: В OPC сервер отдаю переменную "in32scada" типа DWORD.
Добавляю ее в скаду, создаю внутреннюю переменную "myvar1" типа BOOL. Создаю обьект, к нему привязываю "myvar1".
Создаю универсальный скрипт, в OPC изменения значения видны, но в скаде не работает, что не так?
Задача передать 32 значения в скаду одной переменной, и на каждое создать определенные скрипты для индикации состояний.

begin
  if Sender is TM_Image then        // сначала убедимся, что скрипт вызван объектом изображение
    with Sender as TM_Image do      // далее будем работать с объектом Sender, как с изображением
      begin
          if GetBit(in32scada.AsInt,1) = true
             then FlashColor := clGreen // включить мигание объекта зеленым цветом
    else
        Color := clBlack;
          end;
   end.     

6
Здравствуйте! На первых страницах темы был пример реализации таймера наработки оборудования https://simple-scada.com/forum/index.php?topic=145.30
Но он в последней версии не открывается, может у кого есть пример реализации?

Страницы: [1]