Filter
Top Products
SECTION 6 GPIB
6-54
100 ’ *************************************************
110 ’ **
120 ’ * INPUT vs OUTPUT characteristic of amplifier *
130 ’ * measurement program *
140 ’ **
150 ’ *************************************************
160 ’
170 ’ ************** initialize GPIB system ****************
180 ’
190 ISET IFC’ ........................................................................................................ Sends interface clear
200 ISET REN’ ................................................................................................ Makes remote enable true
210 CMD DELIM=2’ ....................................................................................................Sets the delimiter to LF
220 CMD TIMEOUT=5’ ............................................................................... Sets the time-out parameter to 5 sec.
230 ’
240 ’ *********** input measurement parameter *************
250 ’
260 INPUT “MEASUREMENT FREQUENCY (MHz)” ;MF
270 ’
280 ’ ************** setting the MG3641A/MG3642A *****************
290 ’
300 PRINT @3; “*RST” ’ ............................................................................... Initializes the MG3641A/MG3642A
310 PRINT @3; “:FREQ”+STR$(MF)+“MHz” ’ ............................................................................. Sets a frequency
320 PRINT @3; “:AMPL:STAT OFF” ’ ..................................................................................... Turns off the output
330 ’
340 ’ ************** setting the MS2651A *****************
350 ’
360 PRINT @1; “INI” ’ .................................................................................................. Initializes the MS2651A
370 PRINT @1; “SP 100KHZ” ’ .........................................................................Sets the frequency span to 100 kHz
380 PRINT @1; “CF”+STR$(MF)+“MHZ” ’ ........................................................................ Sets a center frequency
390 PRINT @1; “RL 20DBM” ’ .......................................................................... Sets the reference level to 20 dBm
400 ’
410 ’ ****************** measurement *******************
420 ’
430 PRINT “INPUT OUTPUT GAIN”
440 PRINT @3; “ :AMPL:STAT ON” ’ ...................................................................................... Turns on the output
450 FOR LEVEL1 = –30 TO 0 STEP 2
460 PRINT @3; “ :AMPL:LEV”+STR$(LEVEL1)+“dBm” ’ .................................................... Sets the output level
470 FOR TIMER = 0 TO 1000:NEXT TIMER
480 PRINT @1; “TS;MKPK” ’ ........................................................................ Sweeps once and searches for a peak
490 PRINT @1; “MKL?” ’ .................................................................. Issues a marker level reading data request
500 INPUT @1;LEVEL2
510 PRINT USING “###.#dBm ###.#dBm ###.#dB”;LEVEL1,LEVEL2,LEVEL2-LEVEL1
520 NEXT LEVEL1
530 ’
540 END