Filter
Top Products
Calibration 83
Program Listing (continued)
520 OUTPUT @Ld;"*TRG"
530 IF Flag THEN WAIT 30
540 INPUT "Enter current through shunt for high point in amps",Trpt_curr
550 OUTPUT @Ld;"CAL:TLEV";Trpt_curr
560 OUTPUT @Ld;"TRAN OFF"
570 PRINT "Test unit to verify that transient values are in spec"
580 PRINT "Press CONT when ready to calibrate next range or mode"
590 PAUSE
600 SUBEND
610 !
620 SUB Cal_volt(@Ld,Chan,Volt_hipt,Volt_lopt)
630 PRINT "VOLTAGE CALIBRATION"
640 PRINT "Set power supply according to calibration information table"
650 PRINT "Press CONT when ready"
660 PAUSE
670 OUTPUT @Ld;"CHAN";Chan
680 OUTPUT @Ld;"MODE:VOLT"
690 OUTPUT @Ld;"VOLT";.05*Volt_hipt
700 WAIT 3
710 INPUT "Enter voltage across input terminals for low point in volts",Lopt_v
720 OUTPUT @Ld;"CAL:LEV:LOW";Lopt_volts
730 OUTPUT @Ld;"CAL:MEAS:LOW";Lopt_volts
740 OUTPUT @Ld;"VOLT";.85*Volt_hipt
750 WAIT 3
760 INPUT "Enter voltage across input terminals for high point in volts", Hipt_
770 OUTPUT @Ld;"CAL:LEV:HIGH";Hipt_volts
780 OUTPUT @Ld;"CAL:MEAS:HIGH";Hipt_volts
790 OUTPUT @Ld;"VOLT";Volt_lopt
800 WAIT 3
810 INPUT "Enter voltage across input terminals for low point in volts",Lopt_v
820 OUTPUT @Ld;"CAL:LEV:LOW";Lopt_volts
830 OUTPUT @Ld;"CAL:MEAS:LOW";Lopt_volts
840 OUTPUT @Ld;"VOLT";Volt_hipt
850 WAIT 3
860 INPUT "Enter voltage across input terminals for high point in volts", Hipt_
870 OUTPUT @Ld;"CAL:LEV:HIGH";Hipt_volts
880 OUTPUT @Ld;"CAL:MEAS:HIGH";Hipt_volts
890 PRINT "Test unit to verify that program and readback values are in spec"
900 PRINT "Press CONT when ready to calibrate transient level"
910 PAUSE
920 OUTPUT @Ld;"VOLT";Volt_lopt
930 OUTPUT @Ld;"TRAN:STAT ON;MODE TOGG;:TRIG:SOUR BUS"
940 OUTPUT @Ld;"VOLT:TLEV";Volt_hipt
950 OUTPUT @Ld;"*TRG"
960 INPUT "Enter voltage across input terminals for transient point in volts"
970 OUTPUT @Ld;"CAL:TLEV";Trpt_volts
980 OUTPUT @Ld;"TRAN OFF"
990 PRINT "test unit to verify that transient values are in spec"
1000 PRINT "Press CONT when ready to calibrate next mode"
1010 PAUSE
1020 SUBEND