Keysight Technologies E4981A Programming Manual page 104

Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
Case "SHORT"
Zm = Sqr(Param1 * Param1 + Param2 * Param2)
MsgBox "R= " & Param1 & vbNewLine & "X= " & Param2 &
vbNewLine & "|Z| = " & Zm
If Zm >= Limit Then Err_Flag = True
Case "LOAD"
ErrorCheck viVPrintf(Agte4981a, (":SOUR:FREQ " &
Freq) + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "*CLS" + vbLf, 0)
is finished. *OPC? retruns 1 when processing of executed commands is
finished.
0)
Finish_pros)
":CORR:CKIT:STAN3?" + vbLf, 0)
102
While Finish_pros <> "1" ' Loop till processing
ErrorCheck viVPrintf(Agte4981a, "*OPC?" + vbLf,
ErrorCheck viVScanf(Agte4981a, "%t",
Wend
ErrorCheck viVPrintf(Agte4981a,
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))
Chapter 9