Keysight E4990A - Page 272

E4990A Help
262
Analyzer.WriteString ":SENS1:CORR1:COLL:ACQ:SHOR", True
' Wait for measurement to end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
MsgBox "Connect LOAD Termination"
' Execute load in user calibration
Analyzer.WriteString ":SENS1:CORR1:COLL:ACQ:LOAD", True
' Wait for measurement to end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
' Save impedance setup data
Analyzer.WriteString ":SENS1:CORR1:COLL:SAVE", True
MsgBox "Impedance Setup Done"
' Close IO
Analyzer.IO.Close
End Sub
Fixture Compensation
•
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 fixture compensation.
Fixture Compensation Sample Program in Excel VBA
' The memory area of the resource manager and the instrument I/O are acquired
Dim iomgr As VisaComLib.ResourceManager
Dim Analyzer As VisaComLib.FormattedIO488
Sub FixtureCompen()
Dim Dmy As Integer, Flg As Integer
Set iomgr = New VisaComLib.ResourceManager
Set Analyzer = New VisaComLib.FormattedIO488
' Open the instrument. Set the GPIB address.