Agilent Technologies 4288A Programming Manual page 118

Measurement Applications (Sample Programs)
Measurement with changing channels (scanning)
Example 9-3 Scanning measurement (meas_scn.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
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
116
DIM Pri$[9],Sec$[9],Mode$[9],Aux$[9],Meas_time$[9],Low_c_rej$[9]
DIM Digit$[1],Read_form$[9],Num_of_byte$[9],Buff$[9],Img$[50]
REAL Freq,Lvl,Data(0:3,1:4),Nom,Low_c_rej_lim
REAL L_lim(1:3),U_lim(1:3),L_lim_sec,U_lim_sec,Pri_res,Sec_res
INTEGER Max_meas,Max_chan,Cbl,Result,Ch,Bin(1:11),Ovld,I
CLEAR SCREEN
!
ASSIGN @Binary TO 717;FORMAT OFF
ASSIGN @Agt4288a TO 717
!
Max_meas=10
Max_chan=3
!
Pri$="CP"
Sec$="D"
Freq=1.E+3
Lvl=1.0
Meas_time$="SHOR"
Cbl=1
!
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;"*RST"
OUTPUT @Agt4288a;":CALC1:FORM ";Pri$
OUTPUT @Agt4288a;":CALC2:FORM ";Sec$
OUTPUT @Agt4288a;":SOUR:FREQ ";Freq
OUTPUT @Agt4288a;":SOUR:VOLT ";Lvl
OUTPUT @Agt4288a;":APER "&Meas_time$
OUTPUT @Agt4288a;":CAL:CABL ";Cbl
!
OUTPUT @Agt4288a;":CORR:MULT ON"
OUTPUT @Agt4288a;":CORR:MULT:CKIT:STAN3 ON"
OUTPUT @Agt4288a;":DISP:TEXT2:PAGE 5"
!
OUTPUT @Agt4288a;":SYST:BEEP:STAT OFF"
OUTPUT @Agt4288a;":SYST:KLOC ON"
!
! Compensation
!
PRINT "##### Open Data Measurement #####"
FOR Ch=0 TO Max_chan
OUTPUT @Agt4288a;":CORR:MULT:CHAN ";Ch
PRINT "Set the Scanner's Channel to No."&VAL$(Ch)&", and"
Result=FNCompen(@Agt4288a,"Open",.00002)
IF Result<>0 THEN Prog_end
Chapter 9