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