Filter
Top Products
Performance Test and Calibration - B
97
RESISTANCE Calibration Program
10 ! This program calibrates the resistance mode
20 ! for load modules N3302A, N3303A, N3304A, N3305A and N3306A.
30 !
40 ! last update 9/27/00
50 !
60 ! The variables for the module to be calibrated must be inserted
70 ! in the program where a < variable > is encountered. See Table B-1
80 ! for variables for the module you are calibrating.
90 !
100 ! NOTE: Delete lines 1540 to 1940 for module Model N3303
110 !
120 ! Edit the interface address on line 100 if different then 705
130 !
140 ASSIGN @Ld TO 705
150 !
160 OUTPUT @Ld;"*RST"
170 OUTPUT @Ld;"CAL:STAT ON"
180 OUTPUT @Ld;"FUNC RES"
190 OUTPUT @Ld;"INP:STAT ON"
200 !
210 PRINT TABXY(10,8);"See figure B-4 for resistance calibration set-up"
220 PRINT TABXY(10,10);"Connect power leads to input terminals"
230 PRINT TABXY(10,12);"Connect +/- sense to +/- input terminal"
240 PRINT TABXY(10,14);"Connect one DVM to +/- sense terminals"
250 PRINT TABXY(10,16);"Connect second DVM across current shunt"
260 DISP "Press CONT when ready to continue"
270 PAUSE
280 !
290 ! ******** CALIBRATING RANGE 1 ****************
300 !
310 CLEAR SCREEN
320 INPUT "Enter value of current shunt for range 1 in OHMS",Rshunt1
330 PRINT TABXY(10,10);"You have entered ";Rshunt1;" ohms"
340 INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$
350 IF UPC$(Y$)="Y" OR Y$="" THEN 370
360 IF UPC$(Y$)="N" OR Y$="n" THEN 310
370 CLEAR SCREEN
380 !
390 PRINT TABXY(10,12);"Turn on and set power source to voltage and current
settings from"
400 PRINT TABXY(10,13);"Table B-1 for resistance range 1 - Point P1"
410 DISP "Press CONT when ready to calibrate resistance range 1"
420 PAUSE
430 CLEAR SCREEN
440 PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE1-P1-30SECOND WAIT"
450 OUTPUT @Ld;"RES:RANG 1"
460 OUTPUT @Ld;"CAL:LEV P1"
470 WAIT 30
480 INPUT "Measure voltage across current shunt - enter value in volts",Vp1
490 Ip1=Vp1/Rshunt1
500 INPUT "Measure voltage across +/- sense terminals and enter value in
volts",Vt1
510 Rp1=Vt1/Ip1
520 OUTPUT @Ld;"CAL:DATA";Rp1
530 !
540 CLEAR SCREEN