Agilent Technologies InfiniiVision 7000A Series Programmer's Manual page 859

Agilent InfiniiVision 7000A Series Oscilloscopes Programmer's Guide
Debug.Print "Waveform points desired: " + _
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 (WORD, BYTE, ASCII):
DoCommand ":WAVeform:FORMat BYTE"
Debug.Print "Waveform format: " + _
DoQueryString(":WAVeform:FORMat?")
' Display the waveform settings:
Dim intFormat As Integer
Dim intType As Integer
Dim lngPoints As Long
Dim lngCount As Long
Dim dblXIncrement As Double
Dim dblXOrigin As Double
Dim lngXReference As Long
Dim sngYIncrement As Single
Dim sngYOrigin As Single
Dim lngYReference As Long
Dim strOutput As String
Dim lngNumNumbers As Long
lngNumNumbers = DoQueryNumbers(":WAVeform:PREamble?")
intFormat = dblArray(0)
intType = dblArray(1)
lngPoints = dblArray(2)
lngCount = dblArray(3)
dblXIncrement = dblArray(4)
dblXOrigin = dblArray(5)
lngXReference = dblArray(6)
sngYIncrement = dblArray(7)
sngYOrigin = dblArray(8)
lngYReference = dblArray(9)
If intFormat = 0 Then
Debug.Print "Waveform format: BYTE"
ElseIf intFormat = 1 Then
Debug.Print "Waveform format: WORD"
ElseIf intFormat = 4 Then
Debug.Print "Waveform format: ASCii"
End If
If intType = 0 Then
Debug.Print "Acquisition type: NORMAL"
ElseIf intType = 1 Then
Debug.Print "Acquisition type: PEAK"
ElseIf intType = 2 Then
Debug.Print "Acquisition type: AVERAGE"
End If
Debug.Print "Waveform points desired: " + _
Programming Examples
859
12