Keysight E4981A - Page 97

Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter 97
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
ErrorCheck viVPrintf(Agte4981a, (":SOUR:FREQ " & Freq) +
vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "*CLS" + vbLf, 0)
While Finish_pros <> "1" ' Loop till processing is
finished. *OPC? retruns 1 when processing of executed commands is finished.
ErrorCheck viVPrintf(Agte4981a, "*OPC?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Finish_pros)
Wend
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN3?" +
vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Cpref = Val(Res(0))
Dref = Val(Res(1))
Bref = 2 * Pi * Val(Freq) * Cpref
Gref = Bref * Dref
Zref = 1 / (Sqr(Gref * Gref + Bref * Bref))
Bm = 2 * Pi * Val(Freq) * Param1
Gm = Bm * Param2
Zm = 1 / (Sqr(Gm * Gm + Bm * Bm))
MsgBox "Cpref= " & Cpref & vbNewLine & "Dref= " & Dref & vbNewLine & "|Zref|
= " & Zref
MsgBox "Cp= " & Param1 & vbNewLine & "D= " & Param2 & vbNewLine & "|Z| = " &
Zm
If Abs((Zm - Zref) / Zref) >= Limit Then Err_Flag = 1
End Select