Automating Measurements 5-9
Automated Measurement Setup and Control
Fast Iterative Control
340 OUTPUT @Hp8711;"ABOR;:INIT1:CONT OFF;*WAI"
350 !
360 ! Turn on Marker 1
370 OUTPUT @Hp8711;"CALC:MARK1 ON"
380 !
390 Count=0
400 T0=TIMEDATE
410 ! Step from 175 MHz 463 MHz by 6 MHz
420 FOR Freq=175 TO 463 STEP 6
430 ! Take a sweep
440 Freq_str$=VAL$(Freq)&" MHz"
450 OUTPUT @Hp8711;"SENS1:FREQ:CENT ";Freq_str$
460 OUTPUT @Hp8711;"INIT1;*WAI"
470 !
480 ! Set marker to frequency
490 OUTPUT @Hp8711;"CALC:MARK:X ";Freq_str$
500 !
510 ! Query the marker value
520 OUTPUT @Hp8711;"CALC:MARK:Y?"
530 ENTER @Hp8711;Response
540 !
550 ! Display the first three numbers in the array.
560 Msg$="'"&Freq_str$&": "&VAL$(Response)&"'"
570 OUTPUT @Hp8711;"DISP:ANN:MESS ";Msg$
580 PRINT Msg$
590 Count=Count+1
600 NEXT Freq
610 T1=TIMEDATE
620 PRINT "Sweeps per second: ";Count/(T1-T0)
630 DISP "Sweeps per second: ";Count/(T1-T0)
640 END
To Next Page
Loading...
