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