Agilent Technologies N9360A Programming Manual page 307

N9360A Multi UE Tester GSM Programming Manual
28 : WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 4
29
: AddStatus "Talk"
30 : If MsgBox("Talk Pass?", vbYesNo) = vbYes Then
31 : OUTPUT "TEST:AUTO:MEAS:TALK PASS"
32 : Else
33 : OUTPUT "TEST:AUTO:MEAS:TALK FAIL"
34 : End If
35 : AddStatus "Measuring!"
36 : WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 16
37
: AddStatus "Please MS Release"
38 : WAIT "TEST:AUTO:MEAS:SIGN:STAT?", 32
39 : AddStatus "Please off hook"
40 :
41 : WAIT "*STB?", 0
42 :
43 :'RF Test
44 : Dim channel As Integer
45
: For channel = 1 To 3
46 : value = Split(ENTER("TEST:AUTO:VAR:TCH:CHAN"
+ CStr(channel) + "?"), ",")
47 : AddStatus "Channel" + CStr(channel) + "(" +
value(0) + ")"
48
: value = Split(ENTER("TEST:AUTO:RES:TPOW" +
CStr(channel) + "?"), ",")
49 : AddStatus "Peak TX Power(High):" + value(2) +
"dBm " + IIf(value(1) And 1, "FAIL", "PASS")
50 : AddStatus "Peak TX Power(Mid) :" + value(3) +
"dBm " + IIf(value(1) And 2, "FAIL", "PASS")
51
: AddStatus "Peak TX Power(Low) :" + value(4) +
"dBm " + IIf(value(1) And 4, "FAIL", "PASS")
52 : value = Split(ENTER("TEST:AUTO:RES:BTIM" +
CStr(channel) + "?"), ",")
53 : AddStatus "Burst Timing
"Bits " + IIf(value(1) And 1, "FAIL", "PASS")
54 : value = Split(ENTER("TEST:AUTO:RES:RAMP" +
CStr(channel) + "?"), ",")
Sample Program
7
:" + value(2) +
7-7