Agilent Technologies E5071C Manual page 1147

E5071C
Lines 230 to 240 Generates a trigger to start a single sweep and waits
until the measurement finishes (1 is read out with the SCPI.IEEE4882.OPC
object).
Line 260: Retrieves the number of points in channel 1 and stores that
number into the Nop variable.
Lines 280 to 290 Specifies trace 1 of channel 1 to the active trace,
retrieves the formatted data array, and stores the data into the FmtData
variable.
Lines 310 to 320 Displays the echo window in the lower part of the LCD
screen.
Lines 340 to 360: Displays 2 measurement data values (primary value
and secondary value) for each measurement point in the echo window.
Lines 380 to 430
The procedure when the third softkey (id: 3) is pressed.
Line 400: Displays a program closing message.
Line 410: Stores False into the sta variable to terminate the main
program.
Sample program using user menu ("UserMenu" object)
10| Private Sub UserMenu_OnPress(ByVal id As Long)
20|
30| Dim I As Integer
40| Dim Nop As Long, Dmy As Long
50| Dim FmtData As Variant
60|
70| If id = 1 Then
80|
90| SCPI.SYSTem.PRESet
100|
110| SCPI.SENSe(1).FREQuency.STARt = 1730000000#
120| SCPI.SENSe(1).FREQuency.STOP = 1830000000#
130| SCPI.SENSe(1).SWEep.POINts = 51
140|
150| SCPI.ABORt
160| SCPI.TRIGger.SEQuence.Source = "BUS"
170| SCPI.INITiate(1).CONTinuous = True
180|
1374