авторефераты диссертаций БЕСПЛАТНАЯ БИБЛИОТЕКА РОССИИ

КОНФЕРЕНЦИИ, КНИГИ, ПОСОБИЯ, НАУЧНЫЕ ИЗДАНИЯ

<< ГЛАВНАЯ
АГРОИНЖЕНЕРИЯ
АСТРОНОМИЯ
БЕЗОПАСНОСТЬ
БИОЛОГИЯ
ЗЕМЛЯ
ИНФОРМАТИКА
ИСКУССТВОВЕДЕНИЕ
ИСТОРИЯ
КУЛЬТУРОЛОГИЯ
МАШИНОСТРОЕНИЕ
МЕДИЦИНА
МЕТАЛЛУРГИЯ
МЕХАНИКА
ПЕДАГОГИКА
ПОЛИТИКА
ПРИБОРОСТРОЕНИЕ
ПРОДОВОЛЬСТВИЕ
ПСИХОЛОГИЯ
РАДИОТЕХНИКА
СЕЛЬСКОЕ ХОЗЯЙСТВО
СОЦИОЛОГИЯ
СТРОИТЕЛЬСТВО
ТЕХНИЧЕСКИЕ НАУКИ
ТРАНСПОРТ
ФАРМАЦЕВТИКА
ФИЗИКА
ФИЗИОЛОГИЯ
ФИЛОЛОГИЯ
ФИЛОСОФИЯ
ХИМИЯ
ЭКОНОМИКА
ЭЛЕКТРОТЕХНИКА
ЭНЕРГЕТИКА
ЮРИСПРУДЕНЦИЯ
ЯЗЫКОЗНАНИЕ
РАЗНОЕ
КОНТАКТЫ


Pages:     | 1 | 2 ||

«Измеритель комплексных коэффициентов передачи «Обзор – 103» Руководство по эксплуатации РЭ 6687–028–21477812–2008 ...»

-- [ Страница 3 ] --

Настройки прибора: начальная и конечная частота, количество точек вводятся из ячеек Excel. Для запуска цикла измерений на таблицу Excel установлена кнопка с наименованием «Пуск». По завершении цикла измерений, в таблицу Excel копируются результаты: вектор частот, вектор коэффициентов передачи, вектор значений ГВЗ, которые используются для обновления графика, а так же статистические данные, такие как частота и значение коэффициента передачи в точке максимума, верхняя и нижняя частота полосы пропускания.

«Обзор – 103». Руководство по эксплуатации. Приложение А.

15.5 Текст программы на VBA.

'–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––– Dim nwa ' Переменная для объекта автоматизации Dim f ' Переменная для вектора частот Dim m ' Переменная для вектора коэфф. передачи Dim d ' Переменная для вектора ГВЗ Public Sub Example() On Error GoTo ErrHandler ' Подключиться к приложению Obzor103. Если приложение не было запущено – ' эта директива запустит его Set nwa = CreateObject("Obzor103.Automation") nwa.Minimize If nwa.Connected = False Then ' Если приложение было только что запущено – Application.Wait (Now + TimeValue("0:00:07")) ' дать 7 секунд на загрузку прибора If nwa.Connected = False Then Exit Sub ' Прибор не включен, либо не подключен кабель End If nwa.ResetState ' Сбросить установки в начальное состояние nwa.gStart = Лист1.Cells(1, 2) ' Загрузить из ячеек Excel nwa.gStop = Лист1.Cells(2, 2) ' диапазон частот и nwa.gPoints = Лист1.Cells(3, 2) ' число точек nwa.IFBandWith = 100 ' Измерительный фильтр – 100 Гц nwa.ReceiverConfig = 2 ' A – S11, B – S ' Конфигурируем первый КИН nwa.chTraceFormat(0) = 0 ' Формат измерений – лог. ампл., дБ nwa.chPort(0) = 1 ' вход B, S ' Конфигурируем второй КИН nwa.chTraceFormat(1) = 2 ' Формат измерений – ГВЗ, нс nwa.chPort(0) = 1 ' вход B, S nwa.chCutOff(1) = –80 ' Отсечка шумов –80 дБ nwa.chSmoothing(1) = True ' Сглаживание включено nwa.TakeCompleteSweep ' Сделать цикл измерения f = nwa.gFrequencies ' Считать вектор частот m = nwa.chValues(0) ' Считать вектор коэфф. передачи d = nwa.chValues(1) ' Считать вектор ГВЗ For i = LBound(f) To UBound(f) Лист1.Cells(4 + i, 1).Value = f(i) ' Перенести измерения в таблицу Excel Лист1.Cells(4 + i, 2).Value = m(i) Лист1.Cells(4 + i, 3).Value = d(i) Next i Лист1.Calculate ' Обновить график Fmax = nwa.chFMaximum(0) ' Считать частоту максимума Лист1.Cells(1, 8) = Fmax ' Перенести на график f макс Лист1.Cells(1, 11) = nwa.chValue(0, Fmax) ' Перенести на график коэфф. передачи макс Лист1.Cells(2, 8) = nwa.chBWLeft(0) ' Перенести на график нижнюю и верхнюю Лист1.Cells(3, 8) = nwa.chBWRight(0) ' частоту полосы пропускания Exit Sub ErrHandler:

Msg = "Error # " & Str(Err.Number) & " was generated by " _ & Err.Source & Chr(13) & Err.Description MsgBox Msg,, "Error", Err.HelpFile, Err.HelpContext End Sub '–––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––––– ' Обработка нажатия Click кнопки “Пуск” Private Sub CommandButton1_Click() Example End Sub «Обзор – 103». Руководство по эксплуатации. Приложение А.

Рисунок 15.2. Результат выполнения программы VBA.



Pages:     | 1 | 2 ||
 





 
© 2013 www.libed.ru - «Бесплатная библиотека научно-практических конференций»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.