Keysight E4981A - Page 146

146 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Capacitor Measurement Using Test Fixture
9-
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
MsgBox "LOAD compensation is not successful."
'End
End If