Table of Contents
Advertisement
Measurement Applications (Sample Programs)
Sorting Measurement Results Using Comparator
ErrorCheck viVPrintf(Agte4981a, ":CALC1:COMP:PRIM:BIN" & i &
":STAT OFF" + vbLf, 0)
Next i
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
148
Chapter 9
Advertisement
Table of Contents
