Filter
Top Products
Performance Test and Calibration - B
99
1080 Rp2=Vt2/Ip2
1090 OUTPUT @Ld;"CAL:DATA";Rp2
1100 OUTPUT @Ld;"INP:STAT OFF"
1110 !
1120 ! ************ CALIBRATING RANGE 3 ******************
1130 !
1140 CLEAR SCREEN
1150 INPUT "Enter value of current shunt for range 3 in OHMS",Rshunt3
1160 PRINT TABXY(10,10);"You have entered ";Rshunt3;" ohms"
1170 INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$
1180 IF UPC$(Y$)="Y" OR Y$="" THEN 1200
1190 IF UPC$(Y$)="N" OR Y$="n" THEN 1140
1200 CLEAR SCREEN
1210 !
1220 PRINT TABXY(10,12);"Set power source to voltage and current settings from"
1230 PRINT TABXY(10,13);"Table B-1 for resistance range 3 - Point P1"
1240 DISP "Press CONT when ready to calibrate resistance range 3"
1250 PAUSE
1260 CLEAR SCREEN
1270 PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE3-P1-7SECOND WAIT"
1280 OUTPUT @Ld;"INP:STAT ON"
1290 OUTPUT @Ld;"RES:RANG 200" !< resistance range 3 variable from table B-1
1300 OUTPUT @Ld;"CAL:LEV P1"
1310 WAIT 7
1320 INPUT "Measure voltage across current shunt - enter value in volts",Vp1
1330 Ip1=Vp1/Rshunt3
1340 INPUT "Measure voltage across +/- sense terminals and enter value in
volts",Vt1
1350 Rp1=Vt1/Ip1
1360 OUTPUT @Ld;"CAL:DATA";Rp1
1370 !
1380 CLEAR SCREEN
1390 PRINT TABXY(10,12);"Set power source to voltage and current settings from
Table B-2"
1400 PRINT TABXY(10,13);"for resistance range 3 - Point P2"
1410 DISP "Press Cont to continue resistance range 3 calibration"
1420 PAUSE
1430 OUTPUT @Ld;"CAL:LEV P2"
1440 CLEAR SCREEN
1450 PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE3-P2-7SECOND WAIT"
1460 WAIT 7
1470 INPUT "Measure voltage across current shunt - enter value in volts",Vp2
1480 Ip2=Vp2/Rshunt3
1490 INPUT "Measure voltage across +/- sense terminals and enter value in
volts",Vt2
1500 Rp2=Vt2/Ip2
1510 OUTPUT @Ld;"CAL:DATA";Rp2
1520 OUTPUT @Ld;"INP:STAT OFF"
1530 !
1540 ! ************ CALIBRATING RANGE 4 *********************
1550 !
1560 CLEAR SCREENF1570 INPUT "Enter value of current shunt for range 4 in
OHMS",Rshunt4
1580 PRINT TABXY(10,10);"You have entered ";Rshunt4;" ohms"
1590 INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$
1600 IF UPC$(Y$)="Y" OR Y$="" THEN 1620
1610 IF UPC$(Y$)="N" OR Y$="n" THEN 1560