7-45
12 '
13 Call ibwrt(Ans%, "MEAS BER")
14 Call ibwrt(Ans%, "CHAN 1")
15 Call ibwrt(Ans%, "OLVL " + Str$(SGLVL!) + "DBM")'
Sets RX test signal level.
16 Call ibwrt(Ans%, "LVL ON")
17 Call ibwrt(Ans%, "MOD ON")
18 '
19 Call ibwrt(Ans%, "*CLS")'
Clears GPIB status register.
2Ø Call ibwrt(Ans%, "BERSAMPLE 1ØØØØØ")'
Sets number of BER measurement data to
100000 bits.
21
Call ibwrt(Ans%, "SNGLS")' Starts BER measurement.
22 '
23 Do
24 For I% = Ø To 1ØØØØ: Next I%
25 Call ibwrt(Ans%, "ESR2?")
26 '
27 sbuf = ReceiveResp()
28 Endsts% = Val(sbuf)
29 Loop While (Endsts% And 1) <> 1
3Ø '
31 Call ibwrt(Ans%, "BERRATE?")'
Reads BER measurement value.
32 sbuf = ReceiveResp()
33 Form3Ø3.Print "RX level "; SGLVL!; "dBm : Bit Er-
ror Rate = "; sbuf
34 '
35 End Sub
Output test signals in lines 14 to 17.
Set the measurement unit of the BER measurement data to 100000 bits in line 20.
In this example, the SNGLS command is used to start the measurement as in line 21.
Unlike the SWP command, the SNGLS command accepts the next command regard-
less of measurement termination.
For this processing, monitor measurement termination (sweep or measurement termi-
nation bit of the END event status register) in lines 23 to 29.
Read the measurement results in lines 31 and 32 after checking that the measurement
terminates.
7.2 Sample Program (Example of Program Using Visual Basic)
To Next Page
Loading...
