Other topics about Setting Measurement Conditions
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 the adapter settings.
Sub AdapterSetup()
'
'
'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("USB0::0x0957::0x1809::KPR0200015::0::INSTR")
' TimeOut time should be greater than the measurement time.
Analyzer.IO.timeout = 50000
' Select the adapter
' Set adapter type to 42942A
Analyzer.WriteString ":SENS1:ADAP:TYPE E4PR", True
' Phase setup
MsgBox "Connect Open Termination"
' Execute open in phase setup
Analyzer.WriteString ":SENS1:ADAP:CORR:COLL:ACQ PHAS", True
' Wait for measurement end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
' Save phase setup data
Analyzer.WriteString ":SENS1:ADAP:CORR:COLL:SAVE PHAS", True
MsgBox "Phase Setup Done"
' Impedance setup
MsgBox "Connect Open Termination"
' Execute open in impedance setup
Analyzer.WriteString ":SENS1:ADAP:CORR:COLL:ACQ OPEN", True
' Wait for measurement end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
MsgBox "Connect Short Termination"
' Execute short in impedance setup
Analyzer.WriteString ":SENS1:ADAP:CORR:COLL:ACQ SHOR", True
' Wait for measurement end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
MsgBox "Connect LOAD Termination"
' Execute load in impedance setup
Analyzer.WriteString ":SENS1:ADAP:CORR:COLL:ACQ LOAD", True
' Wait for measurement end
Analyzer.WriteString "*OPC?", True
Dmy = Analyzer.ReadNumber
' Save impedance setup data
Analyzer.WriteString ":SENS1:ADAP:CORR:COLL:SAVE IMP", True
MsgBox "Imepdance Setup Done"
' Close IO
Analyzer.IO.Close
End Sub