Agilent 86038B Photonic Dispersion and Loss Analyzer,
Second Edition
177
stopWavel = pdlaClient.MeasurementRange.xStop
span = stopWavel - startWavel
centerWavel = CDbl(txtCenter.Text)
If centerWavel < 1400 Or centerWavel > 1700 Then
MsgBox ("Wavelength out of range, defaulted to 1550")
centerWavel = 1550
txtCenter.Text = "1550"
End If
pdlaClient.MeasurementRange.xStart = centerWavel - span / 2
pdlaClient.MeasurementRange.xStop = cente span / 2
' Trigger the measurement
pdlaClient.Measure
End Sub
Содержание 86038B
Страница 1: ...Agilent 86038B Photonic Dispersion and Loss Analyzer User s Guide ...
Страница 4: ...4 ...
Страница 20: ...20 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Страница 34: ...34 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition Figure 2 b Rear Panel ...
Страница 58: ...58 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition Figure 11 86038B Block Diagram ...
Страница 78: ...78 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Страница 92: ...92 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Страница 202: ...202 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition End Sub ...
Страница 230: ...230 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition VB 6 0 Syntax pdlaClient Actions PrintScreen ...
Страница 348: ...348 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Страница 349: ......