Agilent Technologies N9360A Programming Manual page 151

N9360A Multi UE Tester W-CDMA Programming Manual
28
: WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 2
29
: AddStatus "Please MS Call"
30
: WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 4
31
: AddStatus "Talk"
32
: If MsgBox("Talk Pass?", vbYesNo) = vbYes Then
33
: OUTPUT "TEST:AUTO:MEAS:TALK PASS"
34
: Else
35
: OUTPUT "TEST:AUTO:MEAS:TALK FAIL"
36
: End If
37
: AddStatus "Please MS Release"
38
: WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 8
39
: AddStatus "Please off hook"
40
: WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 32
41
: AddStatus "Talk"
42
: If MsgBox("Talk Pass?", vbYesNo) = vbYes Then
43
: OUTPUT "TEST:AUTO:MEAS:TALK PASS"
44
: Else
45
: OUTPUT "TEST:AUTO:MEAS:TALK FAIL"
46
: End If
47
:
48
: WAIT "*STB?", 0
49
:
50
:' RF Test
51
: Dim channel As Integer
52
:
53
: For channel = 1 To 2
54
: value = Split(ENTER("TEST:AUTO:RES:OPEN" +
CStr(channel) + "?"), ",")
55
: AddStatus "Open Loop TX Power :" + value(2) +
"dBm " + IIf(value(1) And 1, "FAIL", "PASS")
56
: value = Split(ENTER("TEST:AUTO:RES:INNE" +
CStr(channel) + ":DMIN?"), ",")
57
: AddStatus "ILP(Down Min)
"dB " + IIf(value(1) And 1, "FAIL", "PASS")
58
: value = Split(ENTER("TEST:AUTO:RES:INNE" +
CStr(channel) + ":DMAX?"), ",")
7
Sample Program
:" + value(2) +
7-7