Program Listing for "B" Modules
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"
120CLEAR SCREEN
130PRINT TABXY(10,10);"CALIBRATION DONE"
140END
150!
160SUB Cal_curr(@Ld,Chan,Curr_rng,Curr_offset,Flag)
170PRINT "CURRENT CALIBRATION, RANGE ";Curr_rng
180PRINT "Set power supply according to calibration information table"
190PRINT "Use the correct current shunt for the range you are calibrating"
200PRINT "Press CONT when ready"
210PAUSE
220OUTPUT @Ld;"CHAN";Chan
230OUTPUT @Ld;"MODE:CURR"
240OUTPUT @Ld;"CURR:RANG";Curr_rng
250OUTPUT @Ld;"CURR";.05*Curr_rng
260INPUT "Enter current through shunt for low point in amps",Lopt_curr
270OUTPUT @Ld;"CAL:LEV:LOW";Lopt_curr
280OUTPUT @Ld;"CURR";.85*Curr_rng
290IF Flag THEN WAIT 25
300INPUT "Enter current through shunt for high point in amps",Hipt_curr
310OUTPUT @Ld;"CAL:LEV:HIGH";Hipt_curr
320OUTPUT @Ld;"CURR";Curr_rng
330INPUT "Enter current through shunt for high point in amps",Hipt_curr
340OUTPUT @Ld;"CAL:LEV:HIGH";Hipt_curr
350IF Flag THEN OUTPUT @Ld;"CAL:MEAS:HIGH";Hipt_curr
360IF Flag THEN
370OUTPUT @Ld;"CURR";4*(Curr_rng/3750)
380WAIT 25
390INPUT "Enter current through shunt for low point in amps",Lopt_curr
400OUTPUT
410OUTPUT @Ld;"CAL:MEAS:LOW";Lopt_curr
420ELSE
430OUTPUT @Ld;"CURR";10*(Curr_rng/3750)
440INPUT "Enter current through shunt for low point in amps",Lopt_curr
450OUTPUT
460 | END IF |
470PRINT "Test unit to verify that program and readback values are in spec"
480PRINT "Press CONT when ready to calibrate transient levels
490PAUSE
500OUTPUT @Ld;"CURR";.05*Curr_rng
510OUTPUT @Ld;"TRAN:STAT ON;MODE TOGG;:TRIG:SOUR BUS"
520OUTPUT @Ld;"CURR:TLEV";.85*Curr_rng