Agilent Technologies 5000 Series manual Commands by Subsystem

Commands by Subsystem 3

'

'<header><waveform_data><NL>

'Where:

'<header> = #800001000 (This is an example header)

'The "#8" may be stripped off of the header and the remaining

'numbers are the size, in bytes, of the waveform data block. The

'size can vary depending on the number of points acquired for the

'waveform. You can then read that number of bytes from the

'oscilloscope and the terminating NL character.

'

Dim lngI As Long

Dim lngDataValue As Long

varQueryResult = myScope.ReadIEEEBlock(BinaryType_UI1)

' Unsigned integer bytes.
For lngI = 0 To UBound(varQueryResult) _
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 411