Section 7 Sample Programs
7-14
9 Const NUM% = 156' Specifies the number of data items to be
read.
1Ø Dim TRACE%(NUM%)' Declares the data storage array.
11 Dim Verr$
12 Dim I%
13 '
14 Call ibwrt(Ans%, "MEAS WAVEFORM")'
Transits to the Vector Error Waveform
Display screen.
15 Call ibwrt(Ans%, "TRFORM VECT")'
Transits to the Vector Error Waveform
Display screen.
16 Call ibwrt(Ans%, "STORAGE NRM")'
Sets the normal mode.
17 Call ibwrt(Ans%, "BIN Ø")'
Sets the read data format to ASCII.
18 Call ibwrt(Ans%, "SWP")'
Starts measurement.
19 '
2Ø For I% = Ø To NUM% - 1
21 Call ibwrt(Ans%, "XMV? " & Str$(I%) & ",1")'
Inquires about the measured value of the
vector error.
22 Verr$ = ReceiveResp()
23 TRACE%(I%) = Val(Verr$)'
Converts ASCII format to a numeric value.
24 Next I%
25 '
26 For I% = Ø To NUM% - 1
27 Form2Ø3.Print "Vector Error at "; I% + 6; "symbol
= "; TRACE%(I%) / 1ØØ; "%"
28 Next I%
29 End Sub
Line 14 sets the modulation analysis measurement mode (waveform display mode).
Line 16 sets the measurement mode (normal mode).
Line 17 sets the format of the measurement result to ASCII.
Start the measurement in line 18. The SWP command stops accepting the next com-
mand until the measurement terminates.
Execute lines 20 to 24 to read the measurement data and store it in array Trace. The
data read here is in ASCII format. Use function Val() to convert the data to a real
number.
To Next Page
Loading...
