186
Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition
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( xStep * idx) + "," + CStr(gainData(cnt))
file.WriteLine(buf)
idx = idx + 1
Next
file.Close()
End Sub
End Class
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: ......