Keysight E4981A Programming Manual page 141

Measurement Applications (Sample Programs)
Sorting Measurement Results Using Comparator
0)
0)
0)
Setting
'===================================
' Measurement
'===================================
+ vbLf, 0)
+ vbLf, 0)
Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:MODE PCNT" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:PRIM:NOM 1E-9" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:PRIM:BIN1 -1.0,1.0" + vbLf,
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:PRIM:BIN2 -2.0,2.0" + vbLf,
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:PRIM:BIN3 -3.0,3.0" + vbLf,
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:SEC:LIM 0, 0.1" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:SEC:STAT ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:AUXB ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":CREJ ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":CREJ:LIM 10.0" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "TRIG:SOUR BUS" + vbLf, 0) ' Trigger
ErrorCheck viVPrintf(Agte4981a, "CALC1:COMP:COUN ON" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "CALC1:COMP:COUN:CLE" + vbLf, 0)
For i = 1 To 3
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:PRIM:BIN" & i & ":STAT ON"
Next i
For i = 4 To 9
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:PRIM:BIN" & i & ":STAT OFF"
Next i
141