Specifications

258 Chapter 16
Application Programs
Basic Measurement
480 !
490 OUTPUT @Agte4991a;"SYST:PRES"
500 OUTPUT @Agte4991a;"*OPC?"
510 ENTER @Agte4991a;Buff$
520 !
530 ! -> Specifying Sweep Conditions
540 !
550 OUTPUT @Agte4991a;"SWE:POIN ";Nop
560 OUTPUT @Agte4991a;"SWE:TYPE "&Swp_type$
570 OUTPUT @Agte4991a;"FREQ:STAR ";Start
580 OUTPUT @Agte4991a;"FREQ:STOP ";Stop
590 OUTPUT @Agte4991a;"SOUR:CURR:MODE FIX"
600 OUTPUT @Agte4991a;"SOUR:CURR ";Curr_lev
610 OUTPUT @Agte4991a;"TRIG:SOUR BUS"
620 !
630 ! -> Specifying Measurement Parameters
640 !
650 OUTPUT @Agte4991a;"DISP:TRAC1 ON"
660 OUTPUT @Agte4991a;"DISP:TRAC2 ON"
670 OUTPUT @Agte4991a;"DISP:TRAC3 ON"
680 OUTPUT @Agte4991a;"CALC1:FORM "&Para_a$
690 OUTPUT @Agte4991a;"CALC2:FORM "&Para_b$
700 OUTPUT @Agte4991a;"CALC3:FORM "&Para_c$
710 OUTPUT @Agte4991a;"DISP:TRAC1:Y:SPAC "&Fmt_a$
720 OUTPUT @Agte4991a;"DISP:TRAC2:Y:SPAC "&Fmt_b$
730 OUTPUT @Agte4991a;"DISP:TRAC3:Y:SPAC "&Fmt_c$
740 OUTPUT @Agte4991a;"DISP:FORM "&Display$
750 !
760
!#################################################################
770 ! STEP3: Calibration (FIXED)
780
!#################################################################
790 !
800 OUTPUT @Agte4991a;"SENS:CORR1?"
810 ENTER @Agte4991a;Corr
820 IF Corr=1 THEN
830 Reply=FNMessage(@Agte4991a,"Do you perform a calibration
again?")
840 IF Reply<>0 THEN Cal_skip
850 END IF
860 !
870 ! -> Initial Settings
880 !
890 OUTPUT @Agte4991a;"SENS:CORR1:CKIT DEF"
900 OUTPUT @Agte4991a;"SENS:CORR1:COLL:FPO "&Cal_type$
910 !
920 ! -> Data Measurement
930 !
940 Result=FNCal(@Agte4991a,"OPEN")
950 IF Result<>0 THEN Prog_int
960 !
970 Result=FNCal(@Agte4991a,"SHORT")
980 IF Result<>0 THEN Prog_int
990 !
1000 Result=FNCal(@Agte4991a,"LOAD")
1010 IF Result<>0 THEN Prog_int
1020 !