Agilent Technologies 4294A Programming Manual page 56

Preparing For Accurate Measurement
Adapter Setting
200 !
210 Result=FNAdap_setup(@Hp4294a,Scode,"Phase")
220 IF Result<>0 THEN Prog_end
230 !
240 Result=FNAdap_setup(@Hp4294a,Scode,"Open")
250 IF Result<>0 THEN Prog_end
260 !
270 Result=FNAdap_setup(@Hp4294a,Scode,"Short")
280 IF Result<>0 THEN Prog_end
290 !
300 Result=FNAdap_setup(@Hp4294a,Scode,"Load")
310 IF Result<>0 THEN Prog_end
320 !
330 OUTPUT @Hp4294a;"ECALDON"
340 OUTPUT @Hp4294a;"*OPC?"
350 ENTER @Hp4294a;Buff$
360 PRINT "All Data Measurement Complete"
370 !
380 Prog_end: END
390 !
400 ! Adapter Setup Data Measurement Function
410 !
420 DEF FNAdap_setup(@Hp4294a,INTEGER Scode,Standard$)
430 DIM Inp_char$[9],Err_mes$[50]
440 INTEGER Err_no
450 OUTPUT @Hp4294a;"*CLS"
460 PRINT "Set "&Standard$&"-Connection"
470 INPUT "OK? [Y/N]",Inp_char$
480 IF UPC$(Inp_char$)="Y" THEN
490 ON INTR Scode GOTO Meas_end
500 ENABLE INTR Scode;2
510 SELECT Standard$
520 CASE "Phase"
530 OUTPUT @Hp4294a;"ECALP"
540 CASE "Open"
550 OUTPUT @Hp4294a;"ECALA"
560 CASE "Short"
570 OUTPUT @Hp4294a;"ECALB"
580 CASE "Load"
590 OUTPUT @Hp4294a;"ECALC"
600 END SELECT
610 PRINT "Now measuring..."
620 Meas_wait: GOTO Meas_wait
630 Meas_end: !
640 OUTPUT @Hp4294a;"OUTPERRO?"
650 ENTER @Hp4294a;Err_no,Err_mes$
660 IF Err_no=0 THEN
670 PRINT Standard$&" Data Measurement Complete"
680 RETURN 0
690 ELSE
700 PRINT "Error: "&Err_mes$
710 PRINT "Program Interruption"
720 OUTPUT @Hp4294a;"ECALQUI"
730 RETURN -1
740 END IF
750 ELSE
760 PRINT "Program Interruption"
770 OUTPUT @Hp4294a;"ECALQUI"
56 Chapter 4