Agilent Technologies N9360A Programming Manual page 251

N9360A Multi UE Tester CDMA2000 Programming Manual
44
:'Signaling Test
45
:If MsgBox("Please push the OK button if the
power supply of the mobile phone is turned
on, and the antenna pict is displayed.",
vbOK) = vbCancel Then Exit Sub
46
:AddStatus "Turn on the mobile phone. "
47
:OUTPUT "TRIG:IMM"
48
:WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 2, 0
49
:AddStatus "Please MS Call"
50
:WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 4, 0
51
:AddStatus "Talk"
52
:If MsgBox("Talk Pass?", vbYesNo) = vbYes Then
53
:OUTPUT "TEST:AUTO:MEAS:TALK PASS"
54
:Else
55
:OUTPUT "TEST:AUTO:MEAS:TALK FAIL"
56
:End If
57
:AddStatus "Please MS Release"
58
:WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 8, 0
59
:AddStatus "Please off hook"
60
:WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 32, 0
61
:AddStatus "Talk"
62
:If MsgBox("Talk Pass?", vbYesNo) = vbYes Then
63
:OUTPUT "TEST:AUTO:MEAS:TALK PASS"
64
:Else
65
:OUTPUT "TEST:AUTO:MEAS:TALK FAIL"
66
:End If
67
:
68
:WAIT "*STB?", 0, 0
69
:
70
:'RF Test
71
:Dim channel As Integer
72
:
73
:value = Split(ENTER("TEST:AUTO:RES:AP" +
CStr(1) + "?"), ",")
74
:AddStatus "Access Probe Power :" + value(2) +
"dBm " + IIf(value(1) And 1, "FAIL", "PASS")
7
Sample Program
7-7