Agilent Technologies 4288A Programming Manual page 105

Lines 410 to 480
Lines 500 to 510
Example 9-1 Capacitor measurement using test fixture (meas_fxt.bas)
10
20
30
40
50
60
70
80
90
100
110
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
280
290
300
310
320
330 Meas_start: !
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530 Prog_end:
540
550
Chapter 9
Displays the measured result.
Prompts the user to enter decision on whether to make the
measurement again. If the user presses the
to the DUT connection stage and repeats the measurement.
DIM Pri$[9],Sec$[9],Inp_char$[9]
REAL Freq,Lvl,Pri_res,Sec_res
INTEGER Cbl,Result,Meas_stat
CLEAR SCREEN
!
ASSIGN @Agt4288a TO 717
!
Pri$="CP"
Sec$="Q"
Freq=1.E+6
Lvl=.5
Cbl=0
!
PRINT "Connect Test Fixture, then Push [Enter] key"
INPUT "",Inp_char$
!
OUTPUT @Agt4288a;":SYST:PRES"
!
OUTPUT @Agt4288a;":CALC1:FORM ";Pri$
OUTPUT @Agt4288a;":CALC2:FORM ";Sec$
OUTPUT @Agt4288a;":SOUR:FREQ ";Freq
OUTPUT @Agt4288a;":SOUR:VOLT ";Lvl
OUTPUT @Agt4288a;":CAL:CABL ";Cbl
!
Result=FNCompen(@Agt4288a,"Open",.00002)
IF Result<>0 THEN Prog_end
Result=FNCompen(@Agt4288a,"Short",20)
IF Result<>0 THEN Prog_end
!
OUTPUT @Agt4288a;":TRIG:SOUR BUS"
OUTPUT @Agt4288a;":INIT:CONT ON"
!
PRINT "Set DUT, then Push [Enter] key"
INPUT "",Inp_char$
OUTPUT @Agt4288a;"*TRG"
ENTER @Agt4288a;Meas_stat,Pri_res,Sec_res
!
! Display results
!
PRINT "[MEASUREMENT RESULT]"
IF Meas_stat=1 THEN
PRINT USING "X,3A,6A";Pri$,": OVLD"
PRINT USING "X,3A,6A";Sec$,": OVLD"
ELSE
PRINT USING "X,3A,A,X,SD.5DE";Pri$,":",Pri_res
PRINT USING "X,3A,A,X,SD.5DE";Sec$,":",Sec_res
END IF
!
INPUT "Once more? [Y]es/[N]o",Inp_char$
IF UPC$(Inp_char$)="Y" OR UPC$(Inp_char$)="YES" THEN Meas_start
!
END
!=============================================
! Compensation Data Measurement Function
Measurement Applications (Sample Programs)
Basic Capacitor Measurement
[y] and [Enter] keys, returns
103