Agilent Technologies InfiniiVision 6000 Series Manual de servicio descargar pdf (Pagina 639)

100

101

Commands by Subsystem 5

Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide 639

' and the actual waveform data followed by a new line (NL) character.

' The query data has the following format:

' <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 824

1 2 ... 634 635 636 637 638 639 640 641 642 643 644 ... 933 934

Comentarios a estos manuales

Sin comentarios

Agilent Technologies InfiniiVision 6000 Series Manual de servicio Pagina 639

Comentarios a estos manuales

Relacionado con productos y manuales para Multímetros Agilent Technologies InfiniiVision 6000 Series