Agilent Technologies 4294A Programming Manual page 222

Application Sample Programs
Measuring Magnetic Materials
2460 OUTPUT @Agt4294a;"AUTO"
2470 OUTPUT @Agt4294a;"TRAC A"
2480 BEEP
2490 DISP "A: |ur|
2500 RETURN
2510 !
2520 Disp_ur_ui: !
2530 DISP "Now loading data..."
2540 OUTPUT @Agt4294a;"MEAS LSR"
2550 OUTPUT @Agt4294a;"HIDI OFF;SPLD ON"
2560 OUTPUT @Agt4294a;"TRAC A"
2570 OUTPUT @Agt4294a;"INPUDTRC ";
2580 FOR I=1 TO Nop
2590 OUTPUT @Agt4294a;Urr_data(I,1),Urr_data(I,2);
2600 NEXT I
2610 OUTPUT @Agt4294a;""
2620 OUTPUT @Agt4294a;"AUTO"
2630 OUTPUT @Agt4294a;"TRAC B"
2640 FOR I=1 TO Nop
2650 OUTPUT @Agt4294a;"INPUDTRC ";
2660 OUTPUT @Agt4294a;Uri_data(I,1),Uri_data(I,2);
2670 NEXT I
2680 OUTPUT @Agt4294a;""
2690 OUTPUT @Agt4294a;"AUTO"
2700 OUTPUT @Agt4294a;"TRAC A"
2710 BEEP
2720 DISP "A: ur'
2730 RETURN
2740 !
2750 Disp_cole: !
2760 DISP "Now loading data..."
2770 OUTPUT @Agt4294a;"MEAS COMP"
2780 OUTPUT @Agt4294a;"HIDI ON;SPLD OFF"
2790 OUTPUT @Agt4294a;"TRAC A"
2800 OUTPUT @Agt4294a;"INPUDTRC ";
2810 FOR I=1 TO Nop
2820 OUTPUT @Agt4294a;Cole_data(I,1),Cole_data(I,2);
2830 NEXT I
2840 OUTPUT @Agt4294a;""
2850 OUTPUT @Agt4294a;"AUTO"
2860 BEEP
2870 DISP "Cole-cole Plot"
2880 RETURN
2890 !
2900 Re_meas: !
2910 DISP "Measure once more?
2920 INPUT "",Ans
2930 SELECT Ans
2940 CASE 0
2950 GOTO Meas
2960 CASE 1
2970 GOTO Display
2980 CASE ELSE
2990 GOTO Re_meas
3000 END SELECT
3010 !
3020 Quit: !
3030 DISP "Really quit the program?
3040 INPUT "",Ans
3050 SELECT Ans
3060 CASE 0
3070 DISP "Bye."
3080 CASE 1
3090 GOTO Display
222
B: tan d "
B: ur'' "
0:Yes, 1:Cancel";
0:Yes, 1:Cancel";
13