Agilent Technologies 86038B User Manual page 184

Complete Source Code
184
wavelength must be converted to a start and stop
wavelength. Find the pbSweep_click method, and insert the
following code immediately before pdlaClient.measure:
Dim centerWavel, startWavel, stopWavel, span, oldCenter As Double
startWavel = pdlaClient.MeasurementRange.XStart
stopWavel = pdlaClient.MeasurementRange.XStop
span = stopWavel - startWavel
centerWavel = CDbl(txtCenter.text)
If centerWavel < 1400 Or centerWavel > 1700 Then
MessageBox.Show("Wavelength out of range, defaulted to
1550")
centerWavel = 1550
txtCenter.Text = "1550"
End If
pdlaClient.MeasurementRange.XStart = centerWavel - span / 2
pdlaClient.MeasurementRange.XStop = centerWavel + span / 2
3 It works better if you first set the PDLA to a relatively narrow
sweep, such as 1530 to 1540 nm.
Public Class Form1
Inherits System.Windows.Forms.Form
Private WithEvents pdlaClient As RemoteClient.Communicator
' Windows form generated code omitted
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
pdlaClient = New RemoteClient.Communicator()
End Sub
Private Sub pbConnect_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles pbConnect.Click
pdlaClient.Connectivity.Connect(tbPdlaName.Text)
pbConnect.Enabled = False
End Sub
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
pdlaClient.Connectivity.Disconnect()
pdlaClient.Connectivity.TerminateSession()
End Sub
Private Sub pdlaClient_NewStatus(ByVal Message As String, ByVal MessageType As
Agilent.LWD.Ag86038x.InstrumentObjects.ODACommon.eEventLogType) Handles
pdlaClient.NewStatus
' Let the user know something happened
lblStatus.Text = Message
End Sub
Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition