Agilent Technologies 4294A Service Manual download pdf (Page 212)

212 13

Application Sample Programs

Measuring Dielectric Material

4350 GOTO Meas

4360 CASE 1

4370 GOTO Display

4380 CASE ELSE

4390 GOTO Re_meas

4400 END SELECT

4410 !

4420 Quit: !

4430 DISP "Really quit the program? 0:Yes, 1:Cancel";

4440 INPUT "",Ans

4450 SELECT Ans

4460 CASE 0

4470 DISP "Bye."

4480 CASE 1

4490 GOTO Display

4500 CASE ELSE

4510 GOTO Quit

4520 END SELECT

4530 Prog_end: END

4540 !

4550 ! Correction Data Measurement Function

4560 !

4570 DEF FNUser_Corr(@Agt4294a,Type$)

4580 DIM Inp_char$[9],Err_mes$[50]

4590 INTEGER Err_no

4600 !

4610 OUTPUT @Agt4294a;"ESNB 256"

4620 OUTPUT @Agt4294a;"*SRE 4"

4630 OUTPUT @Agt4294a;"*CLS"

4640 !

4650 ON INTR 8 GOTO Meas_end

4660 ENABLE INTR 8;2

4670 SELECT Type$

4680 CASE "Adapter_Phase"

4690 OUTPUT @Agt4294a;"ECALP"

4700 CASE "Compen_Open"

4710 OUTPUT @Agt4294a;"COMA"

4720 CASE "Compen_Short"

4730 OUTPUT @Agt4294a;"COMB"

4740 CASE "Compen_Load"

4750 OUTPUT @Agt4294a;"COMC"

4760 END SELECT

4770 PRINT "Now measuring..."

4780 Meas_wait: GOTO Meas_wait

4790 Meas_end: !

4800 OUTPUT @Agt4294a;"OUTPERRO?"

4810 ENTER @Agt4294a;Err_no,Err_mes$

4820 IF Err_no=0 THEN

4830 PRINT Standard$&" Data Measurement Complete"

4840 RETURN 0

4850 ELSE

4860 PRINT "Error: "&Err_mes$

4870 PRINT "Program Interruption"

4880 OUTPUT @Agt4294a;"ECALQUI"

4890 RETURN -1

4900 END IF

4910 FNEND

1 2 ... 207 208 209 210 211 212 213 214 215 216 217 ... 517 518

Comments to this Manuals

No comments