Table of Contents
Advertisement
'===================================
' Setup End
'===================================
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
Chapter 9
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
99
Advertisement
Table of Contents
