Filter
Top Products
90 Calibration
Program Listing for "B" Modules (continued)
1040 !
1050 SUB Cal_res(@Ld,Chan,Res_rng,Res_hipt,Res_lopt,Flag)
1060 PRINT "RESISTANCE CALIBRATION, RANGE";Res_rng
1070 PRINT "Set power supply to calibration information table"
1080 PRINT "Press CONT when ready to continue"
1090 PAUSE
1100 OUTPUT @Ld;"CHAN";Chan
1110 OUTPUT @Ld;"MODE:RES"
1120 OUTPUT @Ld;"RES:RANG";Res_rng
1130 OUTPUT @Ld;"RES";Res_hipt
1140 INPUT "Enter voltage across input terminals in volts",Hipt_volt
1150 INPUT "Enter current through current shunt in amps”,Hipt_curr
1160 Hipt_res=Hipt_volt/Hipt_curr
1170 OUTPUT @Ld;"CAL:LEV:HIGH";Hipt_res
1180 OUTPUT @Ld;"RES";Res_lopt
1190 INPUT "Enter voltage across input terminals in volts",Lopt_volt
1200 INPUT "Enter current through current shunt in amps",Lopt_curr
1210 Lopt_res=Lopt_volt/Lopt_curr
1220 OUTPUT @Ld;"CAL:LEV:LOW;Lopt_res
1230 PRINT "Test unit to verify resistance values"
1240 PRINT "Press CONT when ready to calibrate transient level"
1250 PAUSE
1260 IF Flag THEN
1270 OUTPUT @Ld;"RES";Res_hipt
1280 ELSE
1290 OUTPUT @Ld;"RES";Res_lopt
1300 END IF
1310 OUTPUT @Ld;"TRAN:STAT ON;MODE TOGG;:TRIG:SOUR BUS"
1320 IF Flag THEN
1330 OUTPUT @Ld;"RES:TLEV";Res_lopt
1340 ELSE
1350 OUTPUT @Ld;"RES:TLEV";Res_hipt
1360 END IF
1370 OUTPUT @Ld;"*TRG"
1380 INPUT "Enter voltage across input terminals in volts",Tran_volt
1390 INPUT "Enter current through current shunt in amps",Tran_curr
1400 Tran_res=Tran_volt/Tran_curr
1410 OUTPUT @Ld;"CAL:TLEV";Tran_res
1420 OUTPUT @Ld;"TRAN OFF"
1430 PRINT "Test unit to verify transient values are in spec"
1440 PRINT "Press CONT when ready to end program or calibrate next range"
1450 PAUSE
1460 SUBEND