Performance Test and Calibration - B
95
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 ";Ip1
1450 !
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 "Disconnect high range current shunt. Connect low range current shunt.
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
To Next Page
Loading...
