I
-
Automating Measurements
Automated Measurement Setup and Control
280
290
300
310
320
330
340
350
360
370
380
390
400
410
420
430
440
450
460
470
480
490
500
510
520
530
540
550
560
570
580
590
600
610
620
630
640
! Select CW display and sweep
OUTPUT
OHp871l;"DISP:ANN:FREQl:MODE
CW"
OUTPUT
QHp871l;"SENSl:FREQ:SPAN
0
Hz;*HAI"
I
! Take a single sweep, leaving the analyzer
! in trigger hold mode.
OUTPUT
OHp87l1;"ABOR;:INITl:CONT
OFF;*WAI"
!
! Turn on Marker 1
OUTPUT OHp87ll;"CALC:MARKl ON"
CouIlt=O
TO=TIMEDATE
! Step from 175 MHz 463 MHz by 6 MHz
FOR Freq=175 TO 463 STEP 6
! Take a sweep
Freq,str$=VAL$(Freq)&"
MHz"
OUTPUT
OHp871l;"SENSl:FREQ:CENT
";Freq,str$
OUTPUT
OHp87l1;"INITl;*WAI"
!
! Set marker to frequency
OUTPUT
OHp87ll;"CALC:MARK:X
";Freq,str$
!
! Query the marker value
OUTPUT OHp87ll;"CALC:MARK:Y?"
ENTER
OHp87ll;Response
!
! Display the first three numbers in the array.
Msg$=;l'tl~Freq,str$&": "tVAL$(Response)&""
-
OUTPUT
6Hp871l;"DISP:ANN:MESS
“;Msg$
PRINT
Msg$
Count=Count+l
NEXT Freq
Tl=TIMEDATE
PRINT "Sweeps per second:
";Comt/(Tl-TO)
DISP "Sweeps per second:
";Comt/(Tl-TO)
END
7-51
To Next Page
Loading...
Need help?
General
