Other topics about Preparing for Accurate Measurement
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.
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
Dim Flg 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
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
Flg = MsgBox("Do you want to perform LOW LOSS termination?", vbYesNo, "LOW LOSS Termination")
If Flg = vbYes Then
MsgBox "Connect LOW LOSS Termination"
Analyzer.WriteString ":SENS1:CORR1:COLL:ACQ:LLC", True
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
End If
MsgBox "Saving Calibration Data"
Analyzer.WriteString ":SENS1:CORR1:COLL:SAVE", True ' Save impedance setup data
MsgBox "Impedance Setup Done"
' Close IO
Analyzer.IO.Close
End Sub