Agilent Technologies 86038A User Manual page 135

Recommended Control Sequence
Table 7 Measurement Modes
eDispersionMode_CD_Swept
eDispersionMode_CD_Stepped
eDispersionMode_CD_PMD_Stepped
Agilent 86038A Optical Dispersion Analyzer, Third Edition
Measure Gain, Relative Group Delay, and Chromatic Dispersion with the tunable laser
sweeping across the specified wavelengths.
Measure Gain, Relative Group Delay, and Chromatic Dispersion with the tunable laser
stepping across the specified wavelengths.
Measure Gain, Relative Group Delay, Differential Group Delay, Chromatic Dispersion,
and Polarization Dependant Loss with the tunable laser stepping across the specified
wavelengths.
If a stepped mode has been chosen, you may want to specify the
wavelength step size. This indirectly sets the number of points in the trace:
odaClient.Resolution.Stepped.Increment = 0.02
The above example sets a step of 0.02 nm. This would set 501 trace points
for the requested 10 nm sweep (1535 to 1545 nm).
You can activate port 1, port 2, or both:
ePortsEnabled_Port_1_Enabled
ePortsEnabled_Port_2_Enabled
ePortsEnabled_All_Ports_Enabled
6 Normalize
With the system configured for the measurement, the next step is to
normalize. This consists of prompting the user to make the connections,
starting the normalization and waiting for it to finish. In this example the
trigger status is polled until the normalization has been completed.
to "Program Structure: events vs. sequential" on page 138
discussion about how to synchronize your program with the ODA.
'Use measurement range and port for normalization
odaClient.NormalizationRange.UseCustomNormalization = False
'Have user make connection
MsgBox ("Connect ODA for normalization")
'Start the normalization
odaClient.Actions.Normalize (False)
' Give it time to get started before checking flags
Sleep 1000
' Wait for TriggerComplete, but no longer than 30 minutes
Dim elapsedTime As Double
elapsedTime = 0
Do
DoEvents
Sleep 100
elapsedTime = elapsedTime + 100
If elapsedTime / 1000 / 60 > 30 Then Exit Do
Loop Until odaClient.Status.TriggerComplete = True
Remote Operation
Refer
for a more detail
135