Automating Measurements
Operator Interaction
160
DIM
Msg$[2001
170
INTEGER X
180
!
190
IF
POS(SYSTEM$("SYSTEM
ID">,"HP
871") THEN
200
ASSIGN
(OHp8711
TO 800
210
ELSE
220
ASSIGN
(OHp8711
TO 716
230
ABORT 7
240
CLEAR 716
250
END IF
260
!
270
Pass-count=0
280
Start: !
290
LOOP
300
! Display message
310
Msg$="
'
DUTs
passed:
"&VAL$(Pass,count)tCHR$(lO)
320
Msg$=Msg$&"Press
button to measure next
DUT."'
330
OUTPUT
OHp871l;"DISP:ANN:MESS
";Msg$
340
!
350 ! Wait for button to be pressed
360
REPEAT
370
OUTPUT
OHp8711;"DIAG:PORT:READ?
15,l"
380
ENTER
(OHp871l;X
390
UNTIL X = 0
400
DISP "Button is now pressed."
410
OUTPUT
OHp871l;"DISP:ANN:MESS:CLEAR"
420
!
430
! Wait for button to be released
440
REPEAT
450
OUTPUT
@Hp871l;"DIAG:PORT:READ?
15,l"
460
ENTER QHp871l;X
470
UNTIL X = 1
480 DISP "Button is now released."
490
!
500
OUTPUT
QHp871l;"DISP:ANN:MESS
'Measuring..."'
510 ! Add code here to take sweep
520
! and measure DUT.
530
WAIT 1
540
Pass-count=Pass-count+1
550
END LOOP
560
END
7-36
I-
深圳市盛腾仪器仪表有限公司 Tel:0755-83589391 Fax:0755-83539691 Website: www.Sengt.com
To Next Page
Loading...
Need help?
General
