Application Sample Programs
Measuring Dielectric Material
4270
CASE 1
4280
GOTO Display
4290
CASE ELSE
4300
GOTO Re_meas
4310
END SELECT
4320
!
4330 Quit:
!
4340
DISP "Really quit the program?
4350
INPUT "",Ans
4360
SELECT Ans
4370
CASE 0
4380
DISP "Bye."
4390
CASE 1
4400
GOTO Display
4410
CASE ELSE
4420
GOTO Quit
4430
END SELECT
4440 Prog_end: END
4450
!
4460
! Correction Data Measurement Function
4470
!
4480
DEF FNUser_Corr(@Agt4294a,Type$)
4490
DIM Inp_char$[9],Err_mes$[50]
4500
INTEGER Err_no
4510
!
4520
OUTPUT @Agt4294a;"ESNB 256"
4530
OUTPUT @Agt4294a;"*SRE 4"
4540
OUTPUT @Agt4294a;"*CLS"
4550
!
4560
ON INTR 8 GOTO Meas_end
4570
ENABLE INTR 8;2
4580
SELECT Type$
4590
CASE "Adapter_Phase"
4600
OUTPUT @Agt4294a;"ECALP"
4610
CASE "Compen_Open"
4620
OUTPUT @Agt4294a;"COMA"
4630
CASE "Compen_Short"
4640
OUTPUT @Agt4294a;"COMB"
4650
CASE "Compen_Load"
4660
OUTPUT @Agt4294a;"COMC"
4670
END SELECT
4680
PRINT "Now measuring..."
4690 Meas_wait:
GOTO Meas_wait
4700 Meas_end:
!
4710
OUTPUT @Agt4294a;"OUTPERRO?"
4720
ENTER @Agt4294a;Err_no,Err_mes$
4730
IF Err_no=0 THEN
4740
PRINT Standard$&" Data Measurement Complete"
4750
RETURN 0
4760
ELSE
4770
PRINT "Error: "&Err_mes$
4780
PRINT "Program Interruption"
4790
OUTPUT @Agt4294a;"ECALQUI"
4800
RETURN -1
4810
END IF
4820
FNEND
204
0:Yes, 1:Cancel";
13