Вопросы по скриптам в Simple-Scada 2

[Andy]

Добрый день.
Решил попробовать свести данные по одному узлу в сводную таблицу, использовав в редакторе соответствующий элемент "Таблица".
Вопрос вот в чём- Можно изменить фон определенной ячейки с переменной в зависимости от ей значения (1-зеленый. 0-красный)?
Одна переменная может говорить, что  устройство работает "1" - все ок..зеленое.
Другая же сообщает об аварии "1" - в этом случае красным красить.
У меня получилось только все ячейки  скопом покрасить.
Спасибо.

[Neskad]

Да, можно, оказывается. 

Код: ("delphi")

var
  i, j, maxi, maxj: integer;
  cell: TM_TableCell;
begin
  maxi:= Table1.ColumnsCount - 1;
  maxj:= Table1.Columns[0].CellsCount - 1;
  for i:= 0 to maxi do
    begin
      for j:= 0 to maxj do
        begin
          cell:= Table1.GetCell(i, j);
          cell.Color:= RandomColor;
        end;
    end;
end.

[Andy]

Да, можно, оказывается. 

Большое спасибо! Table1.GetCell(i, j) -ключевой момент для меня был.  Все получилось.
Еще один вопрос- Как правильно написать код, чтоб при нуле разом и цвет поменялся и текст?

Код

  case AsInt of
        0 : begin
 Table1.GetCell(1, 0).Text := 'Stop';
            Table1.GetCell(1, 0).Color := clRed;

end;
Разобрался, заработало.
Спасибо.

[Simple_Scada]

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

Как правильно написать код, чтоб при нуле разом и цвет поменялся и текст?

Для этого нужно использовать конструкцию begin...end:

Код: (delphi)

case AsInt of
      0 :
      begin
        Table1.GetCell(1, 0).Text := 'Stop';
        Table1.GetCell(1, 0).Color := clRed;
      end;
end;

[lipvasko]

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

[pan2000]

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

  Здравствуйте!
На мой взгляд, наиболее оптимальное разрешение спорных вопросов - использование исключений, в Вашем случае:

Код: (delphi)

begin
  try
    Text1.Text := IntToStr(StrToInt(aSTR.AsStr));  // попытались
  except
    Text1.Text := 'Увы, это не переводимая игра слов C(К/ф""Бриллиантовая рука"")';  // не удалось
  end.            

aStr - внутренний тег типа строка.
Пример во вложении (!)
 

[Simple-Scada]

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

Ещё часто подходит функция StrToIntDef, которая в случае неудачи возвращает заданное вами значение. Например:

Код: (delphi)

var
  I: Integer;
begin
  I := StrToIntDef(myString, -999); // в случае неудачи вернуть значение -999
  if I = -999 then
    Log_Add('Ошибка!');
end.

[pan2000]

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

Ещё часто подходит функция StrToIntDef, которая в случае неудачи возвращает заданное вами значение. Например:

Значение по умолчанию - это частный случай для ограниченного диапазона значений. Петрову поможет, а Сидорову - нет. Чем try, как общий случай, то плох?
Года три назад try - это был единственный вариант борьбы с отладкой по TeamViewer, когда проект на удаленной машине вставал 'раком' по завершении цикла отладки.

[Simple-Scada]

Чем try, как общий случай, то плох?

Почему плох? Мы же не случайно написали: "Ещё часто подходит функция StrToIntDef". Про "try..except" не стали писать ещё раз, т.к. Вы описали этот вариант в пред. сообщении. Но минус у "try..except" есть, он состоит в том, что каждый раз когда блок исключения будет выполняться, в журнал сервера будет выводиться аварийное сообщение, что может помешать просмотру других сообщений, если таких случаев будет много. Для StrToInt это будет сообщение "Ошибка в скрипте "имя_скрипта" в строке N. 'text' is not a valid integer value".

[Den]

Привет всем.
Купил версию Про ради
1. перекачки тэгов из теплокорректоров Логика в s7-1511
2. Телеграм-уведомлений.
3. Красивых отчётов с автоматической рассылкой по емейл.

Вопрос по отправке телеграм-сообщений: можно ли вставлять переменную в текст сообщения?

[Simple-Scada]

Вопрос по отправке телеграм-сообщений: можно ли вставлять переменную в текст сообщения?

Конечно, например:

Код: (delphi)

begin
  SendTelegram('Значение переменной vrMyVar равно ' + vrMyVar.AsStr);
end.

[Andy]

Добрый день.
Имеется переменная  с опс сервера, которую нужно откорректировать -  прибавить 4 и результат вывести, например, в поле Field1.
Подскажите как это можно реализовать. 
Спасибо.

[Den]

Да.
Переменная в текст сообщения вставляется, в моём случае длинный String,
и норм отправляется.
Спасибо.

[Simple_Scada]

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

Andy, допустим переменная с OPC-сервера будет с именем "MyVar", а откорректированная переменная с именем "MyVarCorrect". Для решения задачи нужно создать скрипт с типом события "Изменились переменные", добавить в него переменную "MyVar" как это описано здесь и написать такой код:

Код: (delphi)

begin
  MyVarCorrect.Value := MyVar.Value + 4;
end.

Теперь скрипт будет выполняться при каждом изменении переменной MyVar и в переменную MyVarCorrect будет записываться значение увеличенное на 4. Для вывода полученного значения, переменную MyVarCorrect можно связать с нужным Полем.

[Andy]

Спасибо! Сработало.