Agilent Technologies 86038A User Manual page 163

Example 1: Simple Application for Controlling the ODA
Agilent 86038A Optical Dispersion Analyzer, Third Edition
Next
Close #outputFileNum
End Sub
Private Sub pbConnect_Click()
' Connect to the ODA
Call odaClient.Connectivity.Connect(tbOdaName.Text)
' Grey out the button so we don't double- connect
pbConnect.Enabled = False
End Sub
Private Sub pbSweep_Click()
' Don't do anything if not connected to ODA
If odaClient.Connectivity.IsConnected = False Then
MsgBox ("Can't take a measurement yet - not connected.")
Exit Sub
End If
' Set the start wavelength
Dim centerWavel, startWavel, stopWavel, span, oldCenter As Double
startWavel = odaClient.MeasurementRange.xStart
stopWavel = odaClient.MeasurementRange.xStop
span = stopWavel - startWavel
centerWavel = CDbl(txtCenter.Text)
If centerWavel < 1400 Or centerWavel > 1700 Then
MsgBox ("Wavelength out of range, defaulted to 1550")
centerWavel = 1550
txtCenter.Text = "1550"
End If
odaClient.MeasurementRange.xStart = centerWavel - span / 2
odaClient.MeasurementRange.xStop = centerWavel + span / 2
' Trigger the measurement
odaClient.Measure
End Sub
Remote Operation
163