Keysight E4981A Programming Manual page 149

Measurement Applications (Sample Programs)
Measuring Results with Contact Check Enabled
Example 9-16 Measuring Results with Contact Check Enabled
Sub Example17()
'===================================
' Configuration
'===================================
Dim defrm As Long
Dim Agte4981a As Long
Dim Result As String * 100
Dim Res As Variant
Dim CCParamHi As Double
Dim CCParamLo As Double
Const TimeOutTime = 30000
On Error GoTo ErrorHandler
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call SelectMode(defrm, Agte4981a)
ErrorCheck viSetAttribute(Agte4981a, VI_ATTR_TMO_VALUE, TimeOutTime)
'===================================
' Setup Start
'===================================
ErrorCheck viVPrintf(Agte4981a, "SYST:PRES;*CLS" + vbLf, 0) ' Preset E4981A
ErrorCheck viVPrintf(Agte4981a, ":INIT:CONT ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":TRIG:SOUR BUS" + vbLf, 0)
' Frequency should be 120 or 1000. The contact check is not available 1MHz.
ErrorCheck viVPrintf(Agte4981a, ":SOUR:FREQ 1000" + vbLf, 0)
Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter 149