Keysight E4981A Programming Manual page 107

Measurement Applications (Sample Programs)
Executing Multi Correction
Example 9-4 Executing Multi Correction
Sub Example4()
'===================================
' Configuration
'===================================
Dim defrm As Long 'Session to Default Resource Manager
Dim Agte4981a As Long 'Session to instrument
Const TimeOutTime = 30000
Dim Nop As Integer, i As Integer
Dim Corr_Result As Boolean
Dim Freq As String
On Error GoTo ErrorHandler
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call SelectMode(defrm, Agte4981a)
ErrorCheck viSetAttribute(Agte4981a, VI_ATTR_TMO_VALUE, TimeOutTime)
'===================================
' Setup Start
'===================================
E4981A
Multi Correction
Enable Multi Correction channel-by-channel value
the Correction Page
For i = 0 To 3
Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
ErrorCheck viVPrintf(Agte4981a, "SYST:PRES;*CLS" + vbLf, 0) ' Preset the
ErrorCheck viVPrintf(Agte4981a, ":CORR:MULT ON" + vbLf, 0) ' Enable
ErrorCheck viVPrintf(Agte4981a, ":CORR:MULT:CKIT:STAN3 ON" + vbLf, 0) '
ErrorCheck viVPrintf(Agte4981a, ":DISP:PAGE CSET" + vbLf, 0) ' Display
Freq = InputBox("Enter the frequency (120/1E3/1E6) you want to measure")
107