Keysight E4981A Programming Manual page 99

Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call SelectMode(defrm, Agte4981a)
ErrorCheck viSetAttribute(Agte4981a, VI_ATTR_TMO_VALUE, TimeOutTime)
' Reading and Saving Correction values for Open, Short and Load measurements
' Read Primary and Secondary Load Types CP and D
' Read Primary and Secondary Load Types CP and D
Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Result = ""
' Open Correction Parameter
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN1:FORMAT?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
StdOpen = Mid(Result, 1, 2)
Result = ""
' Open Correction Values
ErrorCheck viVPrintf(Agte4981a, ":CORR:DATA? STAN1" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Open1 = Val(Res(0))
Open2 = Val(Res(1))
Result = ""
' Short Correction Parameter
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN2:FORMAT?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
StdShort = Mid(Result, 1, 2)
Result = ""
99