Интерфейс к Matlab, LabvIew, MS Excel

Описываемый ниже интерфейс служит для интеграции серверов стандарта ОРС Data Access с клиентами, не поддержи­вающими стандарт ОРС, но поддерживающими OLE. Он является буфером, преобразующим стандартные вызовы ОРС в стандартные вызовы автоматизации OLE. Например, он может быть использован для получения данных от ОРС сервера для программ MATLAB, LabView, MS Office.

Интерфейс объекта состоит из четырех функций:

1. OpcOpenServerQ - для создания соединения с ОРС сервером;

2. OpcReadItem() - для чтения данных на входе устройства;

3. OpcWriteItem() - для записи данных в устройство;

4. OpcCloseServerQ - разрыв связи с сервером.

Функция OpcOpenServer() создает соединение с выбранным ОРС сервером на выбранном компьютере. Она имеет сле­дующий синтаксис (на языке Visual Basic):

Boolean OpcOpenServer(servername as String, serverlocation as String),

где servername - имя сервера (NLopc.Server), serverlocation - имя компьютера в сети, на котором расположен ОРС сервер. Возвращается значение True в случае успеха, False в случае неудачи.

Функция OpcReadltem() предназначена для чтения данных из указанного тега сервера, соединенного с объектом ОРС Wrapper. Service. Прототип функции на языке Visual Basic имеет вид

Variant OpcReadltem(itemname as String).

Здесь tagname - полное имя тега сервера ОРС. Полное имя тега состоит из перечисления родительских групп тега, разделенных символом «.» и имени тега. Так, например, для тега «Vinl» группы «NL-8AI» имя тега будет NL-8AI.Vinl. Возвращаемое значение - прочитанное значение тега.

Функция OpcWriteItem() предназначена для записи данных в указанный тег сервера, соединенного с объектом OPCWrapper. Service. Прототип функции на языке Visual Basic:

OpcWriteltem (itemname as String, value as Variant)

Пример использования функции в Visual Basic и VBA:

Sub Func()

Dim obj As Object

Dim rd As Variant

Dim wr As Variant

Set obj = CreateObject("OPCWrapper.Service") создание соединения с объектом OPCWrapper. Service

obj.OpcOpenServer "NLopc.Server","" соединение объекта с сервером NLopc.Server

rd = obj.OpcReadltem "In" 'вместо In должно быть имя тега сервера wr = 1

obj.OpcWriteltem “Qut”, wr 'вместо Out должно быть имя тега сервера

obj.OpcCloseSerwer 'отсоединение объекта от сервера

Setobj=Nothing 'разрывается связь объектной переменной obj с объектом

End Sub

Дата добавления: 2013-12-13