Agilent Technologies Infiniium 90000 Q-Series, Programmer'S Manual

Page: 1073 / 1186

Sample Programs
38
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference 1073
' Download waveform data.
' -----------------------------------------------------------------
' Get the waveform type.
Debug.Print "Waveform type: " + _
DoQueryString(":WAVeform:TYPE?")
' Get the number of waveform points.
Debug.Print "Waveform points: " + _
DoQueryString(":WAVeform:POINts?")
' Set the waveform source.
DoCommand ":WAVeform:SOURce CHANnel1"
Debug.Print "Waveform source: " + _
DoQueryString(":WAVeform:SOURce?")
' Choose the format of the data returned:
DoCommand ":WAVeform:FORMat WORD"
Debug.Print "Waveform format: " + _
DoQueryString(":WAVeform:FORMat?")
' Display the waveform settings:
Dim dblXIncrement As Double
Dim dblXOrigin As Double
Dim dblYIncrement As Double
Dim dblYOrigin As Double
dblXIncrement = DoQueryNumber(":WAVeform:XINCrement?")
Debug.Print "Waveform X increment: " + _
Format(dblXIncrement, "Scientific")
dblXOrigin = DoQueryNumber(":WAVeform:XORigin?")
Debug.Print "Waveform X origin: " + _
Format(dblXOrigin, "Scientific")
dblYIncrement = DoQueryNumber(":WAVeform:YINCrement?")
Debug.Print "Waveform Y increment: " + _
Format(dblYIncrement, "Scientific")
dblYOrigin = DoQueryNumber(":WAVeform:YORigin?")
Debug.Print "Waveform Y origin: " + _
FormatNumber(dblYOrigin, 0)
' Get the waveform data
DoCommand ":WAVeform:STReaming OFF"
Dim lngNumWords As Long
lngNumWords = DoQueryIEEEBlock_Words(":WAVeform:DATA?")
Debug.Print "Number of data values: " + CStr(lngNumWords)
' 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.