Keysight E4981A - Page 142

142 Keysight E4981A 120 Hz/1 kHz/1 MHz Capacitance Meter
Measurement Applications (Sample Programs)
Sorting Measurement Results Using Comparator
9-
While Finish_pros <> "1" ' Loop till processing is finished. *OPC?
retruns 1 when processing of all commands is finished.
ErrorCheck viVPrintf(Agte4981a, "*OPC?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Finish_pros)
Wend
For i = 1 To 50
ErrorCheck viVPrintf(Agte4981a, "*TRG" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", TRG_Result)
Res = Split(TRG_Result, ",")
Worksheets("Example14").Range("A" & (i + 4)).Value = Val(Res(0))
Worksheets("Example14").Range("B" & (i + 4)).Value = Val(Res(1))
Worksheets("Example14").Range("C" & (i + 4)).Value = Val(Res(2))
Worksheets("Example14").Range("D" & (i + 4)).Value = Val(Res(3))
Next i
ErrorCheck viVPrintf(Agte4981a, "CALC1:COMP:COUN:DATA?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", BIN_Result)
ErrorCheck viVPrintf(Agte4981a, "CALC1:COMP:COUN:OVLD?" + vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", OVLD_Result)
Res = Split(BIN_Result, ",")
For i = 1 To 9
Worksheets("Example14").Range("K" & (i + 4)).Value = "BIN " & i
Worksheets("Example14").Range("L" & (i + 4)).Value = Val(Res(i))
Next i
Worksheets("Example14").Range("K14").Value = "OUT OF BINS "
Worksheets("Example14").Range("L14").Value = Val(Res(0))