Keysight Technologies ENA Series User manual

2. Launch VBA editor, and code VBA program
a. Press [Macro setup] hard key then press VBA Editor
soft key VBA editor
b. Create module and code procedure
Click Insert in the menu bar then click Module
Code as shown below in Module1
Keysight Technologies ENA Series Network Analyzer – VBA Programming (UserMenu)
Demo Guide
ENA series network analyzer (E5071C or E5061B)
N-Type Cable
Procedure overview
1. Connect DUT to ENA
2. Launch VBA editor, and code VBA program
3. Run VBA Macro
4. Add bandwidth search module
5. Apply VBA macro to UserMenu buttons
Required Instrument and xture
In this demo...
– Code simple VBA macro for bandpass lter measurement
– Apply VBA macro to UserMenu buttons
In this demo, we will use BPF (Center frequency =
1.09 GHz, BW = 15 MHz) but you can use another
filter. Prepare appropriate cable and adapter to
connect between ENA and DUT.
Band pass filter (BPF)
1. Connect DUT to E5061B
3. Run VBA macro
a. Press [Macro Run] Hard key.
The ENA calles main() procedure, and this VBA
program will set up the measurement parameters as
shown below.
c. Save VBA program and exit VBA editor
Click icon of the VBA editor. The Save As dialog
box appears. Specify the file name and location and
click Save.
Click icon of the VBA editor.
Sub main()
Call Setup
End Sub
Sub Setup()
SCPI.SYSTem.PRESet
SCPI.SENSe.FREQuency.CENTer = “1.09E9”
SCPI.SENSe.FREQuency.SPAN = “200E6”
SCPI.CALCulate.PARameter.Count = 2
SCPI.DISPlay.WINDow.Split = "D12"
SCPI.CALCulate.PARameter(2).DEFine = "S21"
SCPI.SENSe.BANDwidth.RESolution = 1000
MsgBox "Setup done"
SCPI.DISPlay.WINDow.TRACe(1).Y.SCALe.AUTO
SCPI.DISPlay.WINDow.TRACe(2).Y.SCALe.AUTO
End Sub

4. Add Bandwidth Search Module
a. Open VBA Editor
b. Modify Sub() procedure of Module1 as below code
5. Apply VBA procedure to UserMenu buttons
a. Open VBA Editor
b. Modify Sub() procedure of Module1 as below code
6. Use UserMenu Buttons
a. Press “Setup” button to run Setup procedure
b. Press “Bandwidth” button to run Bandwidth_Search
procedure
Tips: Command finder
Using command finder chapter of the help file, you
can easily find appropriate command for each button.
To open help, press [Help] hard key, then click
Programing > Command Reference > Command
Finder.
Sub Bandwidth()
SCPI.CALCulate.PARameter(2).SELect
With SCPI.CALCulate.SELected.MARKer
.State = True
.FUNCtion.TYPE = "MAX"
.FUNCtion.EXECute
.BWIDth.State = True
End With
End Sub
Sub Main()
UserMenu.Item(1).enabled = True
UserMenu.Item(2).enabled = True
UserMenu.Item(1).Caption = "Setup"
UserMenu.Item(2).Caption = "Bandwidth"
UserMenu.Show
End Sub
Sub Main()
Call Setup
Call Bandwidth
End Sub
Private Sub UserMenu_OnPress (byVal ID As Long)
If ID = 1 Then Module1.Setup
If ID = 2 Then Module1.Bandwidth
UserMenu.Show
End Sub
Keysight | ENA Series Network Analyzer – VBA Programming (User Menu) – Demo Guide
www.keysight.com/nd/ena_vba
c. Add below procedure on Module1
c. Create UserMenu module
Click E5061B_Objects then Double-Click UserMenu
In the object box in the code window, select UserMenu
as shown below.
d. Code below procedure on UserMenu module
d. Save VBA program and run
Click icon, then icon of the VBA editor
Press [Macro Run] hard key.
This code sets the measurement parameter, then
make bandwidth search function as below.
e. Save program and run
Click icon, then icon of the VBA Editorpress
[Macro Run] hard key.
This information is subject to change without notice.
© Keysight Technologies, 2011 –2014
Published in USA, August 1, 2014
5990-8596EN
www.keysight.com