Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1027

Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
Debug.Print "Waveform Y reference: " + _
FormatNumber(lngYReference, 0)
Debug.Print "Coupling: " + dctCoupling.Item(intCoupling)
Debug.Print "Waveform X display range: " + _
Format(dblXDispRange, "Scientific")
Debug.Print "Waveform X display origin: " + _
Format(dblXDispOrigin, "Scientific")
Debug.Print "Waveform Y display range: " + _
Format(dblYDispRange, "Scientific")
Debug.Print "Waveform Y display origin: " + _
Format(dblYDispOrigin, "Scientific")
Debug.Print "Date: " + strDate
Debug.Print "Time: " + strTime
Debug.Print "Frame model: " + strFrameModel
Debug.Print "Acquire mode: " + dctAcqMode.Item(intAcqMode)
Debug.Print "Completion pct: " + _
FormatNumber(intCompletion, 0)
Debug.Print "Waveform X units: " + dctUnits.Item(intXUnits)
Debug.Print "Waveform Y units: " + dctUnits.Item(intYUnits)
Debug.Print "Max BW limit: " + _
Format(dblMaxBwLimit, "Scientific")
Debug.Print "Min BW limit: " + _
Format(dblMinBwLimit, "Scientific")
' Get the waveform data.
DoCommand ":WAVeform:STReaming OFF"
varQueryResult = DoQueryIEEEBlock_I2(":WAVeform:DATA?")
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) + _
38
Sample Programs
1027