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