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
Summary of Contents for 86038B
Page 1: ...Agilent 86038B Photonic Dispersion and Loss Analyzer User s Guide ...
Page 4: ...4 ...
Page 20: ...20 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Page 34: ...34 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition Figure 2 b Rear Panel ...
Page 78: ...78 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Page 92: ...92 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Page 202: ...202 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition End Sub ...
Page 348: ...348 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Page 349: ......