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

Calibration 83

Page 83
Image 83
Agilent Technologies 5951-2827, 5951-2826 manual Pause Subend, Print Voltage Calibration