
204
13
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? 0:Yes, 1:Cancel";
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
Содержание 4294A
Страница 4: ...4 ...
Страница 18: ...18 Contents ...
Страница 24: ...24 Chapter1 To make effective use of this manual Other manuals attached to this unit ...
Страница 94: ...94 Chapter6 Reading Writing Measurement Data Reading Writing Data ...
Страница 110: ...110 Chapter7 Processing Measurement Results Analyzing Measurement Results ...
Страница 130: ...130 Chapter9 Communication with External Equipment Using the I O Ports Sample Program to Use the I O Port ...
Страница 136: ...136 Chapter10 Handling Errors Sample program for error handling ...
Страница 246: ...246 13 Application Sample Programs File Transfer Function ...
Страница 254: ...254 Chapter15 Setting the Display LCD Sample program for setting the LCD screen ...
Страница 507: ...Index Index 507 Index ...
Страница 508: ...508 Index Index ...
Страница 509: ...Index Index 509 Index ...
Страница 510: ...510 Index Index ...
Страница 511: ...Index Index 511 Index ...
Страница 512: ...512 Index Index ...
Страница 513: ...Index Index 513 Index ...
Страница 514: ...514 Index Index ...
Страница 515: ...Index Index 515 Index ...
Страница 516: ...516 Index Index ...
Страница 517: ...Index Index 517 Index ...
Страница 518: ...518 Index Index ...