Agilent Technologies E5071C User's Guide Page 174

  • Download
  • Add to my manuals
  • Print
  • Page
    / 551
  • Table of contents
  • BOOKMARKS
  • Rated. / 5. Based on customer reviews
Page view 173
174 Chapter 12
Sample Application Programs
Basic measurement (measuring a band pass filter)
620 OUTPUT @Agte507x;":CALC1:MARK1 ON"
630 OUTPUT @Agte507x;":CALC1:MARK1:X ";Center
640 OUTPUT @Agte507x;":CALC1:MARK1:Y?"
650 ENTER @Agte507x;Resp
660 !
670 OUTPUT @Agte507x;"*ESE 60"
680 OUTPUT @Agte507x;"*SRE 32"
690 OUTPUT @Agte507x;"*CLS"
700 OUTPUT @Agte507x;"*OPC?"
710 ENTER @Agte507x;Buff$
720 !
730 ON INTR 7 GOTO Bw_err
740 ENABLE INTR 7;2
750 OUTPUT @Agte507x;":CALC1:MARK1:BWID:THR -3"
760 OUTPUT @Agte507x;":CALC1:MARK1:BWID ON"
770 OUTPUT @Agte507x;":CALC1:MARK1:BWID:DATA?"
780 WAIT .5
790 ENTER @Agte507x;Bwid,Cent,Q,Loss
800 GOTO Skip_bw_err
810 !
820 Bw_err: OFF INTR 7
830 OUTPUT @Agte507x;";:SYST:ERR?"
840 ENTER @Agte507x;Err_no,Err_msg$
850 PRINT "Error occurred!!"
860 PRINT " No:";Err_no,"Description: "&Err_msg$
870 Bwid=0
880 Cent=0
890 Q=0
900 Loss=Resp
910 !
920 Skip_bw_err: OFF INTR 7
930 Cut_l=Cent-(Bwid/2)
940 Cut_h=Cent+(Bwid/2)
950 !
960 ! Display
970 !
980 PRINT "## Measurement Result ##"
990 PRINT " BW:",Bwid
1000 PRINT " cent:",Cent
1010 PRINT " low:",Cut_l
1020 PRINT " high:",Cut_h
1030 PRINT " Q:",Q
1040 PRINT " loss:",Loss
1050 !
1060 INPUT "Once more? [Y]es/[N]o",Inp_char$
1070 IF UPC$(Inp_char$)="Y" OR UPC$(Inp_char$)="YES" THEN Meas_start
1080 !
1090 END
1100 !=============================================
1110 ! Full n Port Calibration Function
1120 !=============================================
1130 SUB Cal_solt(@Agte507x,Ch$,INTEGER Num_of_ports,INTEGER Port(*))
1140 DIM Buff$[9]
1150 INTEGER I,J
1160 !
1170 PRINT "## Full "&VAL$(Num_of_ports)&" Port Calibration ##"
1180 !
1190 ! Calibration Type Selection
1200 !
1210 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:METH:SOLT"&VAL$(Num_of_
ports)&" ";
1220 FOR I=1 TO Num_of_ports-1
1230 OUTPUT @Agte507x;Port(I);",";
1240 NEXT I
Page view 173
1 2 ... 169 170 171 172 173 174 175 176 177 178 179 ... 550 551

Comments to this Manuals

Vikiehs 04 Jan 2024 | 14:20:06

urenrjrjkvnm