Agilent Technologies 86038A User Manual page 161

Example 1: Simple Application for Controlling the ODA
Agilent 86038A Optical Dispersion Analyzer, Third Edition
6 Run the software, connect and take a sweep. Then look for c:\mydata.txt. You
can look at it with a text editor or import it into a spreadsheet.
This program will grab data even if a sweep is triggered from the front
Tip:
panel. Run the software, and then connect. Go to the ODA front panel and
click , then take a sweep. You will see the update messages appear
Local
on the application, and the application will detect end-of-sweep and
transfer the data.
7 Exit the application when completed.
Control Center Wavelength
This section shows how to control a simple parameter on the ODA. This
example will use the center wavelength. A text box is added for the user to
enter the desired value, and then send that value to the ODA as part of the
sweep.
Changing a parameter consists of determining which property on which
sub-object of odaClient to modify, then modifying it.
1 Add a text field, name it txtCenter, set default text to 1550. Then add a label
that says "Center Wavelength, nm: ".
2 Modify the take sweep function to send the value to the ODA. Find the function
pbSweep_click, and add the following lines to check the value and send it to
the ODA. The ODA thinks in terms of start/stop wavelength, so the center
wavelength must be converted to a start and stop wavelength. Find the
pbSweep_click method, and insert the following code immediately before
odaClient.Measure:
Dim centerWavel, startWavel, stopWavel, span, oldCenter As Double
startWavel = odaClient.MeasurementRange.XStart
stopWavel = odaClient.MeasurementRange.XStop
span = stopWavel - startWavel
centerWavel = CDbl(txtCenter.text)
If centerWavel < 1400 Or centerWavel > 1700 Then
MessageBox.Show("Wavelength out of range, defaulted to 1550")
centerWavel = 1550
txtCenter.Text = "1550"
End If
odaClient.MeasurementRange.XStart = centerWavel - span / 2
odaClient.MeasurementRange.XStop = centerWavel + span / 2
It works better if you first set the ODA to a relatively narrow sweep, such
as 1530 to 1540 nm.
Remote Operation
161