Keysight N3300A - Page 95

B - Performance Test and Calibration
94
540 INPUT "Enter value of high range current shunt in ohms",Rshunt
550 DISP "You have entered ";Rshunt;" ohms"
560 INPUT "If correct enter 'Y' or press CONT, if wrong enter 'N' or 'n'",Y$
570 IF UPC$(Y$)="Y" OR Y$="" THEN 590
580 IF UPC$(Y$)="N" OR Y$="n" THEN 520
590 CLEAR SCREEN
600 !
610 OUTPUT @Ld;"CAL:IPR:LEV P1"
620 PRINT TABXY(20,20),"Calibrating IMON & IPROG P1 - 30 SECOND WAIT"
630 WAIT 30
640 CLEAR SCREEN
650 !
660 INPUT "Measure voltage across current shunt and enter in volts",Ip1
670 !
680 INPUT "Measure Imon voltage and enter in volts",Vimonp1
690 !
700 INPUT "Measure Iprog voltage and enter in volts",Viprogp1
710 !
720 Ip1=Ip1/Rshunt
730 !
740 OUTPUT @Ld;"CAL:DATA ";Ip1,Vimonp1,Viprogp1
750 !
760 OUTPUT @Ld;"CAL:IPR:LEV P2"
770 !
780 PRINT TABXY(20,20),"Calibrating IMON & IPROG P2 - 30 SECOND WAIT"
790 WAIT 30
800 CLEAR SCREEN
810 !
820 INPUT "Measure voltage across current shunt and enter in volts",Ip2
830 !
840 INPUT "Measure Imon voltage and enter in volts",Vimonp2
850 !
860 INPUT "Measure Iprog voltage and enter in volts",Viprogp2
870 !
880 Ip2=Ip2/Rshunt
890 !
900 OUTPUT @Ld;"CAL:DATA ";Ip2,Vimonp2,Viprogp2
910 !
920 PRINT "Set IPROG power source to 8.5 volts"
930 DISP "Press CONT when ready"
940 PAUSE
950 CLEAR SCREEN
960 !
970 OUTPUT @Ld;"CAL:IPR:LEV P3"
980 PRINT TABXY(20,20),"Calibrating IMON & IPROG P3 - 30 SECOND WAIT"
990 WAIT 30
1000 CLEAR SCREEN
1010 !
1020 INPUT "Measure voltage across current shunt and enter in volts",Ip3
1030 !
1040 INPUT "Measure Imon voltage and enter in volts",Vimonp3
1050 !
1060 INPUT "Measure Iprog voltage and enter in volts",Viprogp3
1070 !
1080 Ip3=Ip3/Rshunt
1090 !
1100 OUTPUT @Ld;"CAL:DATA ";Ip3,Vimonp3,Viprogp3