Remote Operation

Example Programs

 

Example 6. Returning trace data

 

Description

This program locates the largest signal and then zooms to a narrow span. The

 

trace length is changed to 101 points and the entire trace data is read in and

 

printed on the display.

 

Program

PRINT “OSA Trace Example”

 

 

OUTPUT 723;”disp:wind:text:data ‘Trace Readout’”

 

 

!

 

 

DIM Tdata(1:101)

! Create a trace array

 

DIM Wdata(1:101)

! Wavelength data

 

!

 

 

PRINT “Presetting the instrument”

 

 

PRINT

 

 

OUTPUT 723;”*rst”

! Preset the instrument

 

!

 

 

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

 

 

!

 

 

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”

 

 

PRINT

 

 

!

 

 

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

 

!

 

 

! Read in the trace data

 

 

OUTPUT 723;”sens:swe:poin 101”

! Set trace length to 101

 

OUTPUT 723;”init:imm”

! Take a single sweep

 

!

 

 

OUTPUT 723;”form ascii”

! Set data format to ASCII

 

OUTPUT 723;”trac:data:y? tra”

! Request data

 

ENTER 723;Tdata(*)

! Read data trace

 

!

 

 

! Read start, stop and trace length

 

 

!

 

 

OUTPUT 723;”sens:wav:star?”

! Read start wavelength

4-24