Specifications

Chapter 4 63
Preparing for Accurate Measurement
Running the Compensation Process
4. Preparing for Accurate
Measurement
1890 IF Kit=1 THEN
1900 OUTPUT @Agt4287a;":CORR2:CKIT DEF"
1910 ELSE
1920 OUTPUT @Agt4287a;":CORR2:CKIT USER"
1930 !
1940 ON ERROR GOTO Def_select
1950 Def_select:!
1960 PRINT "Select Definition Type"
1970 PRINT " 1: Fixed"
1980 PRINT " 2: Not Fixed"
1990 INPUT "Input 1 or 2",Inp_char$
2000 Def=IVAL(Inp_char$,10)
2010 IF Def<1 OR Def>2 THEN Def_select
2020 OFF ERROR
2030 SELECT Def
2040 CASE 1
2050 OUTPUT @Agt4287a;":CORR2:CKIT:LIST OFF"
2060 Nop=1
2070 CASE 2
2080 OUTPUT @Agt4287a;":CORR2:CKIT:LIST ON"
2090 OUTPUT @Agt4287a;":SOUR:LIST:SIZE?"
2100 ENTER @Agt4287a;Nop
2110 END SELECT
2120 !
2130 FOR Point=1 TO Nop
2140 IF Nop>1 THEN
2150 PRINT "[Point No."&VAL$(Point)&"]"
2160 END IF
2170 CALL Inp_data("Open(G) Value",Open1)
2180 CALL Inp_data("Open(Cp) Value",Open2)
2190 CALL Inp_data("Short(Rs) Value",Shor1)
2200 CALL Inp_data("Short(Ls) Value",Shor2)
2210 OUTPUT @Agt4287a;":CORR2:CKIT:STAN1:LIST ";Point;",";Open1;","
;Open2
2220 OUTPUT @Agt4287a;":CORR2:CKIT:STAN2:LIST ";Point;",";Shor1;","
;Shor2
2230 NEXT Point
2240 !
2250 PRINT "Do
you want to define standard values for Rdc measurement?"
2260 INPUT "[Y]es/[N]o",Inp_char$
2270 IF UPC$(Inp_char$)="Y" OR UPC$(Inp_char$)="YES" THEN
2280 CALL Inp_data("Open(G) Value for Rdc Measurement",Open_dc)
2290 CALL Inp_data("Short(R) Value for Rdc Measurement",Shor_dc)
2300 OUTPUT @Agt4287a;":CORR2:CKIT:STAN1:DC ";Open_dc
2310 OUTPUT @Agt4287a;":CORR2:CKIT:STAN2:DC ";Shor_dc
2320 END IF
2330 END IF
2340 !
2350 SUBEND
2360 !=============================================
2370 ! Test Fixture Setting Function
2380 !=============================================
2390 SUB Set_fixture(@Agt4287a)
2400 DIM Inp_char$[30]
2410 INTEGER Fixture
2420 REAL E_len
2430 !
2440 ON ERROR GOTO Fixture_select
2450 Fixture_select: !
2460 PRINT "Select Test Fixture"
2470 PRINT " 1: None"
2480 PRINT " 2: 16191A"
2490 PRINT " 3: 16192A"
2500 PRINT " 4: 16193A"