|
|
|
| Performance Test and Calibration - B | |
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 |
| |||
1240 | DISP "Press CONT when ready to calibrate resistance range 3" |
| |||
1250 | PAUSE |
|
|
|
|
1260 | CLEAR SCREEN |
|
|
| |
1270 | PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE 3 - P1 - 7 SECOND WAIT" | ||||
1280 | OUTPUT @Ld;"INP:STAT ON" |
|
| ||
1290 | OUTPUT @Ld;"RES:RANG 200" !< resistance range 3 variable from table | ||||
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 |
|
|
| |
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 RANGE 3 - P2 - 7 SECOND | 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 |
|
|
99