Agilent Technologies 86082A User Manual page 210

'-- Map OPC to bit 5 of the Standard Event Status Enable Register
Status = viVPrintf(DevSessionNum, "*ESE 1" & Chr$(10), 0)
If Status <> 0 Then GoTo ErrorHandler
'-- Ensure that the instrument isn't in repeat sweep mode
Status = viVPrintf(DevSessionNum, "INIT:CONT 0" & Chr$(10), 0)
If Status <> 0 Then GoTo ErrorHandler
'-- Check to see if source is about to LambaZero. If so, force it to happen.
Status = CheckLambdaZero(DevSessionNum, ErrMsg)
If Status <> 0 Or ErrMsg <> "" Then GoTo ErrorHandler
'-- Format data as ASCII
Status = viVPrintf(DevSessionNum, "FORM:DATA ASCII" & Chr$(10), 0)
If Status <> 0 Then GoTo ErrorHandler
'-- Set Center Wavelength
Status = viVPrintf(DevSessionNum, "SENS:WAV:CENT " & Val(txtCWL.Text) & "nm" & Chr$(10), 0)
If Status <> 0 Then GoTo ErrorHandler
'-- Set number of points for WDCA to acquire during sweep
Status = viVPrintf(DevSessionNum, "SENS:SWE:POIN 1001" & Chr$(10), 0)
If Status <> 0 Then GoTo ErrorHandler
'-- Set Span
Status = viVPrintf(DevSessionNum, "SENS:WAV:SPAN " & Val(txtSpan.Text) & "nm" & Chr$(10), 0)
If Status <> 0 Then GoTo ErrorHandler
'-- Set sensitivity
If chkSensitivityLock.Value = 0 Then
'-- Unlock Sensitivity
Status = viVPrintf(DevSessionNum, "SENS:POW:DC:RANG:LOW:AUTO OFF" & Chr$(10), 0)
If Status <> 0 Then GoTo ErrorHandler
'-- Set Sensitivity
Status = viVPrintf(DevSessionNum, "SENS:POW:DC:RANG:LOW " & Val(txtSensitivity.Text) & _
If Status <> 0 Then GoTo ErrorHandler
Else
'-- Lock Sensitivity
Status = viVPrintf(DevSessionNum, "SENS:POW:DC:RANG:LOW:AUTO ON" & Chr$(10), 0)
If Status <> 0 Then GoTo ErrorHandler
End If
'-- Sweep Mode
Status = viVPrintf(DevSessionNum, "SENS:SWE:SPE " & cmbSweepMode.Text & Chr$(10), 0)
If Status <> 0 Then GoTo ErrorHandler
'-- Trace settings
'-- Attach trace to input
Status = viVPrintf(DevSessionNum, "TRAC:FEED:INP " & cmbTrace.Text & "," & cmbChannel.Text & _
If Status <> 0 Then GoTo ErrorHandler
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
Chr$(10), 0)
Chr$(10), 0)
Remote Operation
Example Programs
5-35