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

Trend.AddTrace Pt.Name

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

Set Pt = Alias.DataSource

Trend.AddTrace Pt.Name

Trend.GetFormat().ShowTagName = True

End Sub

Private Sub LoadAliasesIntoBarChart()

Dim Alias As PIAlias

Dim Pt As PIPoint

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

Set Pt = Alias.DataSource

Bar.SetTagName (Pt.Name)

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

Set Pt = Alias.DataSource

Bar1.SetTagName (Pt.Name)

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

Set Pt = Alias.DataSource

Bar4.SetTagName (Pt.Name)

End Sub

Private Sub LoadAliasesIntoValues()

Dim Alias As PIAlias

Dim Pt As PIPoint

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

Set Pt = Alias.DataSource

Value.SetTagName (Pt.Name)

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

Set Pt = Alias.DataSource

Value2.SetTagName (Pt.Name)

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