Keysight Technologies 86120B, User Manual

Page: 112 / 273

110
Programming
Example Programs
Example 1. Measure a DFB laser
This program measures the power and wavelength of a DFB laser. It first sets the
Keysight 86120B in the single-acquisition measurement mode. Then, it triggers the
Keysight 86120B with the MEASure command to capture measurement data of the
input spectrum. Because the data is stored in the instrument’s memory, it can be que-
ried as needed.
Refer to the introduction to this section for a description of each subroutine 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