Keysight E4981A Programming Manual page 108

Measurement Applications (Sample Programs)
Executing Multi Correction
' Select Channel No. i
' Select Channel No. i
' Select Channel No. i
'===================================
' Setup End
'===================================
Call viClose(defrm)
End
108
ErrorCheck viVPrintf(Agte4981a, (":CORR:MULT:CHAN " & i) + vbLf, 0)
MsgBox "OPEN correction for Channel: " & i
Corr_Result = FnComp("OPEN", 0.00002, Freq)
Next i
For i = 0 To 3
ErrorCheck viVPrintf(Agte4981a, (":CORR:MULT:CHAN " & i) + vbLf, 0)
MsgBox "SHORT correction for Channel: " & i
Corr_Result = FnComp("SHORT", 20, Freq)
Next i
For i = 0 To 3
ErrorCheck viVPrintf(Agte4981a, (":CORR:MULT:CHAN " & i) + vbLf, 0)
MsgBox "LOAD correction for Channel: " & i
Corr_Result = FnComp("LOAD", 0.2, Freq)
Next i
Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter