Agilent Technologies 86121A, User Manual, Page: 97 / 240

4
-
30 Example Programs
Example 1. Measure a DFB laser
This program measures the power and wavelength of a
DFB laser. It first sets the WDM channel analyzer in the
single-acquisition measurement mode. Then, it triggers
the WDM channel analyzer with the MEASure com-
mand to capture measurement data of the input spec-
trum. Because the data is stored in the memory of the
instrument, it can be queried as needed.
Refer to the introduction to this section for a descrip-
tion of each subroutine that is contained in this pro-
gram.
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
Identity:DEF FNIdentity$;
COM /Instrument/ @MwmV
DIM Identity$[50]
Identity$=""
OUTPUT @Mwm;"*RST"
OUTPUT @Mwm;"*OPC?"