Keysight E4990A - Page 267

Programming
257
Dim iomgr As VisaComLib.ResourceManager
Dim Analyzer As VisaComLib.FormattedIO488
Set iomgr = New VisaComLib.ResourceManager
Set Analyzer = New VisaComLib.FormattedIO488
' Open the instrument. Sets the GPIB address.
Set Analyzer.IO = iomgr.Open("USB0::0x0957::0x1809::KPR0200015::0::INSTR")
' TimeOut time should be greater than the measurement time.
Analyzer.IO.timeout = 10000
'
' Initial Setup
Analyzer.WriteString ":SYST:PRES", True
' Set two channel
Analyzer.WriteString ":DISP:SPL D1_2", True
' Set trigger source at BUS.
Analyzer.WriteString ":TRIG:SOUR BUS", True
'
' Setup Channel 1
' Set measurement parameter for trace 1
Analyzer.WriteString ":CALC1:PAR1:DEF Z", True
' Set measurement parameter for trace 2
Analyzer.WriteString ":CALC1:PAR2:DEF TZ", True
' Set Y-Axis at Log format
Analyzer.WriteString ":DISP:WIND1:TRAC1:Y:SPAC LOG", True
' Stimulus Setup
' Turn on Continuous Activation mode for channel 1
Analyzer.WriteString ":INIT1:CONT ON", True
' Set sweep type at LOG
Analyzer.WriteString ":SENS1:SWE:TYPE LOG", True
' Set number of point
Analyzer.WriteString ":SENS1:SWE:POIN 201", True
' Set start freqency
Analyzer.WriteString ":SENS1:FREQ:STAR 100E3", True
' Set stop frequency
Analyzer.WriteString ":SENS1:FREQ:STOP 10E6", True