User`s guide

4-39
Programming
Programming Examples
Low!""";Current_dut
610 END IF
620 NEXT Current_dut
630 Meas_count=Meas_count+1
640 RETURN
650 !
660 End_prog:! quit program
670 ! turn off time initiated branching
680 OFF TIME
690 END
Description Line No.
10 to 40 Declare some variables to use in program.
60 to 90 Clear screen and print heading.
110 Call
Init_system
subroutine.
130 Set up time initiated branching. Every 300 seconds,
Measure_duts
subroutine will be called.
140 Set up function key initiated branching. When
f8
is pressed,
program will end.
160 Initialize measurement counter to zero.
170 to 180 Loop, waiting for events, until measurement count gets to
50.
190 Exit program.
210 to 350 The
Init_system
subroutine.
220 Clear the GPIB bus.
240 to 260 Define GPIB addresses for input and output switches,
optical multimeter.
280 Define
Min_power
to be 1 microwatt.
300 to 340 Configure optical multimeter to enable autoranging, set
power units to Watts, and select the upper wavelength
(1550 nm) on the source.
350 Return to calling line.
380 to 600 The
Measure_duts
subroutine.
400 Turn laser source on.
420 to 580
FOR-NEXT
loop to step through and measure each of the