Agilent Technologies 86038B User Manual page 177

Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition
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 = centerWavel + span / 2
' Trigger the measurement
pdlaClient.Measure
End Sub
177