Agilent Technologies 4294A Service Manual Page 223

  • Download
  • Add to my manuals
  • Print
  • Page
    / 518
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 222
13 223
Application Sample Programs
Measuring Magnetic Materials
1. Chapter Title
2. Chapter Title 13. Application Sample
4. Chapter Title
5. Chapter Title
Programs
3100 CASE ELSE
3110 GOTO Quit
3120 END SELECT
3130 Prog_end: END
3140 !
3150 ! Correction Data Measurement Function
3160 !
3170 DEF FNUser_Corr(@Agt4294a,Type$)
3180 DIM Inp_char$[9],Err_mes$[50]
3190 INTEGER Err_no
3200 !
3210 OUTPUT @Agt4294a;"ESNB 256"
3220 OUTPUT @Agt4294a;"*SRE 4"
3230 OUTPUT @Agt4294a;"*CLS"
3240 !
3250 ON INTR 8 GOTO Meas_end
3260 ENABLE INTR 8;2
3270 SELECT Type$
3280 CASE "Adapter_Phase"
3290 OUTPUT @Agt4294a;"ECALP"
3300 CASE "Compen_Open"
3310 OUTPUT @Agt4294a;"COMA"
3320 CASE "Compen_Short"
3330 OUTPUT @Agt4294a;"COMB"
3340 CASE "Compen_Load"
3350 OUTPUT @Agt4294a;"COMC"
3360 END SELECT
3370 PRINT "Now measuring..."
3380 Meas_wait: GOTO Meas_wait
3390 Meas_end: !
3400 OUTPUT @Agt4294a;"OUTPERRO?"
3410 ENTER @Agt4294a;Err_no,Err_mes$
3420 IF Err_no=0 THEN
3430 PRINT Standard$&" Data Measurement Complete"
3440 RETURN 0
3450 ELSE
3460 PRINT "Error: "&Err_mes$
3470 PRINT "Program Interruption"
3480 OUTPUT @Agt4294a;"ECALQUI"
3490 RETURN -1
3500 END IF
3510 FNEND
Page view 222
1 2 ... 218 219 220 221 222 223 224 225 226 227 228 ... 517 518

Comments to this Manuals

No comments