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

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

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

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


Темы - gaargot1

Страницы: [1]
1
Здравствуйте.
Подскажите пожалуйста, можно ли в отчёте получить следующее:
На пример есть периодический источник данных.
В этот источник добавлена переменная с типом обработки "максимум", получить "время".

Я могу получить значение другой периодической переменной, которое было в то время, которое мы получим в качестве результата из первой переменной?

2
Здравствуйте. Может кто знает, как победить такой эффект.
Есть задача включать и отключать кнопки по времени.
По нескольку десятков кнопок в проекте скады и соответственно переменных в каждой кнопки в ПЛК100.
При достижении времени при помощи перебора отправляю в переменные 1 либо 0.

В результате произвольно несколько штук либо не включаются либо не отключаются.

Вызов процедуры перебора из посекундного скрипта:
Код
if TimeToStr(now)='17:00:00' then
  begin
   AllFeeders('PLC8_plc_prg_stp',1,32);
   AllFeeders('PLC9_plc_prg_stp',1,32); 

Перебор происходит в глобальном модуле:
Код
procedure allfeeders(aPrefix:string;StartStop:byte;aK:integer);
var
i   :integer;
aVar:TM_Variable;
begin
for i:=1 to aK do
  begin
  aVar := GetVariableByName(aPrefix+intToStr(i));
  if aVar <> nil then aVar.value:=StartStop;
  end;
end;
     

3
Здравствуйте. Что-то не могу разобраться, почему так много строк выводится в отчете.
Есть переменные, архивируются по изменению.
Зона нечуствительности 1%
В отчёте выводятся строки вообще без изменений.

4
Подскажите кто в курсе. Куда тут нажать, что бы появилась внизу вкладка "словарь" как в инструкции.
Про инструкцию я знаю, нет у меня таких вкладок и пунктов, как в инструкции

5
Ваши вопросы / Работа функции startPing
« : 02 Апреля 2020, 10:52:53 »
Здравствуйте. Можете посоветовать, чё с этим делать?
При старте проекта начинаю пинговать ПЛК.
Код: (delphi)
...
  StartPing('хххххххххх',5000,Subpage1);
  StartPing('хххххххххх',10000,Subpage2);
  StartPing('хххххххххх',5000,Subpage3);
...
Процедура обрабатывающая результат выглядит так:
Код: (delphi)
begin
if PingData.Sender = nil then Exit;

    if PingData.Sender is TM_SubPage then
      with PingData.Sender as TM_SubPage do
        begin
          if PingData.Result then
            Color:=clNone                 //есть пинг
              else
                 begin
                  Color:=clRed;           //нет пинга
                  crash_(GetSubpageByName(Name));
                 end;
        end
end.
Одна из 15 опрашиваемых плк вызывает пару раз в минуту срабатывание "отсутствия пинга". Увеличивал таймаут, результат тотже. Во вложении пинг этой плк. Самые долгие ответы - 10Мс.


6
Здравствуйте, подскажите, как проинициализировать массив из строк именно объявленный в редакторе.
Пытаюсь:
Код
pathtosound.value[0]:='Цех3.ogg';
Сервер показывает "ошибка в скрипте Invalid argument"

Код
pathtosound[0].value:='Цех3.ogg';
Компилятор говорит: Класс TM_variable does not have a default property

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