
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
Summary of Contents for 4294A
Page 4: ...4 ...
Page 18: ...18 Contents ...
Page 24: ...24 Chapter1 To make effective use of this manual Other manuals attached to this unit ...
Page 94: ...94 Chapter6 Reading Writing Measurement Data Reading Writing Data ...
Page 110: ...110 Chapter7 Processing Measurement Results Analyzing Measurement Results ...
Page 136: ...136 Chapter10 Handling Errors Sample program for error handling ...
Page 246: ...246 13 Application Sample Programs File Transfer Function ...
Page 254: ...254 Chapter15 Setting the Display LCD Sample program for setting the LCD screen ...
Page 507: ...Index Index 507 Index ...
Page 508: ...508 Index Index ...
Page 509: ...Index Index 509 Index ...
Page 510: ...510 Index Index ...
Page 511: ...Index Index 511 Index ...
Page 512: ...512 Index Index ...
Page 513: ...Index Index 513 Index ...
Page 514: ...514 Index Index ...
Page 515: ...Index Index 515 Index ...
Page 516: ...516 Index Index ...
Page 517: ...Index Index 517 Index ...
Page 518: ...518 Index Index ...