Agilent Technologies 4294A Programming Manual page 206

Application Sample Programs
Measuring Dielectric Material
550 Meas: !
560 GOSUB Input_t
570 GOSUB Input_d
580 DISP "Create the electrode gap Tg. Press 'Continue' when ready"
590 PAUSE
600 GOSUB Input_tg
610 DISP "Insert MUT between electrodes and press 'Continue'"
620 PAUSE
630 GOSUB Sweep
640 FOR I=1 TO Nop
650 FOR J=1 TO 2
660 Cp_data2(I,J)=Cp_data(I,J)
670 D_data2(I,J)=D_data(I,J)
680 NEXT J
690 NEXT I
700 DISP "Remove MUT and press 'Continue'"
710 PAUSE
720 GOSUB Sweep
730 FOR I=1 TO Nop
740 FOR J=1 TO 2
750 Cp_data1(I,J)=Cp_data(I,J)
760 D_data1(I,J)=D_data(I,J)
770 NEXT J
780 NEXT I
790 GOSUB Calc
800 GOTO Display
810 !########################################## Sub-routines
820 Select_elec: !
830 PRINT TABXY(5,4);"->"
840 DISP "Which electrode of 16451B is used?
850 INPUT "",Ans
860 SELECT Ans
870 CASE 0
880 Elec$="A"
890 Adj_up_limit=Adj_up_limit_a
900 Adj_low_limit=Adj_low_limit_a
910 Load_up_limit=Load_up_limit_a
920 Load_low_limit=Load_lo_limit_a
930 CASE 1
940 Elec$="B"
950 Adj_up_limit=Adj_up_limit_b
960 Adj_low_limit=Adj_low_limit_b
970 Load_up_limit=Load_up_limit_b
980 Load_low_limit=Load_lo_limit_b
990 CASE ELSE
1000 GOTO Select_elec
1010 END SELECT
1020 DISP "The electrode ";Elec$;" is selected. OK?
1030 INPUT "",Ans
1040 IF Ans<>0 THEN Select_elec
1050 PRINT TABXY(2,4);"x]
1060 RETURN
1070 !
1080 Adapter_setup:!
1090 DISP "Perform the adapter setup?
1100 INPUT "",Ans
1110 IF Ans=1 THEN
1120 PRINT TABXY(2,5);"s]
1130 RETURN
1140 END IF
1150 F_adapt_setup=1
1160 OUTPUT @Agt4294a;"PRES"
1170 PRINT TABXY(5,5);"->"
1180 DISP "Set the 16451B OPEN condition and press 'Continue'."
206
0:A, 1:B";
"
0:Yes, 1:Skip";
"
0:OK, 1:No";
13