82 Calibration
Program Listing for "A" Modules (continued)
510 PRINT "VOLTAGE CALIBRATION"
520 PRINT "Set power supply according to module calibration table"
530 PRINT "Press CONTINUE when ready"
540 PAUSE
550 OUTPUT Load;"CHAN";Chan
560 OUTPUT Load;"MODE:VOLT"
570 OUTPUT Load;"VOLT";Volt_hipt
580 INPUT "Enter voltage across inputs for high point in volts",Hipt_volts
590 OUTPUT Load;"CAL:LEV:HIGH";Hipt_volts
600 OUTPUT Load;"CAL:MEAS:HIGH";Hipt_volts
610 OUTPUT Load;"VOLT";Volt_lopt
620 INPUT "Enter voltage across inputs for low point in volts",Lopt_volts
630 OUTPUT Load;"CAL:LEV:LOW";Lopt_volts
640 OUTPUT Load;"CAL:MEAS:LOW";Lopt_volts
650 PRINT "Test unit to verify that main and readback values are in spec"
660 PRINT "Press CONTINUE when ready to calibrate transient level"
670 PAUSE
680 OUTPUT Load;"VOLT";Volt_lopt
690 OUTPUT Load;"TRAN:MODE TOGG"
700 OUTPUT Load;"TRIG:SOUR BUS"
710 OUTPUT Load;"TRAN ON"
720 OUTPUT Load;"VOLT:TLEV";Volt_hipt
730 OUTPUT Load;"*TRG"
740 INPUT "Enter voltage across inputs for trans. point in volts",Trans_volts
750 OUTPUT Load;"CAL:TLEV";Trans_volts
760 OUTPUT Load;"TRAN OFF"
770 PRINT "Test unit to verify that transient values are in spec"
780 PRINT "Press CONTINUE when ready to calibrate next mode"
790 PAUSE
800 SUBEND
810 !
820 SUB Cal_res(Load,Chan,Res_rng,Res_hipt,Res_lopt,Flag)
830 PRINT "RESISTANCE CALIBRATION, RANGE ";Res_rng
840 PRINT "Set power supply according to module calibration table"
850 PRINT "Press CONTINUE when ready"
860 PAUSE
870 OUTPUT Load;"CHAN";Chan
880 OUTPUT Load;"MODE:RES"
890 OUTPUT Load;"RES:RANG";Res_rng
900 OUTPUT Load;"RES";Res_hipt
910 INPUT "Enter voltage across inputs for high point in volts",Hipt_volt
920 INPUT "Enter current through shunt for high point in amps",Hipt_curr
930 Hipt_res=Hipt_volt/Hipt_curr
940 OUTPUT Load;"CAL:LEV:HIGH";Hipt_res
950 OUTPUT Load;"RES";Res_lopt
960 INPUT "Enter voltage across inputs for low point in volts",Lopt_volt
970 INPUT "Enter current through shunt for low point in amps",Lopt_curr
980 Lopt_res=Lopt_volt/Lopt_curr
990 OUTPUT Load;"CAL:LEV:LOW";Lopt_res
1000 PRINT "Test unit to verify that main values are in spec"
1010 PRINT "Press CONTINUE when ready to calibrate transient level"
1020 PAUSE