Keysight E4981A - Page 90

90 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Setting Up Measurement Conditions and LCD Display
9-
'===================================
' ErrorCheck
'===================================
Sub ErrorCheck(ErrorStatus As Long)
Dim strVisaErr As String * 500
' Check if VISA Error
If ErrorStatus <> VI_SUCCESS Then
Call viStatusDesc(defrm, ErrorStatus, strVisaErr)
MsgBox "*** Error : " + strVisaErr
End If
End Sub
'===================================
' Select Connection Mode (GPIB/USB)
'===================================
Sub SelectMode(defrm As Long, Agte4981a As Long)
Dim SelectMode As String
SelectMode = Worksheets("ControlPanel").Range("B3").Value
If SelectMode = "GPIB" Then
ErrorCheck viOpen(defrm, "GPIB0::17::INSTR", 0, 0, Agte4981a)
End If
If SelectMode = "USB" Then
ErrorCheck viOpen(defrm, "USB0::2391::2313::MY12345678::0::INSTR", 0, 0,
Agte4981a)
End If
End Sub