Agilent Technologies 5000 Series manual Commands by Subsystem

Commands by Subsystem 3

Step (UBound(varQueryResult) / 20)		' 20	points.
If intBytesPerData = 2 Then
lngDataValue = varQueryResult(lngI) * 256			_
+ varQueryResult(lngI + 1)	' 16-bit value.
Else
lngDataValue = varQueryResult(lngI)		' 8-bit value.
End If
strOutput = strOutput + "Data point " + _
CStr(lngI / intBytesPerData) + ", " + _

FormatNumber((lngDataValue - lngYReference) _

*sngYIncrement + sngYOrigin) + " V, " + _ FormatNumber(((lngI / intBytesPerData - lngXReference) _

*sngXIncrement + dblXOrigin) * 1000000) + " us" + vbCrLf

Next lngI

MsgBox "Waveform data:" + vbCrLf + strOutput

Example program from the start: "VISA COM Example in Visual Basic" on page 578

Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Reference 423