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

Dim Unit As PIModule

Dim Controllers As PIModule

Dim Controller As PIModule

Set Srv = PISDK.Servers.DefaultServer

Srv.Open (“uid=piadmin”)

On Error Resume Next

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

Set Enterprise = Srv.PIModuleDB.PIModules.Add(“Demo Enterprises”)

Set Site = Enterprise.PIModules.Add(“Cleveland”)

Set Area = Site.PIModules.Add(“Area C-1”)

Set Line = Area.PIModules.Add(“Line 4”)

Set Unit = Line.PIModules.Add(“R-401”)

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

Unit.PIModules.Insert Controller

Set Controller = Controllers.PIModules.Item(“tic-105”)

Unit.PIModules.Insert Controller

5. Внедрение модуля в приложение PI ProcessBook

Теперь, когда у нас имеется иерархическое представление оборудования, необходимо запрограммировать экран PI ProcessBook таким образом, чтобы он мог воспользоваться этой иерархией. Мы применим два подхода: 1) каскад из элементов управления типа "combo box"(комбинированный список выбора) 2) элемент управления Tree View (просмотр в виде дерева). В первом подходе мы используем combo box для сайта (site), зоны (area), линии (line), модуля (unit), и наконец, контроллеров. Изменение выбранных элементов в верхнем окне приведет обновлению нижних окон - в них появятся соответствующие модули.

Вот код VBA, который загружает элементы "combo box"; он вызывается при открытии экрана:

Private Sub LoadAllComboBoxes()

Dim i As Integer

For Each Site In Enterprise.PIModules

cboSites.AddItem Site.Name

Next Site

Set Site = Enterprise.PIModules.Item(1)

For Each Area In Site.PIModules

cboAreas.AddItem Area.Name

Next Area

Set Area = Site.PIModules.Item(1)