116 Chapter 9
Measurement Applications (Sample Programs)
Measurement with changing channels (scanning)
Example 9-3 Scanning measurement (meas_scn.bas)
10 DIM Pri$[9],Sec$[9],Mode$[9],Aux$[9],Meas_time$[9],Low_c_rej$[9]
20 DIM Digit$[1],Read_form$[9],Num_of_byte$[9],Buff$[9],Img$[50]
30 REAL Freq,Lvl,Data(0:3,1:4),Nom,Low_c_rej_lim
40 REAL L_lim(1:3),U_lim(1:3),L_lim_sec,U_lim_sec,Pri_res,Sec_res
50 INTEGER Max_meas,Max_chan,Cbl,Result,Ch,Bin(1:11),Ovld,I
60 CLEAR SCREEN
70 !
80 ASSIGN @Binary TO 717;FORMAT OFF
90 ASSIGN @Agt4288a TO 717
100 !
110 Max_meas=10
120 Max_chan=3
130 !
140 Pri$="CP"
150 Sec$="D"
160 Freq=1.E+3
170 Lvl=1.0
180 Meas_time$="SHOR"
190 Cbl=1
200 !
210 Mode$="PCNT"
220 Nom=1.E-9
230 !-- [BIN1] --
240 L_lim(1)=-1.0
250 U_lim(1)=1.0
260 !-- [BIN2] --
270 L_lim(2)=-2.0
280 U_lim(2)=2.0
290 !-- [BIN3] --
300 L_lim(3)=-3.0
310 U_lim(3)=3.0
320 !-- [Sec] --
330 L_lim_sec=0.
340 U_lim_sec=.1
350 Aux$="ON"
360 Low_c_rej$="ON"
370 Low_c_rej_lim=10.0
380 !
390 OUTPUT @Agt4288a;"*RST"
400 OUTPUT @Agt4288a;":CALC1:FORM ";Pri$
410 OUTPUT @Agt4288a;":CALC2:FORM ";Sec$
420 OUTPUT @Agt4288a;":SOUR:FREQ ";Freq
430 OUTPUT @Agt4288a;":SOUR:VOLT ";Lvl
440 OUTPUT @Agt4288a;":APER "&Meas_time$
450 OUTPUT @Agt4288a;":CAL:CABL ";Cbl
460 !
470 OUTPUT @Agt4288a;":CORR:MULT ON"
480 OUTPUT @Agt4288a;":CORR:MULT:CKIT:STAN3 ON"
490 OUTPUT @Agt4288a;":DISP:TEXT2:PAGE 5"
500 !
510 OUTPUT @Agt4288a;":SYST:BEEP:STAT OFF"
520 OUTPUT @Agt4288a;":SYST:KLOC ON"
530 !
540 ! Compensation
550 !
560 PRINT "##### Open Data Measurement #####"
570 FOR Ch=0 TO Max_chan
580 OUTPUT @Agt4288a;":CORR:MULT:CHAN ";Ch
590 PRINT "Set the Scanner's Channel to No."&VAL$(Ch)&", and"
600 Result=FNCompen(@Agt4288a,"Open",.00002)
610 IF Result<>0 THEN Prog_end
To Next Page
Loading...
Need help?
General
