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

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

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

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


Сообщения - Ragnarok

Страницы: [1]
1
Кстати, да. Так лучше. Так и сделаю

2
Создаем скрипт с запуском по изменению переменной.
Это не совсем то, что нужно. Например:
Код: (delphi)
begin
    if Variable.AsInt = -1 then
       text1.FontColor := clRed;
end.
Переменная стала -1, скрипт выполнился и цвет текста стал красным. Переменная стала 0, но цвет текста по-прежнему красный. Если делать так:
Код: (delphi)
begin
  if Variable.AsInt = -1 then
    text1.FontColor := clRed
  else
    text1.FontColor := clGreen;
end.
тогда переменная равна -1, цвет изменился, но другая переменная изменила значение, скажем стала 0, цвет меняется на зеленый, хотя одна из переменных по-прежнему равна -1.

Для себя сделал по-другому. Секундный скрипт с кодом:
Код: (delphi)
begin
  if (aVar1 = -1) or (aVar2 = -1) or (aVar3 = -1) or (aVar4 = -1) or (aVar5 = -1) or (aVar6 = -1) then
    Text1.fontColor := clRed
  else Text1.FontColor := clBlack;
end;
Теперь цвет красный, если хотя бы одна из переменных равна -1.

3
Помогите с кодом. Есть 6 переменных типа Smallint. Задача: если значение хотя бы одной переменной равно -1, то должно выполниться действие, изменить цвет или вывести сообщение. Неважно какое действие, важен сам скрипт.

4
Добрый день!

Почему в настройках редактора указано 12 цветовых схем, в списке методов редактора скриптов 11, в справке тоже 11?

5
Ошибки / Re: "Мелкие" ошибки
« : 20 Февраля 2018, 09:22:47 »
Добрый день!

Есть код:
Код: (delphi)
var
  aText: TM_Text;
  aName: string;
  halfTag: integer;
  TagText: UTF8string;
begin
  if Sender is TM_Text then
    begin
       aText := Sender as TM_Text;
       halftag := Trunc(aText.Tag div 10);
                                             
   case halftag of
      0: TagText := "Error";
      1: TagText := "Колонка 1  ";
      2: TagText := "Колонка 2  ";
      3: TagText := "Колонка 3  ";
    end;

  Window1.Title := TagText + aText.Text;
end;

end.
Результат на скриншоте 1. Обратите внимание на заголовок окна. Но, если из последней строки кода убрать TagText, оставив
Код
Window1.Title := aText.Text;
то с заголовком окна все в порядке (скриншот 2).
Версия: последняя демо-версия, выложенная на сайте.
Проект во вложении...

6
Ошибки / Re: "Мелкие" ошибки
« : 25 Августа 2017, 00:14:42 »
Здравствуйте!
Не знаю, может было может нет.
Если принтером по умолчанию выбран Microsoft XPS, то имеем баг: открываем сообщения, нажимаем печать, появляется окно Сохранить файл как..., нажимаем отмена и клиент закрывается с ошибкой

7
Здравствуйте!

Я делал так:
aInt_Est - количество секунд.

Код
Text1.Text := IntToStr((aInt_Est.Value div 3600) div 24) + ' дней ' +  IntToStr((aInt_Est.Value div 3600) mod 24) + 'часов ' + IntToStr((aInt_Est.Value mod 3600) div 60) + 'минут';

8
Беда в том, что на некоторых станциях уже используется Simple SCADA 2. Запустить второй клиент невозможно, через виртуальную машину - неудобно, внедрять программу в существующий проект - нежелательно.

9
Доброго времени суток!

Есть задача: написать программу мониторинга времени работы оборудования. Например, включился двигатель, запустился таймер. По прошествии определенного времени, выводится сообщение о необходимости обслуживания. Провели обслуживание - поставили отметку - таймер сбросился. Эта часть сделана, проект запущен на отдельном компьютере. Это очень неудобно, т.к. чтобы поставить отметку нужно добираться до этого компьютера. Поэтому эту программу нужно разнести на все операторские станции. Но как это сделать я не представляю, т.к. на станциях используются разные контроллеры и разные системы визуализации.

Как вариант можно на каждой станции сделать Excel'евский файл, связать его с Simple SCADA и выводить время работы, оставшееся время, дату обработки и т.д, но для этого придется полностью переделывать существующий скрипт.


10
Ошибки / Re: Сохранение настроек
« : 20 Июня 2014, 15:44:44 »
Спасибо за оперативный ответ. И только что обнаружил, что если в имени проекта есть знак *, то при сохранении проекта редактор вылетает с ошибкой.

11
Ошибки / Сохранение настроек
« : 20 Июня 2014, 15:42:23 »
При повторном запуске, почему-то сбрасываются выставленные ранее настройки.

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