Agilent Technologies 4294A Programming Manual page 227

870 Count=Count+1
880 END WHILE
890 OUTPUT @Hp4294a;"TRAC A"
900 OUTPUT @Hp4294a;"OUTPDTRCP? ";I
910 ENTER @Hp4294a;Data_a(1),Data_a(2)
920 OUTPUT @Hp4294a;"TRAC B"
930 OUTPUT @Hp4294a;"OUTPDTRCP? ";I
940 ENTER @Hp4294a;Data_b(1),Data_b(2)
950 OUTPUT @Hp4294a;"OUTPSWPRMP? ";I
960 ENTER @Hp4294a;Swp_para
970 PRINT USING Img$;Swp_para,Mon_lvl,Data_a(1),Data_b(1)
980 NEXT I
990 OUTPUT @Hp4294a;"TRAC A"
1000 OUTPUT @Hp4294a;"FMT "&Fmt_a$
1010 OUTPUT @Hp4294a;"AUTO"
1020 OUTPUT @Hp4294a;"TRAC B"
1030 OUTPUT @Hp4294a;"FMT "&Fmt_b$
1040 OUTPUT @Hp4294a;"AUTO"
1050 !
1060 INPUT "Once more? [Y]es/[N]o",Inp_char$
1070 IF UPC$(Inp_char$)="Y" OR UPC$(Inp_char$)="YES" THEN Meas_start
1080 Prog_end:!
1090 END
1100 !
1110 ! Fixture Compensation Data Measurement Function
1120 !
1130 DEF FNFixt_comp(@Hp4294a,INTEGER Scode,Standard$)
1140 DIM Inp_char$[9],Err_mes$[50]
1150 INTEGER Err_no
1160 OUTPUT @Hp4294a;"*CLS"
1170 PRINT "Set "&Standard$&"-Connection"
1180 INPUT "OK? [Y/N]",Inp_char$
1190 IF UPC$(Inp_char$)="Y" THEN
1200 ON INTR Scode GOTO Meas_end
1210 ENABLE INTR Scode;2
1220 SELECT Standard$
1230 CASE "Open"
1240 OUTPUT @Hp4294a;"COMA"
1250 CASE "Short"
1260 OUTPUT @Hp4294a;"COMB"
1270 CASE "Load"
1280 OUTPUT @Hp4294a;"COMC"
1290 END SELECT
1300 PRINT "Now measuring..."
1310 Meas_wait: GOTO Meas_wait
1320 Meas_end: !
1330 PRINT Standard$&" Data Measurement Complete"
1340 RETURN 0
1350 ELSE
1360 PRINT "Program Interruption"
1370 RETURN -1
1380 END IF
1390 FNEND
13
Application Sample Programs
Measurement controlling oscillator level
227