HP 8711C User Manual page 293

Automating Measurements
Operator Interaction
7-36
深圳市盛腾仪器仪表有限公司
160 DIM Msg$[2001
170 INTEGER X
180 !
190 IF POS(SYSTEM$("SYSTEM ID">,"HP 871") THEN
ASSIGN (OHp8711 TO 800
2 0 0
ELSE
2 1 0
ASSIGN (OHp8711 TO 716
2 2 0
ABORT 7
2 3 0
CLEAR 716
2 4 0
END IF
2 5 0
!
2 6 0
2 7 0
Start: !
2 8 0
LOOP
2 9 0
! Display message
3 0 0
3 1 0
3 2 0
OUTPUT OHp871l;"DISP:ANN:MESS ";Msg$
3 3 0
!
3 4 0
! Wait for button to be pressed
3 5 0
REPEAT
3 6 0
OUTPUT OHp8711;"DIAG:PORT:READ? 15,l"
3 7 0
ENTER (OHp871l;X
3 8 0
UNTIL X = 0
3 9 0
DISP "Button is now pressed."
4 0 0
OUTPUT OHp871l;"DISP:ANN:MESS:CLEAR"
4 1 0
!
4 2 0
! Wait for button to be released
4 3 0
REPEAT
4 4 0
OUTPUT @Hp871l;"DIAG:PORT:READ? 15,l"
4 5 0
ENTER QHp871l;X
4 6 0
UNTIL X = 1
4 7 0
DISP "Button is now released."
4 8 0
!
4 9 0
OUTPUT QHp871l;"DISP:ANN:MESS
5 0 0
! Add code here to take sweep
5 1 0
! and measure DUT.
5 2 0
WAIT 1
5 3 0
5 4 0
END LOOP
5 5 0
END
5 6 0
Tel:0755-83589391
'Measuring..."'
Fax:0755-83539691 Website: www.Sengt.c