Specifications

196 Chapter 15
Sample Application Programs
Measuring Array (Multi-Element) Components
Example 15-3 Measuring Array Components (meas_ary.bas)
10 DIM Unit$[9],Para1$[9],Bin$(1:10)[20],Buff$[9]
20 DIM Disp$[9],Beep$[9],Lock$[9],Img1$[200],Img2$[200]
30 REAL Freq,Pow,Nom,Lim,L_lim,U_lim,Status,D(1:100,1:4)
40 REAL Load_rs,Load_ls,Load_rdc,Rdc_l_lim,Rdc_u_lim
50 REAL Open_l_lim,Open_u_lim,Short_l_lim,Short_u_lim,Load_l_lim,
Load_u_lim
60 INTEGER Scode,Meas_max,Max_tab_no,Nop,Ave,Result,Tab,I
70 CLEAR SCREEN
80 !
90 ASSIGN @Agt4287a TO 717
100 Scode=7
110 !
120 ! Measurement Condition
130 !
140 Meas_max=10 ! Maximum Measurement Number: 10
150 Max_tab_no=4 ! Maximum Table Number: 4
160 Unit$="V" ! OSC Level unit: mV
170 Freq=1.0E+8 ! Frequency: 100 MHz
180 Ave=1 ! Averaging Factor: 1
190 Pow=500 ! OSC Level: 500 mV
200 Para1$="LS" ! Parameter 1: Ls
210 Disp$="ON" ! Display On
220 Update$="OFF" ! Update Display Off
230 Beep$="OFF" ! Done/Warn Beeper Off
240 Lock$="ON" ! Front panel/KBD/Mouse Lock On
250 !
260 ! Limit
270 !
280 Nom=1.0E-8 ! Nominal Value : 10 nH
290 Lim=10 ! Limit : 10 %
300 L_lim=Nom*(1-Lim/100)
310 U_lim=Nom*(1+Lim/100)
320 !
330 ! Rdc Limit for Calibration/Compensation
340 !
350 Open_l_lim=100 ! Open Rdc Lower Limit : 100 ohm
360 Open_u_lim=1.E+9 ! Open Rdc Upper Limit : Dummy
370 Short_l_lim=-1.E+9 ! Short Rdc Lower Limit: Dummy
380 Short_u_lim=25 ! Short Rdc Upper Limit: 25 ohm
390 Load_l_lim=-1.E+9 ! Load Rdc Lower Limit : Dummy
400 Load_u_lim=1.E+9 ! Load Rdc Upper Limit : Dummy
410 !----------------------------------------
420 ! Measurement Condition Setting
430 !----------------------------------------
440 OUTPUT @Agt4287a;":SYST:PRES"
450 OUTPUT @Agt4287a;":FORM ASC"
460 FOR Tab=1 TO Max_tab_no
470 OUTPUT @Agt4287a;":SOUR:LIST:TABL ";Tab
480 OUTPUT @Agt4287a;":SOUR:UNIT "&Unit$
490 OUTPUT @Agt4287a;":SOUR:LIST 1,";Freq;",";Ave;",";Pow
500 NEXT Tab
510 !
520 OUTPUT @Agt4287a;":SOUR:LIST:STAT ON"
530 OUTPUT @Agt4287a;":SOUR:LIST:RDC OFF"
540 OUTPUT @Agt4287a;":CALC:PAR1:FORM "&Para1$
550 OUTPUT @Agt4287a;":DISP:TEXT1:CALC2 OFF"
560 OUTPUT @Agt4287a;":DISP:TEXT1:CALC3 OFF"
570 OUTPUT @Agt4287a;":DISP:TEXT1:CALC4 OFF"
580 OUTPUT @Agt4287a;":DISP:TEXT1:CALC11 OFF"
590 OUTPUT @Agt4287a;":DISP:TEXT1:CALC12 OFF"
600 OUTPUT @Agt4287a;":DISP "&Disp$