Program Listing
10 | ASSIGN @Ld TO 705 |
20 | Chan=l |
30 | OUTPUT @Ld;”CHAN”;Chan;”;CAL ON" |
40 | Cal_curr(@Ld,Chan,Hi_curr_rng,Hi_curr_offset,l) |
50 | Cal_curr(@Ld,Chan,Lo_curr_rng,Lo_curr_offset,0) |
60 | Cal_volt(@Ld,Chan,Volt_hipt,Volt_lopt) |
70 | Cal_res(@Ld,Chan,Lo_res_rng,Lo_res_hipt,Lo_res_lopt,0) |
80Cal_res(@Ld,Chan,Mid_res_rng,Mid_res_hipt,Mid_res_lopt,l)
90Cal_res(@Ld,Chan,Hi_res_rng,Hi_res_hipt,Hi_res_lopt,1)
100OUTPUT @Ld;"CAL:SAV"
110OUTPUT @Ld;"CAL OFF"
120END
130!
140SUB Cal_curr(@Ld,Chan,Curr_rng,Curr_offset,Flag)
150PRINT "CURRENT CALIBRATION, RANGE ";Curr_rng
160PRINT "Set power supply according to calibration information table"
170PRINT "Use the correct current shunt for the range you are calibrating"
180PRINT "Press CONT when ready"
190PAUSE
200OUTPUT @Ld;"CHAN";Chan
210OUTPUT @Ld;"MODE:CURR"
220OUTPUT @Ld;"CURR:RANG";Curr_rng
230OUTPUT @Ld;"CURR";.05*Curr_rng
240INPUT "Enter current through shunt for low point in amps",Lopt_curr
250OUTPUT @Ld;"CAL:LEV:LOW";Lopt_curr
260OUTPUT @Ld;"CURR";.85*Curr_rng
270IF Flag THEN WAIT 25
280INPUT "Enter current through shunt for high point in amps",Hipt_curr
290OUTPUT @Ld;"CAL:LEV:HIGH";Hipt_curr
300OUTPUT @Ld;"CURR";Curr_rng
310INPUT "Enter current through shunt for high point in amps",Hipt_curr
320OUTPUT @Ld;"CAL:LEV:HIGH";Hipt_curr
330IF Flag THEN OUTPUT @Ld;"CAL:MEAS:HIGH";Hipt_curr
340IF Flag THEN WAIT 25
350IF Flag THEN
360OUTPUT @Ld;"CURR";4*(Curr_rng/3750)
370 | WAIT 1 |
380INPUT "Enter current through shunt for low point in amps",Lopt_curr
390OUTPUT
400OUTPUT @Ld;"CAL:MEAS:HIGH";Lopt_curr
410ELSE
420OUTPUT @Ld;"CURR";10*(Curr_rng/3750)
430INPUT "Enter current through shunt for low point in amps",Lopt_curr
440OUTPUT
450 | END IF |
460PRINT "Test unit to verify that program and readback values are in spec"
470PRINT "Press CONT when ready to calibrate transient levels
480PAUSE
490OUTPUT @Ld;"CURR";.05*Curr_rng
500OUTPUT @Ld;"TRAN:STAT ON;MODE TOGG;:TRIG:SOUR BUS"
510OUTPUT @Ld;"CURR:TLEV";.85*Curr_rng