174
Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition
xStep = (xStop - xStart) / (npoin - 1)
' Open the file and write the data
Dim outputFileNum As Integer
outputFileNum = 123
Open fileName For Output As outputFileNum
Write #outputFileNum, "Sample PDLA File written from VB 6.0"
Write #outputFileNum, Now
Write #outputFileNum, "Wavelength (nm)", "Gain (dB)"
idx = 0
For cnt = LBound(gainData) To UBound(gainData)
buf = CStr( xStep * idx) + "," + CStr(gainData(cnt))
Write #outputFileNum, xStep * idx, gainData(cnt)
idx = idx + 1
Next
Close #outputFileNum
End Sub
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.
Tip:
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 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
PDLA. 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 PDLA as part of the sweep.
Changing a parameter consists of determining which property
on which sub-object of pdlaClient 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
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 wavelength, so the
center wavelength must be converted to a start and stop
Summary of Contents for 86038B
Page 1: ...Agilent 86038B Photonic Dispersion and Loss Analyzer User s Guide ...
Page 4: ...4 ...
Page 20: ...20 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Page 34: ...34 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition Figure 2 b Rear Panel ...
Page 78: ...78 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Page 92: ...92 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Page 202: ...202 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition End Sub ...
Page 348: ...348 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Page 349: ......