User`s guide

4-38
Programming
Programming Examples
170 REPEAT
180 UNTIL Meas_count=50
190 GOTO End_prog
200 !
210 Init_system:! Initialize HPIB instruments
220 CLEAR (7) ! clear HPIB interface
230 ! set HPIB instrument addresses
240 In_switch_addr=711
250 Out_switch_addr=712
260 Opt_meter_addr=722
270 ! set minimum power allowed to 1 microwatt
280 Min_power=1.E-6
290 ! Turn on autoranging
300 OUTPUT @Opt_meter_addr;"SENSE2:POWER:RANGE:AUTO
ON"
310 ! Select Watts as output units
320 OUTPUT @Opt_meter_addr;"SENSE2:POWER:UNIT WATT"
330 ! Select 1550 nm wavelength from source
340 OUTPUT @Opt_meter_addr;"SOURCE1:POWER:WAVELENGTH
UPPER"
350 RETURN
360 !
370 !
380 Measure_duts:! measure all eight duts
390 ! Turn on laser
400 OUTPUT @Opt_meter_addr;"SOURCE1:POWER:STATE ON"
410 ! step through and measure all DUTs
420 FOR Current_dut=1 TO 8
430 ! build hpib commands to send to switches
440 In_switch$="ROUTE:LAYER1:CHANNEL
B"&TRIM$(VAL$(Current_dut))
450
Out_switch$="ROUTE:LAYER1:CHANNEL
B"&TRIM$(VAL$(Current_dut))
460 ! send command to switches
470 OUTPUT @In_switch_addr;In_switch$
480 OUTPUT @Out_switch_addr;Out_switch$
490 ! wait for switches to settle
500 OUTPUT @In_switch_addr;"*WAI"
510 OUTPUT @In_switch_addr;"SYSTEM:CONFIG?"
520 ENTER @In_switch_addr;Dummy$
530 OUTPUT @Out_switch_addr;"*WAI"
540 OUTPUT @Out_switch_addr;"SYSTEM:CONFIG?"
550 ENTER @Out_switch_addr;Dummy$
560 ! measure optical power
570 OUTPUT @Opt_meter_addr;"READ2:POW?"
580 ENTER @Opt_meter_addr;Watts_read
590 IF (Watts_read<Min_power) THEN
600 PRINT USING """DUT
#"",K,"" Power