7-55
8 Sub TX_all_measure ()
9 Const NUM% = 7' Specifies the number of groups of read
data.
1Ø Dim JDGE%(NUM%), MDAT$(NUM%)'
Declares the array for storing read data.
11 Dim P%
12 Dim JUDGE$, RCVDAT$
13 Dim JMODPWR$, JTMPLAT$
14 Dim sbuf As String * 4Ø
15 '
16 Call ibwrt(Ans%, "MEAS TXALL")'
Moves to TX All-Measure screen.
17 Call ibwrt(Ans%, "STORAGE NRM")'
Sets the mode to normal mode.
18 Call ibwrt(Ans%, "ADJRNG")'
Optimizes measurement range.
19 '
2Ø Call ibwrt(Ans%, "SWP")'
Starts measurement.
21 '
22 Call ibwrt(Ans%, "JTOTAL?")'
Inquires the result of total judgment.
23 JUDGE$ = ReceiveResp()
24 Call ibwrt(Ans%, "ALLMEAS? RFPWR")'
Inquires the result of judgment of RF
Power and the measurement value.
25 RCVDAT$ = ReceiveResp()
26 For I% = Ø To NUM% - 1'
Classifies the batched read results of mea-
surement by items.
27 P% = InStr(RCVDAT$, ",")
28 JDGE%(I%) = Val(Mid$(RCVDAT$, 1, P% - 1))
29 RCVDAT$ = Right$(RCVDAT$, Len(RCVDAT$) - P%)
3Ø P% = InStr(RCVDAT$, ",")
31 If P% = Ø Then P% = Len(RCVDAT$)
32 MDAT$(I%) = Mid$(RCVDAT$, 1, P% - 1)
33 RCVDAT$ = Right$(RCVDAT$, Len(RCVDAT$) - P%)
34 Next I%
35 '
36 Form4Ø2.Print "Total judgment is "; JUDGE$
37 If JDGE%(Ø) = Ø Then JMODPWR$ = "PASS" Else
JMODPWR$ = "FAIL"
38 Form4Ø2.Print " TX Power: "; JMODPWR$; " (";
Val(MDAT$(Ø)); "dBm)"
7.2 Sample Program (Example of Program Using Visual Basic)
To Next Page
Loading...
