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

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

Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition
173
pdlaClient_TriggerProgress, with two pass parameters
already declared. Progress is an enumerated type which tells
you whether you are at the begin or end, and eTriggerMode,
which tells you whether the current activity is a
measurement or a normalization.
Click on the next line after the sub declaration, and type:
If eTriggerMode =
When you type the '=' (equals sign), the Visual Basic editor
will Intellisense all the possible values of the enumeration,
and present you a list. In this case you want eMeasurement.
Intellisense makes dealing with events and enumerated types
much easier in Visual Basic.
Fill out the function so it looks like:
If eTriggerMode = enumAcquisitionMode_eMeasurement Then
If progress = enumStatus_COMPLETE Then
sendDataToFile ("c:\mydata.txt")
End If
End If
5 Add the
sendDataToFile
function. This is a very simple implementation using text
streams. Insert this function immediately after
pdlaClient_TriggerProgress:
Private Sub sendDataToFile(ByVal fileName As String)
Dim gainData() As Double
Dim xStart As Double
Dim xStop As Double
Dim xStep As Double
Dim npoin As Integer
Dim cnt As Integer
Dim idx As Integer
Dim buf As String
' Get the data and figure out the wavelength axis
gainData = pdlaClient.Results.YData _
(eMeasurementType_Gain,eODAPort_One)
npoin = UBound(gainData) - LBound(ga1
xStart = pdlaClient.Results.xStart(eMeasurementType_Gain)
xStop = pdlaClient.Results.xStop(eMeasurementType_Gain)