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.

    Set Analyzer.IO = iomgr.Open("GPIB0::17::INSTR")

    ' TimeOut time should be greater than the measurement time.

    Analyzer.IO.timeout = 50000

    ' Select compensation point

    ' Set compensation point at fix

    Analyzer.WriteString ":SENS1:CORR:COLL:FPO FIX", True

    ' Select fixture model           

    Analyzer.WriteString ":SENS1:FIXT:SEL FIXT16197A", True         

    '

    Call DefineTermination

    '

    ' Perform Fixture Compensation

    Flg = MsgBox("Do you want to perform Open Fixture Compensation?", vbYesNo, "Fixture Compensation")

    If Flg = vbYes Then

        MsgBox "Connect Open Termination"

        ' Execute open in fixture compensation

        Analyzer.WriteString ":SENS1:CORR2:COLL:ACQ:OPEN", True

        ' Wait for measurement end

        Analyzer.WriteString "*OPC?", True                          

        Dmy = Analyzer.ReadNumber

    End If

    Flg = MsgBox("Do you want to perform Short Fixture Compensation?", vbYesNo, "Fixture Compensation")

    If Flg = vbYes Then

        MsgBox "Connect Short Termination"

        ' Execute short in fixture compensation

        Analyzer.WriteString ":SENS1:CORR2:COLL:ACQ:SHOR", True

        ' Wait for measurement end

        Analyzer.WriteString "*OPC?", True                          

        Dmy = Analyzer.ReadNumber

    End If

    ' Close IO

    Analyzer.IO.Close

End Sub

Sub DefineTermination()

    '

    Dim LoadF() As String, n As Integer, i As Integer

    ' Define Short termination by equivalent circuit model

    ' Set equivalent circuit model for short

    Analyzer.WriteString ":SENS1:CORR2:CKIT:SHOR:MOD EQU", True

    ' Set short termination parameter (L)

    Analyzer.WriteString ":SENS1:CORR2:CKIT:SHOR:L 1E-9", True

    ' Set short termination parameter (R)  

    Analyzer.WriteString ":SENS1:CORR2:CKIT:SHOR:R 1E-4", True      

End Sub