Table of Contents
Advertisement
Making a Frequency Measurement (BASIC)
10 ! This program sets up the instrument to make 10 frequency
20 ! measurements on channel 2.
30 ! The results are displayed on the computer CRT.
40 ! ASCII format is used to preserve resolution.
50 !
60
70
80
90
100
110
120
130 !
140
150
160
170
180
190
200
210
220
230
240
270 !
280
290
300
310
320
330
340
350
360
Keysight 53147A/148A/149A Operating and Programming Guide
INTEGER I
DIM Freq$(10)[22]
Samples=10
ASSIGN @Count TO 703
CLEAR 703
OUTPUT @Count;"*RST"
OUTPUT @Count;"*CLS"
OUTPUT @Count;"*SRE 0"
OUTPUT @Count;"*ESE 0"
OUTPUT @Count;":STAT:PRES"
OUTPUT @Count;":CONF:FREQ DEFAULT,DEFAULT, (@2)"
CLEAR SCREEN
FOR I=1 TO Samples
OUTPUT @Count;"INIT:IMM"
OUTPUT @Count;"READ?"
ENTER @Count;Freq$(I)
PRINT USING "11A,DD,4A,22A,3A";"Frequency (";I;") = ";Freq$(I);" Hz"
NEXT I
LOCAL 703
END
! Declare variables
! Declare string to enter data
! Using strings to enter ASCII format
! data yields results formatted to the
! correct resolution. ASCII is the
! default format for the instrument.
! Take 10 measurements
! Assign I/O path for instrument
! Clear the instrument and interface
! Reset the instrument
! Clear event registers and error queue
! Clear service request enable register
! Clear event status enable register
! Preset enable registers and 210
! transition filters for operation and
! questionable status structures.
! Measure frequency on channel 2
! Clear the computer display
! Start making measurements
! Trigger new
measurement
! Process measurement
! fetch the data
! Return instrument to local
Programming
3
203
Advertisement
Table of Contents
