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

Dim mItem As ListItem

Dim iIndex As Integer

lvwInstallationData.ListItems.Clear

lvwInstallationData.ColumnHeaders.Clear

lvwInstallationData.ColumnHeaders.Add , , “Property”, lvwInstallationData.Width * 3 / 16

lvwInstallationData.ColumnHeaders.Add , , “Value”, lvwInstallationData.Width * 12 / 16

lvwInstallationData.View = lvwReport

SetInstallationData = Controller.PIProperties.Item(“Installation Data”)

iIndex = 1

For Each Prop In InstallationData.PIProperties

strEntry = Prop.Name & “: “ & Prop.Value

Set mItem = lvwInstallationData.ListItems.Add(iIndex, Prop.Name, Prop.Name)

iIndex = iIndex + 1

mItem.SubItems(1) = Prop.Value

NextProp

EndSub

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

Данный экран PI ProcessBook отображает стандартным образом работу контура управления, а также отображает имя производителя и информацию об установке. Для того, чтобы повторно использовать этот экран, нужно прежде всего добавить VBA-код, заменяющий использованные при конфигурировании экрана PI-точки, на операторы связи с Модульной базой данных. Для нужно задать свойства TagName или Trace объектов экрана. PI ProcessBook автоматически присваивает имена этим объектам. В режиме создания PI ProcessBook позволяет по правому щелчку мыши вывести свойства каждого объекта. Отображается имя объекта; можно также переименовать объект. Следующие VBA-функции извлекают соответствующие псевдонимы (alias) из модуля контроллера и и затем используют свойство datasource (источник данных) псевдонима для присвоения точке PI:

Private Sub LoadAliasesIntoTrend()

Dim Alias As PIAlias

DimPtAsPIPoint

‘ Убрать существующие точки

While Trend.TraceCount <> 0

Trend.RemoveTrace 1

Wend

Set Alias = Controller.PIAliases.Item(“Output”)

Set Pt = Alias.DataSource

Trend.AddTrace Pt.Name

Set Alias = Controller.PIAliases.Item(“ProcessVariable”)