Specifications

Chapter 4 103
Preparation for Accurate Measurement
Fixture Compensation
4. Preparation for Accurate Measurement
without problem, it returns the value of 0.
Line 970 When the standard is not connected, the function program returns the
value of -1.
Lines 1020 - 1060 Inputs the specified data.
Example 4-6 Measurement of fixture compensation data (macro)
10 Sub Main()
20 Dim buff As String, file As String
30 Dim Fixt_type As String, Cal_point As String
40 Dim Comp_a As Variant, Comp_b As Variant
50 Dim E_length As Double
60 Dim Open_g As Double, Open_c As Double
70 Dim Short_r As Double, Short_l As Double
80 Dim Result As Integer, Nop_comp As Integer, Inp_char As
Integer
90 Dim iFileNo As Integer, i As Integer
100
110 Fixt_type = "USER" 'USER/FXT16191A/FXT16192A/...
120 Cal_point = "FIX" 'FIX/FUS/USER
130
140 SCPI.Output "SENS:CORR2:FIXT " & Fixt_type
150 SCPI.Output "SENS:CORR2:COLL:FPO " & Cal_point
160
170 If Fixt_type = "USER" Then
180 Call Inp_data("User's Test Fixture Electrical
Length(m)", E_length)
190 SCPI.Output "SENS:CORR2:FIXT:EDEL:USER:DIST " &
CStr(E_length)
200 End If
210
220 Inp_char = MsgBox("Do you want to entry the comp. standard
values?", vbYesNo + vbQuestion, "Compensation")
230 If Inp_char = vbYes Then
240
250 SCPI.Output "SENS:CORR2:CKIT:LIST OFF"
260
270 Call Inp_data("Open_G(S)", Open_g)
280 Call Inp_data("Open_C(F)", Open_c)
290 SCPI.Output "SENS:CORR2:CKIT:STAN1:G " & CStr(Open_g)
300 SCPI.Output "SENS:CORR2:CKIT:STAN1:C " & CStr(Open_c)
310
320 Call Inp_data("Short_R(ohm)", Short_r)
330 Call Inp_data("Short_L(H)", Short_l)
340 SCPI.Output "SENS:CORR2:CKIT:STAN2:R " & CStr(Short_r)
350 SCPI.Output "SENS:CORR2:CKIT:STAN2:L " & CStr(Short_l)
360
370 End If
380
390 Result = Fixt_comp("Open")
400 If Result <> 0 Then GoTo Prog_end
410
420 Result = Fixt_comp("Short")
430 If Result <> 0 Then GoTo Prog_end
440
450 SCPI.Output "SENS:CORR2:COLL:SAVE"
460 buff = SCPI.Query("*OPC?")