Agilent Technologies 4288A Programming Manual page 93

Example 7-1 Sorting using comparator function (comprtr.bas)
10
,Img$[50]
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
340
350
360
370
380
390
400
410
420
430
440
;",";U_lim(I)
450
460
470
480
490
500
ec
510
520
Chapter 7
Sorting Based on Measured Result (Comparator Function)
DIM Pri$[9],Sec$[9],Range$[9],Mode$[9],Aux$[9],Low_c_rej$[9]
REAL Nom,L_lim(1:3),U_lim(1:3),L_lim_sec,U_lim_sec
REAL Low_c_rej_lim,Pri_para,Sec_para
INTEGER I,Meas_stat,Comp,Bin(1:11),Ovld
!
ASSIGN @Agt4288a TO 717
!
Pri$="CP"
Sec$="D"
Range$="1NF"
!
Mode$="PCNT"
Nom=1.E-9
!-- [BIN1] --
L_lim(1)=-1.0
U_lim(1)=1.0
!-- [BIN2] --
L_lim(2)=-2.0
U_lim(2)=2.0
!-- [BIN3] --
L_lim(3)=-3.0
U_lim(3)=3.0
!-- [Sec] --
L_lim_sec=0.
U_lim_sec=.1
!
Aux$="ON"
Low_c_rej$="ON"
Low_c_rej_lim=10.0
!
OUTPUT @Agt4288a;":SYST:PRES"
!
! Measurement Condition Setting
!
OUTPUT @Agt4288a;":CALC1:FORM "&Pri$
OUTPUT @Agt4288a;":CALC2:FORM "&Sec$
OUTPUT @Agt4288a;":RANG "&Range$
!
! Comparator Setting
!
OUTPUT @Agt4288a;":CALC:COMP:MODE "&Mode$
OUTPUT @Agt4288a;":CALC:COMP:PRIM:NOM ";Nom
FOR I=1 TO 3
OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&" ";L_lim(I)
OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&":STAT ON"
NEXT I
FOR I=4 TO 9
OUTPUT @Agt4288a;":CALC:COMP:PRIM:BIN"&VAL$(I)&":STAT OFF"
NEXT I
OUTPUT @Agt4288a;":CALC:COMP:SEC:LIM ";L_lim_sec;",";U_lim_s
OUTPUT @Agt4288a;":CALC:COMP:SEC:STAT ON"
!
Sample Program
91