Keysight E4981A - Page 94

94 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
9-
'===================================
Call viClose(defrm)
End
'===================================
' ErrorProc
'===================================
ErrorHandler:
' Display the error message
MsgBox "*** Error : " + Error$, MB_ICON_EXCLAMATION
End
End Sub
Function FnComp(Standard As String, Limit As Double, Freq As String)
Dim Std As String
Dim i As Integer, j As Integer
Dim Load1 As Double, Load2 As Double
Dim Finish_pros As String * 1
Dim Result As String * 500
Dim Res As Variant
Dim Err_Flag As Boolean
Dim Param1 As Double, Param2 As Double
Dim Zm As Double, Ym As Double, Gm As Double, Bm As Double
Dim Cpref As Double, Dref As Double, Zref As Double, Gref As Double,
Bref As Double
Dim defrm As Long 'Session to Default Resource Manager
Dim Agte4981a As Long 'Session to instrument
Const TimeOutTime = 30000