B - Performance Test and Calibration
1620 | CLEAR | SCREEN |
|
1630 | ! |
|
|
1640 | TABXY(10,12);"Set power source to voltage and current settings from" | ||
1650 | TABXY(10,13);"Table |
| |
1660 | DISP "Press CONT when ready to calibrate resistance range 4" |
| |
1670 | PAUSE |
|
|
1680 | CLEAR | SCREEN |
|
1690 | TABXY(9,15);"CALIBRATING RESISTANCE RANGE 4 - P1 - 3 SECOND WAIT" | ||
1700 | OUTPUT @Ld;"INP:STAT ON" |
| |
1710 | OUTPUT @Ld;"RES:RANG 2000"!< resistance range 4 variable from table | ||
1720 | OUTPUT @Ld;"CAL:LEV P1" |
| |
1730 | WAIT 3 |
|
|
1740 | INPUT | "Measure voltage across current shunt - enter value in volts",Vp1 | |
1750 | Ip1=Vp1/Rshunt4 |
| |
1760 | INPUT | "Measure voltage across +/- sense terminals and enter value in |
|
| volts",Vt1 |
| |
1770 | Rp1=Vt1/Ip1 |
| |
1780 | OUTPUT @Ld;"CAL:DATA";Rp1 |
| |
1790 | ! |
|
|
1800 | CLEAR | SCREEN |
|
1810 | TABXY(10,12);"Set power source to voltage and current settings from | ||
| Table |
| |
1820 | TABXY(10,13);"for resistance range 4 - Point P2" |
| |
1830 | DISP "Press Cont to continue resistance range 4 calibration" |
| |
| 1840 | PAUSE |
|
1850 | OUTPUT @Ld;"CAL:LEV P2" |
| |
1860 | CLEAR | SCREEN |
|
1870 | TABXY(9,15);"CALIBRATING RESISTANCE RANGE 4 - P2 - 3 SECOND | WAIT" | |
1880 | WAIT 3 |
|
|
1890 | INPUT | "Measure voltage across current shunt - enter value in volts",Vp2 | |
1900 | Ip2=Vp2/Rshunt4 |
| |
1910 | INPUT | "Measure voltage across +/- sense terminals and enter value in |
|
| volts",Vt2 |
| |
1920 | Rp2=Vt2/Ip2 |
| |
1930 | OUTPUT @Ld;"CAL:DATA";Rp2 |
| |
1940 | OUTPUT @Ld;"INP:STAT OFF" |
| |
1950 | ! |
|
|
1960 | OUTPUT @Ld;"CAL:SAVE" |
| |
1970 | OUTPUT @Ld;"CAL:STAT OFF" |
| |
1980 | ! |
|
|
1990 | CLEAR | SCREEN |
|
2000 | TABXY(10,10);"Resistance calibration adjustments complete" |
| |
2010 | TABXY(10,12);"Verify Resistance Adjustments" |
| |
2020 | END |
|
|