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
To Next Page
Loading...
Need help?
General
