4-18
Remote Operation
Example Programs
Example 2. Locating the largest signal
Description
This program finds the largest signal, zooms to a narrow span, and then uses
markers to return signal wavelength and amplitude to the computer.
Program
PRINT “OSA Zoom Example”
OUTPUT 723;”disp:wind:text:data ‘Display the largest Signal’”
!
PRINT
OUTPUT 723;”*rst” ! Preset the instrument
PRINT “Presetting the instrument”
!
PRINT
OUTPUT 723;”disp:wind:trac:all:scal:auto” ! Automeasure
PRINT “Performing Automeasure”
!
!
PRINT
OUTPUT 723;”cal:alig:mark1” ! Perform an autoalignment
PRINT “Performing Autoalign”
!
PRINT
! Next line is the operation complete query used so that the text is not printed
! until after the Autoalign is complete
OUTPUT 723;”*opc?”
ENTER 723;Dum
PRINT “...measurement begins”
!
OUTPUT 723;”init:imm” ! Take a single sweep
OUTPUT 723;”calc1:mark1:max” ! Marker to peak
OUTPUT 723;”calc1:mark1:scen” ! Marker to center
OUTPUT 723;”sens:wav:span 10 nm” ! Set span
!
OUTPUT 723;”init:imm” ! Take a single sweep
OUTPUT 723;”calc1:mark1:max” ! Marker to peak
OUTPUT 723;”calc1:mark1:scen” ! Marker to center
!
OUTPUT 723;”init:imm” ! Take a single sweep
!
OUTPUT 723;”calc1:mark1:x?” ! Read marker wavelength
ENTER 723;Markwl
!
OUTPUT 723;”calc1:mark1:y?” ! Read marker amplitude
ENTER 723;Markamp
!
PRINT “ Marker values”
PRINT
Markwl=Markwl*1.E+9 ! Convert to nm
PRINT Markwl;”nm”,Markamp;”dBm”
!
LOCAL 723
END
book.book Page 18 Monday, January 31, 2000 10:34 AM
