Specifications

62 Chapter 4
Preparing for Accurate Measurement
Running the Compensation Process
1250 PRINT "Set "&Standard$&"-Connection."
1260 INPUT "OK? [Y/N]",Inp_char$
1270 IF UPC$(Inp_char$)="Y" THEN
1280 OUTPUT @Agt4287a;"*CLS"
1290 OUTPUT @Agt4287a;"*OPC?"
1300 ENTER @Agt4287a;Buff$
1310 ON INTR Scode GOTO Meas_end
1320 ENABLE INTR Scode;2
1330 SELECT Standard$
1340 CASE "Open"
1350 OUTPUT @Agt4287a;":CORR2:COLL STAN1"
1360 CASE "Short"
1370 OUTPUT @Agt4287a;":CORR2:COLL STAN2"
1380 END SELECT
1390 OUTPUT @Agt4287a;":TRIG"
1400 PRINT "Now measuring..."
1410 Meas_wait: GOTO Meas_wait
1420 Meas_end: OFF INTR Scode
1430 Err_flag=0
1440 SELECT Standard$
1450 CASE "Open"
1460 OUTPUT @Agt4287a;":DATA:RCMD1?"
1470 ENTER @Agt4287a;Rdc
1480 PRINT "Rdc =";ABS(Rdc)
1490 IF ABS(Rdc)<Limit THEN Err_flag=1
1500 CASE "Short"
1510 OUTPUT @Agt4287a;":DATA:RCMD2?"
1520 ENTER @Agt4287a;Rdc
1530 PRINT "Rdc =";ABS(Rdc)
1540 IF ABS(Rdc)>Limit THEN Err_flag=1
1550 END SELECT
1560 IF Err_flag=0 THEN
1570 PRINT Standard$&" Data Measurement Complete"
1580 ELSE
1590 PRINT "ERROR!!"
1600 GOTO Compen_meas
1610 END IF
1620 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
1630 RETURN 0
1640 ELSE
1650 OUTPUT @Agt4287a;":TRIG:SOUR "&Trig_sour$
1660 PRINT "Program Interruption"
1670 RETURN -1
1680 END IF
1690 FNEND
1700 !=============================================
1710 ! Compensation Kit Setup Function
1720 !=============================================
1730 SUB Set_comp_kit(@Agt4287a)
1740 DIM Inp_char$[30],Para1$[9],Para2$[9]
1750 INTEGER Def,Nop,Load_para,Point
1760 REAL Open1,Open2,Open_dc
1770 REAL Shor1,Shor2,Shor_dc
1780 !
1790 ON ERROR GOTO Kit_select
1800 Kit_select: !
1810 PRINT "Select Compensation Kit Value"
1820 PRINT " 1: Default"
1830 PRINT " 2: User Defined"
1840 INPUT "Input 1 or 2",Inp_char$
1850 Kit=IVAL(Inp_char$,10)
1860 IF Kit<1 OR Kit>2 THEN Kit_select
1870 OFF ERROR
1880 !