Agilent Technologies 4294A Programming Manual page 188

Application Sample Programs
Basic Measurement
460 !
470 ! Display Setting
480 !
490 OUTPUT @Hp4294a;"TRAC A"
500 OUTPUT @Hp4294a;"FMT "&Fmt_a$
510 OUTPUT @Hp4294a;"TRAC B"
520 OUTPUT @Hp4294a;"FMT "&Fmt_b$
530 OUTPUT @Hp4294a;"SPLD "&Spl_disp$
540 !
550 Meas_start: ! Single Sweep Start
560 !
570 PRINT "Set DUT, then Push [Enter] key"
580 INPUT "",Inp_char$
590 !
600 OUTPUT @Hp4294a;"SING"
610 PRINT "Now measuring..."
620 OUTPUT @Hp4294a;"*OPC?"
630 ENTER @Hp4294a;Buff$
640 !
650 ! Auto Scaling
660 !
670 OUTPUT @Hp4294a;"TRAC A"
680 OUTPUT @Hp4294a;"AUTO"
690 OUTPUT @Hp4294a;"TRAC B"
700 OUTPUT @Hp4294a;"AUTO"
710 !
720 ! Minimum Point Search
730 !
740 OUTPUT @Hp4294a;"TRAC A"
750 OUTPUT @Hp4294a;"MKR ON"
760 OUTPUT @Hp4294a;"SEAM MIN"
770 !
780 OUTPUT @Hp4294a;"MKRVAL?"
790 ENTER @Hp4294a;Imp_val
800 OUTPUT @Hp4294a;"MKRPRM?"
810 ENTER @Hp4294a;Freq_val
820 !
830 PRINT " ## Measurement Result ##"
840 PRINT USING "13A,4D.4D,6A";" Frequency: ",Freq_val/1.E+6," [MHz]"
850 PRINT USING "13A,4D.4D,6A";"
860 PRINT ""
870 !
880 INPUT "Once more? [Y]es/[N]o",Inp_char$
890 IF UPC$(Inp_char$)="Y" OR UPC$(Inp_char$)="YES" THEN Meas_start
900 Prog_end: !
910 END
920 !
930 ! Fixture Compensation Data Measurement Function
940 !
950 DEF FNFixt_comp(@Hp4294a,INTEGER Scode,Standard$)
960 DIM Inp_char$[9],Err_mes$[50]
970 INTEGER Err_no
980 OUTPUT @Hp4294a;"*CLS"
990 PRINT "Set "&Standard$&"-Connection"
1000 INPUT "OK? [Y/N]",Inp_char$
1010 IF UPC$(Inp_char$)="Y" THEN
1020 ON INTR Scode GOTO Meas_end
1030 ENABLE INTR Scode;2
1040 SELECT Standard$
1050 CASE "Open"
1060 OUTPUT @Hp4294a;"COMA"
1070 CASE "Short"
1080 OUTPUT @Hp4294a;"COMB"
1090 CASE "Load"
188
Impedance: ",Imp_val," [ohm]"
13