Table of Contents
Advertisement
Description
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
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.
Set up function key initiated branching. When f8 is pressed,
140
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 HP-IB bus.
240 to 260
Define HP-IB 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.
Example 4: Input/output multiplexers
Programming
4-41
Advertisement
Table of Contents
