Курсовая работа: Разработка модуля для контура управления tic-104

Dim Controllers As PIModule

Dim Tic104 As PIModule

Private Sub CreateTic104()

Set Srv = PISDK.Servers.DefaultServer

Srv.Open (“uid=piadmin”)

Set Controllers = Srv.PIModuleDB.PIModules.Add(“Controllers”)

Set Tic104 = Controllers.PIModules.Add(“tic-104”)

End Sub

На нашем сервере по умолчанию мы создали, на уровне корня, модуль под названием “Controllers.” Затем, в коллекции модулей этого контроллера мы создали модуль “tic-104.”

Доступ к данным временных рядов PI (PIAliases) . Цель состоит в том, чтобы "добраться" до данных. Для этого нам требуются ссылки на семь точек PI, которые составляют этот контроллер (рисунок 4.2). Каждый модуль имеет коллекцию, которая называется PIAliases. Эта коллекция состоит из объектов, каждый из которых имеет тип PIAlias. PIAlias обеспечивает ссылку на точку PI Point через удобное для употребления имя или псевдоним (alias). PI-SDK представляет точку PI через объект PIPoint. Вот код, который это выполняет:

Private Sub CreateTheAliases()

Dim pts(7) As PIPoint

Set Srv = PISDK.Servers.DefaultServer

Srv.Open (“uid=piadmin”)

Set Controllers = Srv.PIModuleDB.PIModules.Item(“Controllers”)

Set Tic104 = Controllers.PIModules.Item(“tic-104”)

‘Создаемссылкинаточки PI

Set pts(1) = Srv.PIPoints.Item(“tic-104.pv”)

Set pts(2) = Srv.PIPoints.Item(“tic-104.sp”)

Set pts(3) = Srv.PIPoints.Item(“tic-104.o”)

Set pts(4) = Srv.PIPoints.Item(“tic-104.i”)

Set pts(5) = Srv.PIPoints.Item(“tic-104.p”)

Set pts(6) = Srv.PIPoints.Item(“tic-104.d”)

Set pts(7) = Srv.PIPoints.Item(“tic-104.m”)

‘Создаем псевдонимы в нашем модуле контроллера

Tic104.PIAliases.Add “ProcessVariable”, pts(1)

Tic104.PIAliases.Add “SetPoint”, pts(2)

Tic104.PIAliases.Add “Output”, pts(3)

Tic104.PIAliases.Add “Integral”, pts(4)