Filter
Top Products
Calibration 81
Program Listing for "A" Modules
10 Load=705
20 Chan= 1
30 OUTPUT Load;"CHAN";Chan;";CAL ON"
40 Cal_curr(Load,Chan,Hi_curr_rng,Hi_curr_hipt,Hi_curr_lopt,l);
50 Cal_curr(Load,Chan,Lo_curr_rngLo_cu,rr_hipt,Lo_curr_lopt,0)
60 Cal_volt(Load,Chan,Volt_hipt,Volt_lopt)
70 Cal_res(Load,Chan,Lo_res_rng,Lo_res_hipt,Lo_res_lopt,0)
80 Cal_res.(Load,Chan,Mid_res_rng,Mid_res_hipt,Mid_res_lopt,l)
90 Cal_res(Load,Chan,Hi_res_rng,Hi_res_hipt,Hi_res lopt,l),
100 OUTPUT Load;l"CAL:SAVE"
110 OUTPUT Load;"CAL OFF"
120 END
130 !
140 SUB Cal_curr(Load,Chan,Curr_rng,Curr_hipt,Curr_lopt,Flag)
150 PRINT "CURRENT CALIBRATION, RANGE ";Curr_rng
160 PRINT "Set power supply according to module calibration table"
170 PRINT "Use the correct current shunt for the range you are calibrating"
180 PRINT "Press CONTINUE when ready"
190 PAUSE
200 OUTPUT Load;"CHAN";Chan
210 OUTPUT Load;"MODE:CURR"
220 OUTPUT Load;"CURR:RANG";Curr_rng
230 OUTPUT Load;"CURR";Curr_hipt
240 IF Flag THEN WAIT 30
250 INPUT "Enter current through shunt for high point in amps",Hipt_curr
260 OUTPUT Load;"CAL:LEV:HIGH";Hipt_curr
270 IF Flag THEN OUTPUT Load;"CAL:MEAS:HIGH";Hipt_curr
280 OUTPUT Load;"CURR";Curr_lopt
290 INPUT "Enter current through shunt for low point in amps",Lopt_curr
300 OUTPUT Load;"CAL:LEV:LOW";Lopt_curr
310 IF Flag THEN OUTPUT Load;"CAL:MEAS:LOW";Lopt_curr
320 PRINT "Test unit to verify that main (and readback) values are in spec"
330 PRINT "Press CONTINUE when ready to calibrate transient level"
340 PAUSE
350 OUTPUT Load;"CURR";Curr_lopt
360 OUTPUT Load;"TRAN:MODE TOGG"
370 OUTPUT Load;"TRIG:SOUR BUS"
380 OUTPUT Load;"TRAN ON"
390 OUTPUT Load;"CURR:TLEV";Curr_hipt
400 OUTPUT Load;"*TRG"
410 IF Flag THEN WAIT 30
420 INPUT "Enter current through shunt for transient point in amps",Trans_curr
430 OUTPUT Load;"CAL:TLEV";Trans_curr
440 OUTPUT Load;"TRAN OFF"
450 PRINT "Test unit to verify that transient values are in spec"
460 PRINT "Press CONTINUE when ready to calibrate next range or mode"
470 PAUSE
480 SUBEND
490 !
500 SUB Cal_volt(Load,Chan,Volt_hipt,Volt_lopt)