Table of Contents
Advertisement
Description
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
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
Programming
Programming Examples
4-39
Advertisement
Table of Contents
