Keysight E4981A - Page 98

98 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
9-
If Err_Flag = False Then
MsgBox (Standard & " Data measurement completed.")
Else
MsgBox (Standard & " Data measurement not completed."), vbExclamation
End If
End If
'===================================
' Setup End
'===================================
Call viClose(defrm)
FnComp = Err_Flag
End Function
Sub Save_Corr_File(FileName As String, Freq As String)
Dim defrm As Long 'Session to Default Resource Manager
Dim Agte4981a As Long 'Session to instrument
Dim Corr_File_Object As Object
Dim FileS As Object
Dim Result As String * 500
Dim Res As Variant
Dim Nop As Integer, i As Integer
Dim Open1 As Double, Open2 As Double
Dim Short1 As Double, Short2 As Double
Dim Load(1 To 3, 1 To 3) As Double
Dim StdOpen As String
Dim StdLoad As String
Dim StdShort As String
Dim Cab_Len As Integer
Dim Sys_Fsh As Integer
Const TimeOutTime = 30000