Table of Contents
Advertisement
Example 3. Setting the Measurement Parameters
The following program shows the setting of some measurement parameters. First, the
instrument is reset to the factory settings. Then the following parameters are set:
• Two channel windows are opened and allocated one above the other.
• The number of traces is set to 2 in the first channel window.
• For the first channel the stimulus parameters are set as follows: the frequency
range from 100 MHz to 1.2 GHz, the number of measurement points 401.
• For the second channel the stimulus parameters are set as follows: the frequency
range from 800 MHz to 900 MHz, the number of points 51, IF bandwidth 100 Hz,
output power – low.
• In the first channel window for the trace 1 set SWR format, for the trace 2 set.
logarithmic magnitude format.
• In the second channel window: logarithmic magnitude format are set for the single
trace. Then the auto scale function is called for this trace.
Dim app As Object
Public Sub Example3()
Set app = CreateObject("R54x2.Application")
app.SCPI.SYSTem.PRESet
app.SCPI.DISPlay.Split = 2
app.SCPI.Calculate(1).Parameter.Count = 2
app.SCPI.SENSe(1).Frequency.Start = 100000000
app.SCPI.SENSe(1).Frequency.STOP = 1200000000
app.SCPI.SENSe(1).SWEep.Points = 401
app.SCPI.SENSe(2).Frequency.Start = 800000000
app.SCPI.SENSe(2).Frequency.STOP = 900000000
app.SCPI.SENSe(2).SWEep.Points = 51
app.SCPI.SENSe(2).BANDwidth.RESolution = 100
app.SCPI.Source(2).Power.LEVel.STATe = "LOW"
app.SCPI.Calculate(1).Parameter(1).Select
app.SCPI.Calculate(1).Selected.Format = "SWR"
app.SCPI.Calculate(1).Parameter(2).Select
app.SCPI.Calculate(1).Selected.Format = "MLOG"
223
Advertisement
Table of Contents
