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

100

101

918 Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide

12 Programming Examples

' Set up output file:

strPath = "c:\scope\data\waveform_data.csv"

' Open file for output.

Open strPath For Output Access Write Lock Write As hFile

' Output waveform data in CSV format.

Dim lngDataValue As Long

For lngI = 10 To lngNumBytes - 2 ' Skip past 10-byte header.

lngDataValue = CLng(byteArray(lngI))

' Write time value, voltage value.

Print #hFile, _

Format(dblXOrigin + lngI * dblXIncrement, "Scientific") + _

", " + _

FormatNumber((lngDataValue - dblYReference) * dblYIncrement + _

dblYOrigin)

Next lngI

' Close output file.

Close hFile ' Close file.

MsgBox "Waveform format BYTE data written to"+_

"c:\scope\data\waveform_data.csv."

Exit Sub

ErrorHandler:

MsgBox "*** Error :"+Error, vbExclamation

End

End Sub

Private Sub DoCommand(command As String)

On Error GoTo ErrorHandler

Call ivprintf(id, command + vbLf)

CheckForInstrumentErrors command

Exit Sub

ErrorHandler:

MsgBox "*** Error :"+Error, vbExclamation

End

End Sub

Private Function DoCommandIEEEBlock(command As String, _

lngBlockSize As Long)

On Error GoTo ErrorHandler

' Send command part.

1 2 ... 913 914 915 916 917 918 919 920 921 922 923 ... 933 934

Comentarios a estos manuales

Sin comentarios

Agilent Technologies InfiniiVision 6000 Series Manual de servicio Pagina 918

Comentarios a estos manuales

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