Agilent Technologies 86038B User Manual page 183

Control Center Wavelength
Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition
Agilent.LWD.Ag86038x.InstrumentObjects.ODACommon.eODAPort.One)
npoin = UBound(gainData) - LBound(gainData)
xStart = pdlaClient.Results.XStart _
(Agilent.LWD.Ag86038x.InstrumentObjects.ODACommon.eMeasurementType.Gain)
xStop = pdlaClient.Results.XStop _
(Agilent.LWD.Ag86038x.InstrumentObjects.ODACommon.eMeasurementType.Gain)
xStep = (xStop - xStart) / (npoin - 1)
' Open the file and write the data
Dim file As System.IO.StreamWriter
file = New System.IO.StreamWriter(fileName)
file.WriteLine _
("Sample PDLA File, written from Visual Basic.net")
file.WriteLine("Wavelength (nm), Gain (dB)")
idx = 0
For cnt = LBound(gainData) To UBound(gainData)
buf = CStr(xStart + xStep * idx) + "," + CStr(gainData(cnt))
file.WriteLine(buf)
idx = idx + 1
Next
file.Close()
End Sub
7 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 panel. Run the software, and then connect. Go to
the PDLA front panel and click Local, then take a sweep. You
will see the update messages appear on our application, and
the application will detect end-of-sweep and transfer the
data.
8 Exit the application when you are done.
This section shows how to control the center wavelength on the
PDLA. First, a text box is added for the user to enter the desired
value, and then the entered value will be sent to the PDLA as
part of the sweep.
1 Add a text field, name it txtCenter, set the default text to
1550. Add a label with the text, Center Wavelength, nm.
2 Modify the take sweep function to send the value to the
PDLA. Find the function pbSweep_click, and add the
following lines to check the value and send it to the PDLA.
The PDLA thinks in terms of start/stop, so the center
183