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 |
