Keysight E4981A - Page 95

Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter 95
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)
Err_Flag = False
Const Pi = 3.141592654
ErrorCheck viVPrintf(Agte4981a, "STAT:OPER:ENAB 16" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "*SRE 128" + vbLf, 0)
Select Case Standard
Case "OPEN"
Std = "STAN1"
Case "SHORT"
Std = "STAN2"
Case "LOAD"
Std = "STAN3"
Load1 = InputBox("Enter the load Cp Value for " & Freq)
Load2 = InputBox("Enter the load D Value for " & Freq)
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN3:FORMAT CPD" + vbLf, 0)
' Set Load Type CP and D
ErrorCheck viVPrintf(Agte4981a, ":SOUR:FREQ " & Freq + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN3 " & CStr(Load1) & ","
& CStr(Load2) + vbLf, 0) ' Set Primary/Secondary parameter Load Coorection
Values
End Select