Take Sweep and Transfer Data
Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition
if the message was an error, informational or a warning. To
display the status, insert the following line inside:
Private Sub pdlaClient_NewStatus( ...
' Let the user know something happened
lblStatus.Text = Message
End Sub
3 Click the
button, and connect to the PDLA. The first
Run
message you will see is the Connected message. Press
on the PDLA and take a sweep. You will see the progress
messages appearing on the application as the measurement
progresses. When you exit the application, it will release the
PDLA.
All of the PDLA events follow a similar pattern. The most useful
events are TriggerProgress, which tells you when a
measurement or normalization is complete, and
TLSSettlingProbability, which warns you how long until the
laser needs to perform a temperature settling.
In this exercise, we will trigger a sweep from our application, and when the sweep
completes, we will transfer the data across and save it in a file. This consists of
adding a button to trigger the sweep, and adding an event handler for the
TriggerProgress event, so we can detect when the sweep is finished and save the
data in
.
C:\mydata.txt
1 Add a button to the UI and name it pbSweep, with a caption
of Take Sweep.
2 Double click the button to go to the pbSweep_Click function,
and insert the following lines to make sure you are connected
before actually taking a measurement:
' Don't do anything if not connected to PDLA
If pdlaClient.Connectivity.IsConnected = False Then
MessageBox.Show("Can't take a measurement yet - not connected.")
Return
End If
pdlaClient.Measure()
3 Run the software, click
to complete. Click
on both the PDLA and on the application message bar.
4 Add an event routine for TriggerProgress.
The TriggerProgress event has two pass parameters –
enumStatus and enumAcquisitionMode. This indicates the
status and progress of the current activity.
and wait for the connection
Connect
and watch the sweep progress
Take Sweep
Local
181