Keysight E4981A - Page 108

108 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Executing Multi Correction
9-
ErrorCheck viVPrintf(Agte4981a, (":CORR:MULT:CHAN " & i) + vbLf, 0)
' Select Channel No. i
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)
' Select Channel No. i
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)
' Select Channel No. i
MsgBox "LOAD correction for Channel: " & i
Corr_Result = FnComp("LOAD", 0.2, Freq)
Next i
'===================================
' Setup End
'===================================
Call viClose(defrm)
End