Keysight E4981A - Page 96

96 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
9-
j= MsgBox("Set " & Standard & " connection and Press OK.", vbOKCancel)
If j = vbCancel Then
MsgBox "Operation cancelled. Ending the program."
Err_Flag = True
Else
ErrorCheck viVPrintf(Agte4981a, ":CORR:COLL " & Std + vbLf, 0)
' Data Check
ErrorCheck viVPrintf(Agte4981a, ":CORR:DATA? " & Std + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Param1 = Val(Res(0))
Param2 = Val(Res(1))
Select Case Standard
Case "OPEN"
Ym = Sqr(Param1 * Param1 + Param2 * Param2)
MsgBox "G= " & Param1 & vbNewLine & "B= " & Param2 & vbNewLine
& "|Y| = " & Ym
If Ym >= Limit Then Err_Flag = True
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"