Agilent Technologies Agilent 86120C Example Programs, Query reference wavelengths and powers

Programming

Example Programs

! Query reference wavelengths and powers

OUTPUT @Mwm;":CALC3:DATA? WAV"

ENTER @Mwm USING "#,K";Current_ref_wl(*)

OUTPUT @Mwm;":CALC3:DATA? POW"

ENTER @Mwm USING "#,K";Current_ref_pwr(*)

! Turn off drift reference state

Cmd_opc(":CALC3:DRIF:REF:STAT OFF")

Err_mngmt(":CALC3:DRIF:REF:STAT OFF")

! Turn on drift max min calculation

Cmd_opc(":CALC3:DRIF:DIFF:STAT ON")

Err_mngmt(":CALC3:DRIF:DIFF:STAT ON")

Tempo(10)

ALLOCATE Current_diff_wl(1:Nb_pt)

ALLOCATE Current_diff_pw(1:Nb_pt)

! Query drift wavelengths and powers

OUTPUT @Mwm;":CALC3:DATA? WAV"

ENTER @Mwm USING "#,K";Current_diff_wl(*)

OUTPUT @Mwm;":CALC3:DATA? POW"

ENTER @Mwm USING "#,K";Current_diff_pw(*)

OFF TIMEOUT

FOR I=1 TO Nb_pt

PRINT USING "18A,2D,6A,M4D.2DE,3A,21A,MDD.3DE,3A";"Wavelength number " ;I;" is : ";Current_ref_wl(I);" m";" with a drift from : ";Current_diff_wl(I);" m" PRINT USING "28A,SDD.2DE,4A,20A,MDD.3DE,3A,/";"it has a power level of

:";Current_ref_pwr(I);" dBm";" with a drift from : ";Current_diff_pw(I);" dB";

NEXT I STOP

Error_msg: !

PRINT "The program is aborted due to : ";ERRM$

END

Err_mngmt:SUB Err_mngmt(OPTIONAL Cmd_msg$)

COM /Instrument/ @Mwmt

DIM Err_msg$[255] INTEGER Cme CLEAR @Mwm

REPEAT

OUTPUT @Mwm;"*ESR?" ENTER @Mwm;Cme OUTPUT @Mwm;":SYST:ERR?" ENTER @Mwm;Err_msg$

IF NPAR>0 AND NOT POS(Err_msg$,"+0") THEN PRINT "This command ";Cmd_msg$;" makes the following error :"

IF NOT POS(Err_msg$,"+0") THEN PRINT Err_msg$

UNTIL NOT BIT(Cme,2) AND NOT BIT(Cme,4) AND NOT BIT(Cme,5) AND POS(Err_msg$,"+0")

3-35