Keysight E4990A - Page 271

Programming
261
• Overview
• Sample Program in Excel VBA
Other topics about Preparing for Accurate Measurement
Overview
The program listed in the below section is written in VISA-COM with Excel
VBA. It can be executed from the external PC controller. The program
demonstrates how to perform user calibration.
User Calibration Sample Program in Excel VBA
Sub UserCal()
'
'
' The memory area of the resource manager and the instrument I/O are acquired
Dim iomgr As VisaComLib.ResourceManager
Dim Analyzer As VisaComLib.FormattedIO488
Dim Dmy As Integer
Set iomgr = New VisaComLib.ResourceManager
Set Analyzer = New VisaComLib.FormattedIO488
' Open the instrument. Set the GPIB address.
Set Analyzer.IO = iomgr.Open("GPIB0::17::INSTR")
' TimeOut time should be greater than the measurement time.
Analyzer.IO.timeout = 50000
' Select adapter
' Set compensation point at fix
Analyzer.WriteString ":SENS1:CORR:COLL:FPO FIX", True
' Impedance setup
MsgBox "Connect Open Termination"
' Execute open in user calibration
Analyzer.WriteString ":SENS1:CORR1:COLL:ACQ:OPEN", True
' Wait for measurement to end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
MsgBox "Connect Short Termination"
' Execute short in user calibration