Keysight Technologies E4981A Programming Manual page 154

Measurement Applications (Sample Programs)
Capacitor Measurement Using Test Fixture
ErrorCheck viVPrintf(Agte4981a, ":CALC1:FORM CS" + vbLf, 0) ' Set
Primary parameter to Cs
ErrorCheck viVPrintf(Agte4981a, ":CALC2:FORM Q" + vbLf, 0) ' Set
Secondary parameter to Q
ErrorCheck viVPrintf(Agte4981a, ":SOUR:FREQ " & Freq + vbLf, 0) '
Set source frequency
ErrorCheck viVPrintf(Agte4981a, ":SOUR:VOLT 0.5" + vbLf, 0) ' Set
source voltage as 0.5V
ErrorCheck viVPrintf(Agte4981a, ":FORM ASC" + vbLf, 0) ' Set format
to Ascii
ErrorCheck viVPrintf(Agte4981a, ":INIT:CONT ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":TRIG:SOUR BUS" + vbLf, 0) ' Set
Trigger source as GPIB
'===================================
' Measurement
'===================================
Corr_Result = FnComp("OPEN", 0.00002, Freq)
If Corr_Result <> 0 Then
MsgBox "OPEN compensation is not successful."
'End
End If
Corr_Result = FnComp("SHORT", 20, Freq)
If Corr_Result <> 0 Then
MsgBox "SHORT compensation is not successful."
'End
End If
Corr_Result = FnComp("LOAD", 0.2, Freq)
If Corr_Result <> 0 Then
152 Chapter 9