Keysight E4981A Programming Manual page 150

Measurement Applications (Sample Programs)
Measuring Results with Contact Check Enabled
' Write the SCPI commands for your desire setting. This should be the same
as one in the CC_ReadParameter
ErrorCheck viVPrintf(Agte4981a, ":SOUR:VOLT 1" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":RANG 1E-6" + vbLf, 0)
CCParamHi = Worksheets("Example17").Range("D2").Value
CCParamLo = Worksheets("Example17").Range("D3").Value
'===================================
' Measurement
'===================================
' Setup Contact Check Threshold parameters
ErrorCheck viVPrintf(Agte4981a, ":CONT1:VER ON" + vbLf, 0) 'Contact Check
Function On
ErrorCheck viVPrintf(Agte4981a, ":CONT1:VER:THR1 " + Str(CCParamHi) + vbLf,
0) ' Threshold of Contact Check parameter for Hp/Hc (TH1)
ErrorCheck viVPrintf(Agte4981a, ":CONT1:VER:THR2 " + Str(CCParamLo) + vbLf,
0) ' Threshold of Contact Check parameter for Lp/Lc (TH2)
'
'
' Execute Measurement
ErrorCheck viVPrintf(Agte4981a, "*TRG" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
'
Res = Split(Result, ",")
Worksheets("Example17").Range("B6").Value = Val(Res(0))
Worksheets("Example17").Range("C6").Value = Val(Res(1))
Worksheets("Example17").Range("D6").Value = Val(Res(2))
150 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter