Specifications

Chapter 4 79
Preparation for Accurate Measurement
Calibration
4. Preparation for Accurate Measurement
Lines 1220 - 1230 Sets the bit 0 of the operation status event register at 1 only when the
operation status condition register bit 0 transits from 1 to 0 (negative
transition).
Lines 1240 - 1250 Sets bit 0 of the operation status event register as effective and, upon
completion of calibration, sets bit 7 of the status byte register as
effective.
Lines 1260 - 1270 Sets the branch for the SRQ interruption and enables SRQ
interruption.
Lines 1280 - 1370 Sends the command for calibration of the standard specified by the
variable Standard$ and measures the calibration data.
Lines 1380 - 1390 Displays a message indicating measurement that is in progress and
waits for the completion of the measurement.
Lines 1410 - 1570 Checks whether a GPIB error occurred in the E4991A during
measurement. If no error occurred, displays a message indicating
completion of measurement and returns a value of 0 from the function
sub-program. However, if there was an error, an error message and a
measurement halt message are displayed and a value of -1 is returned
from the function sub-program.
Lines 1620 - 1630 Prompts input of the standard value of the user-defined calibration kit
specified by the variable Mes$ and waits for the input.
Lines 1640 - 1670 Displays the input value and waits for input (made by using the [Y/N]
keys) on whether it is accurate. If a key other than
[Y] or [y] is pressed,
it returns to the first line of the input.
Example 4-1 Measurement of data for calibration (HTBasic)
10 DIM Inp_char$[9],Buff$[9],File$[20]
20 DIM Cal_kit$[7],Cal_point$[9]
30 DIM Cal_a1(1:801,1:2),Cal_a2(1:801,1:2)
40 DIM Cal_b1(1:801,1:2),Cal_b2(1:801,1:2)
50 DIM Cal_c1(1:801,1:2),Cal_c2(1:801,1:2)
60 REAL
Open_g,Open_c,Short_r,Short_l,Load_r,Load_l,Load_q,Load_c,Load_d
70 INTEGER Inp_no,Result,Nop_cal,Data_size
80 !
90 CLEAR SCREEN
100 ASSIGN @Agte4991a TO 717
110 !
120 ! Initial Setting
130 !
140 Cal_kit$="DEF" ! DEF/USER
150 Cal_point$="FIX" ! FIX/FUS/USER
160 !
170 OUTPUT @Agte4991a;"SENS:CORR1:CKIT "&Cal_kit$
180 OUTPUT @Agte4991a;"SENS:CORR1:COLL:FPO "&Cal_point$
190 !
200 IF Cal_kit$="USER" THEN ! Entry Value of User Define Std.
210 !
220 OUTPUT @Agte4991a;"SENS:CORR1:CKIT:LIST OFF"
230 !
240 ! Entry Open Std. Value (G-C)
250 !