|
|
| Performance Test and Calibration - B |
1110 | ! |
|
|
1120 | OUTPUT @Ld;"CAL:IPR:LEV P4" |
| |
1130 | ! |
|
|
1140 | PRINT TABXY(20,20),"Calibrating IMON & IPROG P4 - 30 SECOND WAIT" | ||
1150 | WAIT 30 |
|
|
1160 | CLEAR SCREEN |
|
|
1170 | ! |
|
|
1180 | INPUT "Measure voltage across current shunt and enter in volts",Ip4 | ||
1190 | ! |
|
|
1200 | INPUT "Measure Imon voltage and enter in volts",Vimonp4 | ||
1210 | ! |
|
|
1220 | INPUT "Measure Iprog voltage and enter in volts",Viprogp4 | ||
1230 | ! |
|
|
1240 | Ip4=Ip4/Rshunt |
| |
1250 | ! |
|
|
1260 | OUTPUT @Ld;"CAL:DATA ";Ip4,Vimonp4,Viprogp4 |
| |
1270 | ! |
|
|
1280 | ! ******* | Calibrating Main Current DAC | ******** |
1290 | ! |
|
|
1300 | PRINT TABXY(10,10),"Disconnect instruments from IMON and IPROG terminals" | ||
1310 | DISP "Press CONT when ready to calibrate main current ADC" | ||
1320 | PAUSE |
|
|
1330 | ! |
|
|
1340 | CLEAR SCREEN |
|
|
1350 | OUTPUT @Ld;"CAL:LEV P1" |
| |
1360 | PRINT TABXY(10,20),"Calibrating high current range P1 - 30 SECOND WAIT" | ||
1370 | WAIT 30 |
|
|
1380 | CLEAR SCREEN |
|
|
1390 | ! |
|
|
1400 | INPUT "Measure voltage across current shunt and enter in volts",Ip1 | ||
1410 | ! |
|
|
1420 | Ip1=Ip1/Rshunt |
| |
1430 | ! |
|
|
1440 | OUTPUT @Ld;"CAL:DATA ";Ip11450 !1460 | OUTPUT @Ld;"CAL:LEV P2" | |
1470 | ! |
|
|
1480 | PRINT TABXY(10,10),"Calibrating high current range P2 - 30 SECOND WAIT" | ||
1490 | WAIT 30 |
|
|
1500 | CLEAR SCREEN |
|
|
1510 | ! |
|
|
1520 | INPUT "Measure voltage across current shunt and enter in volts",Ip2 | ||
1530 | ! |
|
|
1540 | Ip2=Ip2/Rshunt |
| |
1550 | ! |
|
|
1560 | OUTPUT @Ld;"CAL:DATA ";Ip2 |
| |
1570 | ! |
|
|
1580 | OUTPUT @Ld;"INP:STAT OFF" |
| |
1590 | OUTPUT @Ld;"CURR:RANG MIN" |
| |
1600 | OUTPUT @Ld;"SENS:CURR:RANG MIN" |
| |
1610 | ! |
|
|
1620 | CLEAR SCREEN |
|
|
1630 | ! |
|
|
1640 | INPUT "Enter value of low range current shunt in ohms",Rshuntl | ||
1650 | DISP "You have entered ";Rshuntl;" ohms" |
| |
1660 | INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$ | ||
1670 | IF UPC$(Y$)="Y" OR Y$="" THEN 1690 |
| |
1680 | IF UPC$(Y$)="N" OR Y$="n" THEN 1620 |
|
93