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
To Next Page
Loading...
Need help?
General
