Filter
Top Products
3-30
Programming
Example Programs
Example 1. Measure a DFB laser
This program measures the power and wavelength of a DFB laser. It
first sets the Agilent 86120C in the single-acquisition measurement
mode. Then, it triggers the Agilent 86120C with the MEASure com-
mand to capture measurement data of the input spectrum. Because the
data is stored in the instrument’s memory, it can be queried as
needed.
Refer to the introduction to this section for a description of each sub-
routine that is contained in this program.
COM /Instrument/ @Mwm
ASSIGN @Mwm TO 720
Set_ese
PRINT USING "37A,33A";"Multi-Wavelength Meter Identity is : ";FNIdentity$
OUTPUT @Mwm;":INIT:CONT OFF"
ON TIMEOUT 7,5 CALL Err_mngmt
OUTPUT @Mwm;":MEAS:SCAL:POW:WAV?"
ENTER @Mwm;Current_wl
OUTPUT @Mwm;":FETC:SCAL:POW?"
ENTER @Mwm;Current_pwr
OFF TIMEOUT
PRINT USING "20A,4D.3D,3A,19A,M2D.2D,4A";"The wavelength is : ";Current_wl /1.0E-9;" nm";" with a
power of : ";Current_pwr;" dBm"
END
Err_mngmt:SUB Err_mngmt
COM /Instrument/ @Mwm
DIM Err_msg$[255]
INTEGER Cme
CLEAR 7
REPEAT !
OUTPUT @Mwm;"*ESR?"
ENTER @Mwm;Cme
OUTPUT @Mwm;":SYST:ERR?"
ENTER @Mwm;Err_msg$
PRINT Err_msg$
UNTIL NOT BIT(Cme,2) AND NOT BIT(Cme,4) AND NOT BIT(Cme,5) AND
POS(Err_msg$,"+0")
Subend:SUBEND
Set_ese:SUB Set_ese
COM /Instrument/ @Mwm
OUTPUT @Mwm;"*ESE ";IVAL("00110100",2)
SUBEND