Agilent Technologies 4294A Programming Manual page 203

3630 OUTPUT @Agt4294a;"HIDI OFF;SPLD ON"
3640 OUTPUT @Agt4294a;"TRAC A"
3650 OUTPUT @Agt4294a;"INPUDTRC ";
3660 FOR I=1 TO Nop
3670 OUTPUT @Agt4294a;Erm_data(I,1),Erm_data(I,2);
3680 NEXT I
3690 OUTPUT @Agt4294a;""
3700 OUTPUT @Agt4294a;"AUTO"
3710 OUTPUT @Agt4294a;"TRAC B"
3720 FOR I=1 TO Nop
3730 OUTPUT @Agt4294a;"INPUDTRC ";
3740 OUTPUT @Agt4294a;D_data(I,1),D_data(I,2);
3750 NEXT I
3760 OUTPUT @Agt4294a;""
3770 OUTPUT @Agt4294a;"AUTO"
3780 OUTPUT @Agt4294a;"TRAC A"
3790 BEEP
3800 DISP "A: |er| B: tan d
3810 RETURN
3820 !
3830 Disp_er_ei: !
3840 DISP "Now loading data..."
3850 OUTPUT @Agt4294a;"MEAS CPD"
3860 OUTPUT @Agt4294a;"HIDI OFF;SPLD ON"
3870 OUTPUT @Agt4294a;"TRAC A"
3880 OUTPUT @Agt4294a;"INPUDTRC ";
3890 FOR I=1 TO Nop
3900 OUTPUT @Agt4294a;Err_data(I,1),Err_data(I,2);
3910 NEXT I
3920 OUTPUT @Agt4294a;""
3930 OUTPUT @Agt4294a;"AUTO"
3940 OUTPUT @Agt4294a;"TRAC B"
3950 FOR I=1 TO Nop
3960 OUTPUT @Agt4294a;"INPUDTRC ";
3970 OUTPUT @Agt4294a;Eri_data(I,1),Eri_data(I,2);
3980 NEXT I
3990 OUTPUT @Agt4294a;""
4000 OUTPUT @Agt4294a;"AUTO"
4010 OUTPUT @Agt4294a;"TRAC A"
4020 BEEP
4030 DISP "A: er' B: er''
4040 RETURN
4050 !
4060 Disp_cole: !
4070 DISP "Now loading data..."
4080 OUTPUT @Agt4294a;"MEAS COMP"
4090 OUTPUT @Agt4294a;"HIDI ON;SPLD OFF"
4100 OUTPUT @Agt4294a;"TRAC A"
4110 OUTPUT @Agt4294a;"INPUDTRC ";
4120 FOR I=1 TO Nop
4130 OUTPUT @Agt4294a;Cole_data(I,1),Cole_data(I,2);
4140 NEXT I
4150 OUTPUT @Agt4294a;""
4160 OUTPUT @Agt4294a;"AUTO"
4170 BEEP
4180 DISP "Cole-cole Plot
4190 RETURN
4200 !
4210 Re_meas: !
4220 DISP "Measure once more?
4230 INPUT "",Ans
4240 SELECT Ans
4250 CASE 0
4260 GOTO Meas
13
Application Sample Programs
Measuring Dielectric Material
/ Thickness: ";T_dut*1000;"[mm]"
/ Thickness: ";T_dut*1000;"[mm]"
Thickness: ";T_dut*1000;"[mm]"
0:Yes, 1:Cancel";
203