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

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

Автор Тема: работа дискретной задвижки  (Прочитано 8149 раз)

sss13

  • Новичок
  • *
  • Сообщений: 1
    • Просмотр профиля
работа дискретной задвижки
« : 26 Мая 2015, 07:13:06 »
не могу поменять свойства дискретной задвижки (цвет,прозрачность).не могу привязать к задвижке 2 тега : 1) концевик закрытой задвижки 2)концевик открытой задвижки.  в руководстве отсутствует описание значений тегов дискретной задвижки (открыто, закрыто,авария)

Simple-Scada

  • Администратор
  • *****
  • Сообщений: 2996
    • Просмотр профиля
    • Simple-Scada
Re: работа дискретной задвижки
« Ответ #1 : 26 Мая 2015, 08:29:25 »
Здравствуйте.

Компонент "Заслонка" работает следующим образом:
  • тег равен 0 - заслонка неактивна (серого цвета)
  • тег равен 1 - заслонка открыта (зеленого цвета)
  • любые другие значения тега - заслонка в аварийном состоянии (красного цвета)

Сейчас у неё нет свойств цвета и прозрачности для установки вручную. Если хотите можете использовать для этих целей компонент "Изображение" и своё изображение заслонки. Для изображения можно менять и цвет и прозрачность.

Вячеслав

  • Новичок
  • *
  • Сообщений: 20
  • mgupi
    • Просмотр профиля
Re: работа дискретной задвижки
« Ответ #2 : 27 Июля 2022, 10:40:38 »
Здравствуйте! Никак не разберусь как менять состояние задвижки с изменением цвета.
Допустим под состояние задвижки выделил переменную К1, которая в зависимости от состояния двух тегов должна принимать значение от 0 до 2. Но скрипт выдает ошибку, вроде переменная К1 не может изменяться скриптом.
Код: (delphi)
begin
 if (ID1_L1_fed.AsInt= 0) and (ID1_R1_fed.AsInt> 40) then K1.AsInt:=1;
end.
« Изменён: 27 Июля 2022, 11:33:22 от Simple_Scada »

Simple_Scada

  • Администратор
  • *****
  • Сообщений: 1165
    • Просмотр профиля
Re: работа дискретной задвижки
« Ответ #3 : 27 Июля 2022, 11:40:56 »
Здравствуйте.

Для записи значения в переменную, нужно использовать свойство Value. Например:
Код: (delphi)
begin
 if (ID1_L1_fed.AsInt = 0) and (ID1_R1_fed.AsInt > 40) then K1.Value := 1;
end.

Также, здесь ведется обсуждение версии Simple-Scada 1.3.3. Вопросы по версии Simple-Scada 2 можно задать в соответствующем разделе форума.
« Изменён: 27 Июля 2022, 15:02:57 от Simple-Scada »

Вячеслав

  • Новичок
  • *
  • Сообщений: 20
  • mgupi
    • Просмотр профиля
Re: работа дискретной задвижки
« Ответ #4 : 27 Июля 2022, 14:25:10 »
 :)Спасибо все заработало.