B - Performance Test and Calibration
100
550 PRINT TABXY(10,12);"Set power source to voltage and current settings from
Table B-2"
560 PRINT TABXY(10,13);"for resistance range 1 - Point P2"
570 DISP "Press Cont to continue resistance range 1 calibration"
580 PAUSE
590 OUTPUT @Ld;"CAL:LEV P2"
600 CLEAR SCREEN
610 PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE 1 - P2 - 30 SECOND WAIT”
620 WAIT 30
630 INPUT "Measure voltage across current shunt - enter value in volts",Vp2
640 Ip2=Vp2/Rshunt1
650 INPUT "Measure voltage across +/- sense terminals and enter value in
volts",Vt2
660 Rp2=Vt2/Ip2
670 OUTPUT @Ld;"CAL:DATA";Rp2
680 OUTPUT @Ld;"INP:STAT OFF"
690 !
700 ! ********** CALIBRATING RANGE 2 ******************
710 !
720 CLEAR SCREEN
730 INPUT "Enter value of current shunt for range 2 in OHMS",Rshunt2
740 PRINT TABXY(10,10);"You have entered ";Rshunt2;" ohms"
750 INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$
760 IF UPC$(Y$)="Y" OR Y$="" THEN 780
770 IF UPC$(Y$)="N" OR Y$="n" THEN 720
780 CLEAR SCREEN
790 !
800 PRINT TABXY(10,12);"Set power source to voltage and current settings from"
810 PRINT TABXY(10,13);"Table B-1 for resistance range 2 - Point P1"
820 DISP "Press CONT when ready to calibrate resistance range 2"
830 PAUSE
840 CLEAR SCREEN
850 PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE 2 - P1 - 15 SECOND WAIT"
860 OUTPUT @Ld;"INP:STAT ON"
870 OUTPUT @Ld;"RES:RANG 20" !< resistance range 2 variable from table B-1
880 OUTPUT @Ld;"CAL:LEV P1"
890 WAIT 15
900 INPUT "Measure voltage across current shunt - enter value in volts",Vp1
910 Ip1=Vp1/Rshunt2
920 INPUT "Measure voltage across +/- sense terminals and enter value in
volts",Vt1
930 Rp1=Vt1/Ip1
940 OUTPUT @Ld;"CAL:DATA";Rp1
950 !
960 CLEAR SCREEN
970 PRINT TABXY(10,12);"Set power source to voltage and current settings from
Table B-2"
980 PRINT TABXY(10,13);"for resistance range 2 - Point P2"
990 DISP "Press Cont to continue resistance range 2 calibration"
1000 PAUSE
1010 OUTPUT @Ld;"CAL:LEV P2"
1020 CLEAR SCREEN
1030 PRINT TABXY(9,15);"CALIBRATING RESISTANCE RANGE 2 - P2 - 15 SECOND WAIT"
1040 WAIT 15
1050 INPUT "Measure voltage across current shunt - enter value in volts",Vp2
1060 Ip2=Vp2/Rshunt2
1070 INPUT "Measure voltage across +/- sense terminals and enter value in
volts",Vt2
To Next Page
Loading...
