EasyManua.ls Logo

Agilent Technologies InfiniiVision 3000 X-Series - Page 1154

Agilent Technologies InfiniiVision 3000 X-Series
1282 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Loading...
1154 Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide
40 Programming Examples
Debug.Print "Number of data values:"+_
CStr(UBound(varQueryResult) + 1)
' 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
Dim lngI As Long
For lngI = 0 To UBound(varQueryResult)
lngDataValue = varQueryResult(lngI)
' Write time value, voltage value.
Print #hFile, _
FormatNumber(dblXOrigin + (lngI * dblXIncrement), 9) + _
", " + _
FormatNumber(((lngDataValue - lngYReference) * _
sngYIncrement) + sngYOrigin)
Next lngI
' Close output file.
Close hFile ' Close file.
MsgBox "Waveform format BYTE data written to"+_
"c:\scope\data\waveform_data.csv."
Exit Sub
VisaComError:
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End
End Sub
Private Sub DoCommand(command As String)
On Error GoTo VisaComError
myScope.WriteString command
CheckInstrumentErrors
Exit Sub
VisaComError:
MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _
Err.Source + ","+_
Err.Description, vbExclamation, "VISA COM Error"
End
End Sub
Private Sub DoCommandIEEEBlock(command As String, data As Variant)

Table of Contents

Other manuals for Agilent Technologies InfiniiVision 3000 X-Series

Related product manuals