Unit - модуль управления и автоматизации

1. Создаем новый проект "Standart EXE";
2. Через меню "Project -> Components" добавляем в проект два компонента: "SRV ActiveX Control Module" и "Unit ActiveX Control Module";
3. Размещаем на форме один компонент "SRV ActiveX Control Module" и три компонента "Unit ActiveX Control Module";
4. Добавляем и размещаем на форме необходимые элементы (Label, TextBox, ComboBox, EditBox, Button) (см. рисунок);
5. Обрабатываем нажатие клавиши и сообщения от модуля управления:

Option Explicit Dim error As Long Dim p(1) As Long Dim NumChannels As Integer                  ' Количество включенных каналов модулей АЦП ------------------------------------------------------------------------------------------- ' ==================== Кнопка "Выход" Private Sub CmdExit_Click() Unload MainForm End Sub ------------------------------------------------------------------------------------------- ' ==================== Изменение канала измерения Private Sub ComboChannels_Click() error = Unit1.SetParam(0, ComboChannels.ListIndex) ' Устанавливаем выбранный канал в программе Вольтметра переменного тока error = Unit2.SetParam(0, ComboChannels.ListIndex) ' Устанавливаем выбранный канал в программе Вольтметра постоянного тока error = Unit3.SetParam(0, ComboChannels.ListIndex) ' Устанавливаем выбранный канал в программе Селективного вольтметра переменного тока ' Добавим в заголовки Caption'ов единицу измерения выбранного канала LabelVoltMeter.Caption = "Вольтметр переменного тока, " & SRV1.Conversion(ComboChannels.ListIndex) LabelVoltMeterDC.Caption = "Вольтметр постоянного тока, " & SRV1.Conversion(ComboChannels.ListIndex) LabelVoltMeterSel.Caption = "Селективный вольтметр, " & SRV1.Conversion(ComboChannels.ListIndex) End Sub ------------------------------------------------------------------------------------------- ' ==================== Загрузка главной формы программы (начало работы) Private Sub Form_Load() Dim i As Integer error = Unit1.Activate("VoltMeter")                ' Активируем программу Вольтметра переменного тока Sleep (500)                                        ' Подождем пока программа запустится error = Unit1.ShowUnit(0)                          ' Убираем программу вольтметра с экрана error = Unit2.Activate("VoltMeterDC")              ' Активируем программу Вольтметра постоянного тока Sleep (500)                                        ' Подождем пока программа запустится error = Unit2.ShowUnit(0)                          ' Убираем программу вольтметра с экрана error = Unit3.Activate("VoltMeterSel")             ' Активируем программу Селективного вольтметра переменного тока Sleep (500)                                        ' Подождем пока программа запустится error = Unit3.ShowUnit(0)                          ' Убираем программу вольтметра с экрана SRV1.Connect                                       ' Подключение к серверу NumChannels = SRV1.QuanChan                        ' Узнаем количество включенных каналов For i = 0 To NumChannels - 1 ComboChannels.AddItem (SRV1.Commentary(i))         ' Заполняем ComboBox названиями включенных каналов Next i ComboChannels.ListIndex = 0                        ' Устанавливаем канал по умолчанию error = Unit1.SetParam(0, ComboChannels.ListIndex) ' Устанавливаем канал в программе Вольтметра переменного тока error = Unit2.SetParam(0, ComboChannels.ListIndex) ' Устанавливаем канал в программе Вольтметра постоянного тока error = Unit3.SetParam(0, ComboChannels.ListIndex) ' Устанавливаем канал в программе Селективного вольтметра переменного тока ' Добавим в заголовки Caption'ов единицу измерения выбранного канала LabelVoltMeter.Caption = "Вольтметр переменного тока, " & SRV1.Conversion(ComboChannels.ListIndex) LabelVoltMeterDC.Caption = "Вольтметр постоянного тока, " & SRV1.Conversion(ComboChannels.ListIndex) LabelVoltMeterSel.Caption = "Селективный вольтметр, " & SRV1.Conversion(ComboChannels.ListIndex) End Sub ------------------------------------------------------------------------------------------- ' ==================== Выгрузка главной формы программы (завершение работы) Private Sub Form_Unload(Cancel As Integer) error = Unit1.DisActivate           ' Выключаем программу Вольтметра переменного тока error = Unit2.DisActivate           ' Выключаем программу Вольтметра постоянного тока error = Unit3.DisActivate           ' Выключаем программу Селективного вольтметра переменного тока SRV1.Disconnect                     ' Отключаемся от сервера End End Sub ------------------------------------------------------------------------------------------- ' ==================== Чтение данных от программы Вольтметра переменного тока Private Sub Unit1_Ready(ByVal param As Long) Dim size As Long                                   ' Размер считываемых данных Dim data As Single                                 ' Данные error = Unit1.Read(size, data, p(0))               ' Читаем данные TextVoltMeter.Text = Format(data, "#0.0000")       ' Заполняем значениями TextBox End Sub ------------------------------------------------------------------------------------------- ' ==================== Чтение данных от программы Вольтметра постоянного тока Private Sub Unit2_Ready(ByVal param As Long) Dim size As Long                                   ' Размер считываемых данных Dim data As Single                                 ' Данные error = Unit2.Read(size, data, p(0))               ' Читаем данные TextVoltMeterDC.Text = Format(data, "#0.0000")     ' Заполняем значениями TextBox End Sub ------------------------------------------------------------------------------------------- ' ==================== Чтение данных от программы Селективного вольтметра переменного тока Private Sub Unit3_Ready(ByVal param As Long) Dim size As Long                                   ' Размер считываемых данных Dim data As Single                                 ' Данные error = Unit3.Read(size, data, p(0))               ' Читаем данные TextVoltMeterSel.Text = Format(data, "#0.0000")    ' Заполняем значениями TextBox End Sub