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

LoadInstallationData

LoadAliasesIntoDisplay

End If

End Sub

Private Sub cboUnits_Click()

Dim Reload As Boolean

Reload = False

If Unit Is Nothing Then

Reload = True

ElseIf cboUnits.Text <> Unit.Name Then

Reload = True

End If

If Reload Then

Set Unit = Line.PIModules.Item(cboUnits.Text)

cboControllers.Clear

For Each Controller In Unit.PIModules

cboControllers.AddItem Controller.Name

Next Controller

If cboControllers.ListCount > 0 Then

cboControllers.ListIndex = 0

End If

End If

End Sub

Private Sub cboLines_Click()

Dim Reload As Boolean

Reload = False

If Line Is Nothing Then

Reload = True

ElseIf cboLines.Text <> Line.Name Then