Agilent Technologies 86038B, Руководство пользователя

Страница: 144 / 350

144
Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition
You can also activate any combination of ports. If you want to
measure Port 1 and Port 2:
eODAPo eODAPort_Two
If your setup does not support multiport measurements, always
activate
eODAPort_One
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. Refer to
“Program Structure:
events vs. sequential” on page 147 for a more detail discussion
about how to synchronize your program with the PDLA.
’Use measurement range and port for normalization
pdlaClient.NormalizationRange.UseCustomNormalization = False
‘Have user make connection
MsgBox ("Connect PDLA for normalization")
‘Start the normalization
pdlaClient.Actions.Normalize ()
‘ 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 = elaps 100
If elapsedTime / 1000 / 60 > 30 Then Exit Do
Loop Until pdlaClient.Status.TriggerComplete = True
Tip: The normalization will be performed on the enabled
port(s). If both ports are enabled, both ports will be normalized
in one sweep, which requires an external coupler. If you do not
want the coupler to be included in the normalization, you can
temporarily enable port 1, normalize, then enable port 2,
normalize, and then enable both ports for measurement.
The sleep statement is used above to slow the loop down - you
do not want to query the PDLA hundreds of times a second. To
use the sleep command, you need to declare it at the top of your
module:
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)