Agilent Technologies 4294A Service Manual Page 237

  • Download
  • Add to my manuals
  • Print
  • Page
    / 518
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 236
13 237
Application Sample Programs
Measurement using scanner
1. Chapter Title
2. Chapter Title 13. Application Sample
4. Chapter Title
5. Chapter Title
Programs
1710 WAIT .2
1720 OUTPUT @Agt4294a;"*CLS"
1730 OUTPUT @Agt4294a;"*OPC?"
1740 ENTER @Agt4294a;Opc
1750 ON INTR 7 GOTO Sweep_end
1760 ENABLE INTR 7;2
1770 OUTPUT @Agt4294a;"MANR
"&VAL$(Point(I)+1)&","&VAL$(Point(I+1))
1780 OUTPUT @Agt4294a;"SING"
1790 PRINT "Measuring Channel ";VAL$(I)
1800 Sweep_wait: GOTO Sweep_wait
1810 Sweep_end: OFF INTR 7
1820 NEXT I
1830 OUTPUT @Agt3499a;"RESET"
1840 !
1850 PRINT "Measurement Completed"
1860 !
1870 Prog_end: !
1880 END
1890 !
1900 ! Fixture Compensation Data Measurement Function
1910 !
1920 DEF FNFixt_comp(@Agt4294a,INTEGER Scode,Standard$)
1930 DIM Inp_char$[9]
1940 OUTPUT @Agt4294a;"*CLS"
1950 ON ERROR GOTO Conpen_start
1960 Compen_start: !
1970 PRINT "Set "&Standard$&"-Connection"
1980 INPUT "OK? [Y/N]",Inp_char$
1990 OFF ERROR
2000 IF UPC$(Inp_char$)="Y" THEN
2010 ON INTR Scode GOTO Meas_end
2020 ENABLE INTR Scode;2
2030 SELECT Standard$
2040 CASE "Open"
2050 OUTPUT @Agt4294a;"COMA"
2060 CASE "Short"
2070 OUTPUT @Agt4294a;"COMB"
2080 CASE "Load"
2090 OUTPUT @Agt4294a;"COMC"
2100 END SELECT
2110 PRINT "Now measuring..."
2120 Meas_wait: GOTO Meas_wait
2130 Meas_end: !
2140 PRINT Standard$&" Data Measurement Complete"
2150 RETURN 0
2160 ELSE
2170 PRINT "Program Interruption"
2180 RETURN -1
2190 END IF
2200 FNEND
2210 !
2220 ! 4TP Setup Function
2230 !
2240 DEF FNSetup_4tp(@Agt4294a,INTEGER Scode,Standard$)
2250 DIM Inp_char$[9]
2260 OUTPUT @Agt4294a;"*CLS"
2270 ON ERROR GOTO Setup_start
Page view 236
1 2 ... 232 233 234 235 236 237 238 239 240 241 242 ... 517 518

Comments to this Manuals

No comments