SCADA-система Simple-Scada

[Simple-Scada]

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

Да, все верно. Если объектов "Текст", для которых нужно изменять цвет несколько, то лучше написать один универсальный скрипт и использовать его для всех объектов.

begin
  if Sender is TM_Text then     // проверяем, что Sender это текст
    with Sender as TM_Text do   // приводим Sender к типу "TM_Valve"
      case AsInt of   // меняем цвет в зависимости от значения переменной объекта
        0 : Color := clGray;
        1 : Color := clGreen;
        2 : Color := clYellow;
        3 : Color := clRed;
      end;
end.

Другие примеры универсальных скриптов можно найти по ссылке.

[stanislau]

А можно ли извлекать из числа сразу два бита?

var
  aBool: Boolean;
begin
  { получить значение 0-ого и  1-ого бита переменной "VarName" }
  aBool := GetBit(VarName.Value,0..1);   
end.

[capzap]

А можно ли извлекать из числа сразу два бита?

var
  aBool: Boolean;
begin
  { получить значение 1-ого и  2-ого бита переменной "VarName" }
  aBool := GetBit(VarName.Value,1..2);   
end.

Важно! В скриптах Simple-Scada 2 используется Object Pascal компилятор. Обо всех командах и операторах присущих языкам Pascal/Delphi можно прочесть в интернете на сайтах связанных с языками Pascal/Delphi. Например, описание типов данных и ключевые слова.

те же самые команды что и в ОЛ: смещения и маски работают, ни каких проблем получить сразу два бита нет

[Игорь Владимирович]

ребята, можно ли печатать командой PrintClient выделенную область?

[Simple-Scada]

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

Нет, PrintClient печатает активную страницу целиком. Функций печати произвольной области нет.

[Игорь Владимирович]

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

Нет, PrintClient печатает активную страницу целиком. Функций печати произвольной области нет.

а настроить горизонтально печать можно ? в настройках тока выбор принтера и все

[Simple-Scada]

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

[ryuraa]

Здравствуйте
не работает

// имя Volt_OnDataChange
// Napryazhenie_DC данные с ОРС
// Volt переменная

begin
  volt.  Value := (Napryazhenie_DC.  Value * 100) / 142;

end.

где ошибка?

[Simple-Scada]

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

Что именно не работает? Не компилируется скрипт? Или компилируется, но не выполняется? Во время работы проекта в журнале сервера появляются ошибки связанные со скриптами? Какие типы данных имеют переменные volt и Napryazhenie_DC?

[ryuraa]

Не вычисляет всегда в поле 0. (с OPC 290 int16) ставлю переменную Napryazhenie_DC в поле выдает 290 ставлю volt выдает 0
Компилируется.
Все Integer.
Ошибок нет.