184
Agilent 86038B Photonic Dispersion and Loss Analyzer, Second Edition
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 = cente span / 2
3 It works better if you first set the PDLA to a relatively narrow
sweep, such as 1530 to 1540 nm.
Complete Source Code
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
Содержание 86038B
Страница 1: ...Agilent 86038B Photonic Dispersion and Loss Analyzer User s Guide ...
Страница 4: ...4 ...
Страница 20: ...20 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Страница 34: ...34 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition Figure 2 b Rear Panel ...
Страница 58: ...58 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition Figure 11 86038B Block Diagram ...
Страница 78: ...78 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Страница 92: ...92 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Страница 202: ...202 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition End Sub ...
Страница 230: ...230 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition VB 6 0 Syntax pdlaClient Actions PrintScreen ...
Страница 348: ...348 Agilent 86038B Photonic Dispersion and Loss Analyzer Second Edition ...
Страница 349: ......