Anritsu MT8801C - Sample Program (Example of Program Using Visual Basic)

7-5
2) SG output control module
MX880201A uses downlink and uplink RF signals together for measurement.
Therefore, the transmission measurement
program also requires SG output control.
Code module file: SGOUT. BAS
1 Sub SG_out (Control%) '
Processing routine for output control.
2 Dim Stat As String * 4Ø'
Variable for securing information for cur-
rent measurement screen.
3'
4 Call ibwrt(Ans%, "MEAS?")'
Reads current measurement screen infor-
mation.
5 Stat = ReceiveResp()
6 If Control% <> Ø Then
7 Call ibwrt(Ans%, "MEAS BER")'
Moves to BER measurement screen.
8 Call ibwrt(Ans%, "LVL ON")'
Outputs RX measurement signal.
9 Call ibwrt(Ans%, "MOD ON")'
Modulates RX measurement signal.
1Ø Else
11 If Stat <> "SETCOM" And Stat <> "BER" Then
12 Call ibwrt(Ans%, "MEAS SETCOM")'
Moves to common parameter setting
screen.
13 End If
14 Call ibwrt(Ans%, "LVL OFF")'
Stops outputting RX measurement signal.
15 End If
16 Call ibwrt(Ans%, "MEAS " & Stat$)'
Returns to the original screen.
17 End Sub
Execute lines 4 and 5 to read the current measurement screen. Check argument
Control% that controls SG output by executing line 6. If Control% is a value other
than 0, execute lines 7 to 9 to turn on the SG output. If Control% is 0, execute lines
11 to 14 to turn off the SG output. Because the SG output can be set on the BER
Measurement or Common Parameter screen, if another screen is displayed, ex-
ecute line 7 or lines 11 to 13 to change the screen.
Execute line 16 to return to the original measurement screen.
7.2 Sample Program (Example of Program Using Visual Basic)