Скрипты

Материал из TekonWiki
Перейти к навигацииПерейти к поиску


Данная статья актуальна для версий АСУД.SCADA 1.5.0 а3 (и выше).

ПО АСУД.SCADA позволяет расширить функционал путем написания специальных программный модулей (скриптов) на языке Lua.

Для написания простых скриптов (реализации несложной логики) вы можете воспользоваться приведенными примерами. Для реализации более сложного функционала потребуется знание основ программирования, в этом случае для помощи в написании скриптов вы можете обратиться к специалистам компании Текон-Автоматика.

Поддерживаются спецификации:

В настоящее время отсутствует встроенная в программное обеспечение возможность отладки/компиляции скрипта. Поэтому если при запуске SCADA появляется сообщение с информацией об ошибке Lua, следует проверить правильность написания скрипта.

Скрипты находятся в папке Tekon \ ASUD Scada \ Scada \ scripts \ lvm

  • lvm_entry.lua - загрузчик скриптов - изменять не следует.
  • built-in \ - папка с базовыми скриптами и вспомогательными модулями - изменять не следует
  • custom \ - папка для скриптов пользователей
    • ... \ entry.lua - загрузчик скриптов пользователей

Для создания / редактирования скриптов можно использовать:

Внимание

Скрипты могут быть использованы, например, для преобразования числового значения получаемого от OPC-сервера в строку. При этом следует обратить внимание на особенности представления дискретных сигналов Tekon OPC DA сервером.

Для дискретного датчика, следует проверить настройку Уровень безопасности, в общем случае должно быть значение Обычный (если отображение сигнала происходит только в текстовом поле, без связки с примитивами типа дискретный датчик (дверь, лифт и т.п.), т.к. в противном случае не будет происходить снятия возникшей аварии).

Т.е. если тэг будет связан с:

  • текстовое поле - уровень безопасности следует установить в "Обычный"
  • текстовое поле + примитив - уровень безопасности "Охрана" или "Обычный".

Рассмотрим несколько вариантов применения скриптов в АСУД.SCADA

Примитив Текстовое поле + скрипт (вариант 1)

Задача

Необходимо задать соответствие числовому значению (Тэга1) OPC-сервера некоторое строковое значение (Str1), и отобразить его в АСУД.SCADA.

Например, следующего вида:

  • 0 - насос выключен.
  • 1 - насос включен.

Решение

Сначала опишем скрипт выполняющий соответствующее отображение.

В Блокноте создаем файл pumppwr.lua следующего содержания: 

 
dofile2  ("..\\built-in\\bitwise.lua")

function Pump (val,qual)
 local PumpToStr = 
 { 
 [0] = "Насос включен", 
 [1] = "Насос выключен"
 }
 if qual ~= opc.da.tekon.ItemData.QUALITY_GOOD then
		return "---"
 end
 -- проверяем только на 0 или 1
 return PumpToStr [hasbit_ex(val.Integer,1)]
end

Вначале подключается файл ..\\built-in\\bitwise.lua, в котором описаны функции выполняющие побитовые операции.

dofile2 (в отличии от dofile () позволяет указывать относительный путь к файлу).

Далее описывается функция Pump с двумя входными параметрами

  • val - значение переменной OPC-сервера (тип: Variant)
  • qual - значение качества переменной OPC-сервера (тип: Integer)

Для типа Variant допустимы следующие преобразования 

.Integer - в целое число
.Number  - в вещественное число
.String  - в строку
.Date    - в переменную типа DateTime
.Guid    - в guid

Переменная качества может принимать одно из следующих константных значений 

opc.da.tekon.ItemData.OPC_QUALITY_BAD
opc.da.tekon.ItemData.OPC_QUALITY_UNCERTAIN
opc.da.tekon.ItemData.OPC_QUALITY_GOOD
opc.da.tekon.ItemData.OPC_QUALITY_CONFIG_ERROR
opc.da.tekon.ItemData.OPC_QUALITY_NOT_CONNECTED
opc.da.tekon.ItemData.OPC_QUALITY_DEVICE_FAILURE
opc.da.tekon.ItemData.OPC_QUALITY_SENSOR_FAILURE
opc.da.tekon.ItemData.OPC_QUALITY_LAST_KNOWN
opc.da.tekon.ItemData.OPC_QUALITY_COMM_FAILURE
opc.da.tekon.ItemData.OPC_QUALITY_OUT_OF_SERVICE
opc.da.tekon.ItemData.OPC_QUALITY_WAITING_FOR_INITIAL_DATA
opc.da.tekon.ItemData.OPC_QUALITY_LAST_USABLE
opc.da.tekon.ItemData.OPC_QUALITY_SENSOR_CAL
opc.da.tekon.ItemData.OPC_QUALITY_EGU_EXCEEDED
opc.da.tekon.ItemData.OPC_QUALITY_SUB_NORMAL
opc.da.tekon.ItemData.OPC_QUALITY_LOCAL_OVERRIDE

Обычно достаточно просто проверить со значением opc.da.tekon.ItemData.QUALITY_GOOD.

Таблица PumpToStr определяет взаимное соответствие значения переменной строке.

Проверка значения только первого бита переменной (val.Integer), а не значения val.Integer в целом, связана опять же с представлением дискретного сигнала в Tekon OPC DA сервере.

Далее, сохраняем файл в папке scripts \ lvm \ custom

Открываем в Блокноте файл scripts \ lvm \ custom \ entry.lua и добавляем в первой строке запись

  • dofile2("pumppwr.lua")
dofile2("pumppwr.lua")

function main_custom()

end

Сохраняем файл.

Далее запускаем программу АСУД.SCDA.

Размещаем примитив "Текстовое поле". Задаем его свойства:

  • Тэг - Тэг1.
  • Скрипт \ OnDataChange - Pump

Сохраняем настройки АСУД.SCADA

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

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

Рассмотренный пример можно загрузить здесь

Примитив Текстовое поле + скрипт (вариант 2)

Задача

Помимо задачи примера 1, следует иметь возможность записи в OPC-сервер значения указанного пользователем.

Решение

Данная задача может быть актуальна, например, при диспетчеризации и управлении сторонним оборудованием, подключаемым по протоколу Modbus.

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

Возможности:

  • чтение числового значения
  • преобразование прочитанного значения
  • запись числового значения

Вид окна редактирования:

  • Окно с текстовым полем (для ввода значения)
Удобно при необходимости простого изменения числового значения
  • Окно с выпадающим списком (для выбора значения из списка)
Удобно при изменении значения перечисляемого типа.
Например, как в случае с насосом, в варианте 1.

Сначала опишем скрипт.

В Блокноте следует открыть файл scripts \ lvm \ custom \ gui.lua

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

Переходим в конец файла и ищем строку -- Создание объектов 

-------------------------------------------------------------------------------------------------------------------
-- Создание объектов.....
-------------------------------------------------------------------------------------------------------------------

topc_object0 = topc_string_primitive("Объект Edit", WTYPE_EDIT)

topc_object1 = topc_combo ("Объект ComboBox", WTYPE_COMBOBOX)
-- Нумерация элементов по умолчанию с 1
combo1=
{
[0] = "Выкл",
[1] = "Вкл"
}
topc_object1:Elements (combo1)

topc_object2 = topc_combo ("Объект ComboBox", WTYPE_COMBOBOX)
-- Нумерация элементов по умолчанию с 1
combo2=
{
 [0] = "Отключено",
 [1] = "Запуск",
 [2] = "ДежЛето",
 [3] = "Охлажд",
 [4] = "Вентиляц",
 [5] = "ДежЗима",
 [6] = "Прогрев",
 [7] = "Нагрев",
 [8] = "Обратная",
 [9] = "Замерз",
 [10] = "АНР Тпр Л",
 [11] = "АНР Тпр З",
 [12] = "АНР Тобр Д"
 }
topc_object2:Elements (combo2)

В данном случае создаются объекты:

  • topc_object0 - окно с текстовым полем
  • topc_object1 - окно с выпадающим меню (элементы меню перечислены в combo1)
  • topc_object2 - окно с выпадающим меню (элементы меню перечислены в combo2)

Следует внести изменения в перечисления combo1, combo2 в соответствии с получаемыми данными. По необходимости создать собственные объекты по аналогии.

Сохранить файл.

Далее открываем в Блокноте файл scripts \ lvm \ custom \ entry.lua и добавляем в первой строке запись

  • dofile2("gui.lua")
dofile2("gui.lua")

function main_custom()

end

Сохраняем файл.

Далее запускаем программу АСУД.SCADA.

Размещаем примитив "Текстовое поле 1". Задаем его свойства:

  • Тэг - Тэг1.
  • Скрипт \ LVM объект - topc_object0

Размещаем еще один примитив "Текстовое поле 2". Задаем его свойства:

  • Тэг - Тэг2.
  • Скрипт \ LVM объект - topc_object1

Внимание, в поле Скрипт можно указывать

  • либо LVM объект
  • либо функцию OnDataChange (как указано в примере 1).


Сохраняем настройки АСУД.SCADA

Рассмотренный пример можно загрузить здесь

Анализ изменений сигнала (автомат управления)

Задача

Реализовать выключение канала управления при срабатывании дискретного датчика.

Решение

Рассмотрим пример простого скрипта, реализующего выключение канала управления КУП-RS подключенного к концентратору Мини-КУН номер 210, при срабатывании дискретного входа номер 4 на концентраторе Мини-КУН номер 202.

Предполагаем, что уже существует настройка OPC-сервера, для концентраторов 210 и 202

Создадим текстовый файл с именем avtomat.lua в блокноте следующего содержания: 

 
 -- подключаем нужные файл(ы)
 dofile2  ("..\\built-in\\bitwise.lua")
 -- описываем карту связи Датчик - Канал управления 
 -- тэги просто копируем из свойства Тэг примитива АСУД.SCADA
 descret_autocall_task_map = 
  {
  ["DA.[localhost{188D08EC-72CB-425B-8EA8-EE2308736440}].USB Пульт.202 Мини-КУН.Авария 1"] =
  "DA.[localhost{188D08EC-72CB-425B-8EA8-EE2308736440}].USB Пульт.210 Мини-КУН.КУП Канал 1.Остановка"
  }
 -- в эту функцию будет приходить любые события связанные с изменением состояния датчиков 
 function LocalAvto_OnDataChange(topc_item, topc_itemdata)
  -- проверка данных на валидность
   if topc_item~= nil and topc_itemdata~=nil then
       if  topc_itemdata.Quality ~= opc.da.tekon.ItemData.QUALITY_GOOD  or topc_itemdata.Data ==nil then
        return
   end
  -- запрос значения датчика
  local int = topc_itemdata.Data.Integer 
  -- запрос типа датчика
  local prop = topc_item:GetProperty(opc.da.tekon.Item.ITEM_TYPE) 
  -- проверка того, что датчик дискретный	
  if prop ~= nil and prop.Data.Integer == opc.da.tekon.Item.SENSOR then 
        if descret_autocall_task_map[topc_item.ItemID] ~= nil then		
           -- запрос указателя на канал управления связанный с дискретным датчиком	
           local itemCtrl, bRes = opc.da.tekon.GetItem(descret_autocall_task_map[topc_item.ItemID])
           if (itemCtrl~= nil) and bRes then				
             -- если дискретный датчик активен, выключить канал управления  
             if hasbit_ex (int,1) == 1 then
               local newData = base.Variant(0);
               itemCtrl:AsyncWrite(newData)
            end
           end				
        end
   end	  
  end
 end
 
 -- функция инициализации скрипта
 function InitAvtomat()
  -- подписаться на событие (изменение состояния любого датчика)
  opc.da.tekon.RegisterEventHandler(
     "OPC::DA::TEKON::OnDataChange",
     "LocalAvto_OnDataChange")
  -- подписаться на событие чтение состояния датчика 
  opc.da.tekon.RegisterEventHandler(
     "OPC::DA::TEKON::OnReadComplete",
     "LocalAvto_OnDataChange")
 end

Функция LocalAvto_OnDataChange вызывается

  • один раз при старте АСУД.SCADA при первоначальном получении значений тэгов (событие OPC::DA::TEKON::OnReadComplete)
  • всякий раз при изменении значения любого тэга Tekon OPC DA сервера (событие OPC::DA::TEKON::OnDataChange).

Команды каналу управления могут быть следующие: 

0 - выключить канал управления;
1 - включить канал управления.

Сохраните файл avtomat.lua

Откройте в блокноте файл ..scripts\lvm\custom\entry.lua и внесите следующие изменения: 

 dofile2("avtomat.lua")

 function main_custom()
  InitAvtomat()
 end


Сохраните файл, запустите АСУД.SCADA, логика созданного автомата управления должна работать.

Рассмотренный пример можно загрузить здесь

Канал управления без подключения обратной связи

В общем виде логика работы канала управления в системе АСУД-248, на примере концентраторов КУН + КУП, следующая:

  1. подача команды из АСУД.SCADA на КУН
  2. подача управляющего сигнала c КУН на КУП
  3. контроль включения (выключения) КУП по обратной связи КУП-КУН в АСУД.SCADA
  4. в случае не получения ответа по обратной связи повтор п.1-3 (до 5 раз)

Если наблюдать поведение примитива, например, Лампочка в АСУД.SCADA, то можно отметить три состояния:

  1. состояние выключено (погасшая лампочка)
  2. состояние включаюсь (на примитиве отображается тумблер)
  3. состояние включено (горящая лампочка)

В идеале переход из состояния 1 в 3 занимает несколько секунд.

Однако если есть проблемы с выполнением команды, то примитив долгое время будет отображать состояние 2.

В тоже время если команда фактически выполнилась успешно, но обратная связь КУП-КУН не подключена или произошел обрыв провода - это также визуально отображается долгим состоянием 2, при этом устройство, подключенное к КУП будет несколько раз включаться / выключаться (поскольку программа будет повторно пытаться послать команду).

Т.е. не подключение обратной связи к КУН в общем случае является ошибкой, вызывающей ошибочную визуализацию данных в АСУД.SCADA.

Однако в некоторых случаях, не подключение обратной связи обусловлено спецификой оборудования, например при подключении блока сопряжения с домофоном Цифрал (см. схему подключения):

  • на блок сопряжения c КУН подается кратковременный импульс открытия двери
  • блок кратковременно размыкает замок
  • обратная связь к КУН не подключена

В стандартном варианте настройки примитива канала управления в АСУД.SCADA такая схема приведет к отображению примитива в состоянии 2 сразу после включения, в котором примитив и останется.

Задача

Реализовать следующую логику работы примитива канал управления:

  1. включение
  2. отображение состояния "включаюсь"
  3. перевод примитива в исходное состояние (выключен).

Решение

Для решения задачи воспользуемся модифицированным скриптом из примера 3.

Создадим текстовый файл с именем ..scripts\lvm\custom\domofone.lua в блокноте следующего содержания: 

-- Ниже необходимо указать тэги всех каналов управления, подключенных
-- без обратной связи (например, к блоку сопряжения с Домофоном)
-- нумерация 1,2,3 просто сквозная и не имеет никакого значения.
task_map = 
{
 ["DA.[localhost{188D08EC-72CB-425B-8EA8-EE2308736440}].КУН - 102.Канал управления 1"] = 1,
 ["DA.[localhost{188D08EC-72CB-425B-8EA8-EE2308736440}].КУН - 102.Канал управления 2"] = 2,
 ["DA.[localhost{188D08EC-72CB-425B-8EA8-EE2308736440}].КУН - 212.Канал управления 1"] = 3
}
-- Функция вызывается при изменения состояния любого датчика
function Local_OnDataChange(topc_item, topc_itemdata)
  -- проверка данных на валидность
   if topc_item~= nil and topc_itemdata~=nil then
       if  topc_itemdata.Quality ~= opc.da.tekon.ItemData.QUALITY_GOOD  or topc_itemdata.Data ==nil then
        return
	   end	
   end
  -- запрос типа датчика
  local prop = topc_item:GetProperty(opc.da.tekon.Item.ITEM_TYPE) 
  -- проверка того, что это канал управления
  if prop ~= nil and prop.Data.Integer == opc.da.tekon.Item.CONTROL_CHANNEL then 
    -- проверка что канал управления описан task_map
     if task_map[topc_item.ItemID] ~= nil then 
      -- Значение = 1 ? Канал, находится в состоянии включаюсь ?
      if topc_itemdata.Data.Integer == 1 then 
       -- подождать 1 секунду и сбросить значение в 0
       wx.wxSleep(1)  	   
       local newData = base.Variant(0)
       topc_item:AsyncWrite(newData)
      end
    end 
  end	  
end
 
 -- функция инициализации скрипта
 function InitDomofone()
  -- подписаться на событие изменение состояния датчика
  opc.da.tekon.RegisterEventHandler(
     "OPC::DA::TEKON::OnDataChange",
     "Local_OnDataChange")
  -- подписаться на событие чтение состояния датчика 
  opc.da.tekon.RegisterEventHandler(
     "OPC::DA::TEKON::OnReadComplete",
     "Local_OnDataChange")
 end

Основные изменения, которые необходимо произвести - лишь прописать тэги каналов управления, подключенные к блоку домофона в task_map 

task_map = 
{
 ["DA.[localhost{188D08EC-72CB-425B-8EA8-EE2308736440}].КУН - 102.Канал управления 1"] = 1,
 ["DA.[localhost{188D08EC-72CB-425B-8EA8-EE2308736440}].КУН - 102.Канал управления 2"] = 2,
 ["DA.[localhost{188D08EC-72CB-425B-8EA8-EE2308736440}].КУН - 212.Канал управления 1"] = 3
}

Сохраните файл.

Откройте в блокноте файл ..scripts\lvm\custom\entry.lua и внесите следующие изменения: dofile2("domofone.lua") function main_custom() InitDomofone() end

Сохраните файл, запустите АСУД.SCADA, логика созданного автомата управления должна работать.

Рассмотренный пример можно загрузить здесь



Ссылки

Дискретный сигнал Tekon OPC DA

Вспомогательные файлы *.cpp (пространство opc.da.tekon, базовые типы) можно загрузить здесь


--Alex 12:21, 5 июля 2013 (UTC)

Источник — https://wiki.tekon.ru/index.php?title=Скрипты&oldid=719