Agilent Technologies 86038B User Manual page 186

186
Dim buf As String
' Get the data and figure out the wavelength axis
gainData =
pdlaClient.Results.YData(Agilent.LWD.Ag86038x.InstrumentObjects.ODACommon.eMe
asurementType.Gain, _
Agilent.LWD.Ag86038x.InstrumentObjects.ODACommon.eODAPort.One)
npoin = UBound(gainData) - LBound(gainData)
xStart =
pdlaClient.Results.XStart(Agilent.LWD.Ag86038x.InstrumentObjects.ODACommon.eM
easurementType.Gain)
xStop =
pdlaClient.Results.XStop(Agilent.LWD.Ag86038x.InstrumentObjects.ODACommon.eM
easurementType.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
End Class
Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition