Agilent Technologies InfiniiVision 3000 X-Series - Page 1153

Programming Examples 40
Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide 1153
Preamble() = DoQueryNumbers(":WAVeform:PREamble?")
intFormat = Preamble(0)
intType = Preamble(1)
lngPoints = Preamble(2)
lngCount = Preamble(3)
dblXIncrement = Preamble(4)
dblXOrigin = Preamble(5)
lngXReference = Preamble(6)
sngYIncrement = Preamble(7)
sngYOrigin = Preamble(8)
lngYReference = Preamble(9)
If intFormat=0Then
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"
ElseIf intType = 3 Then
Debug.Print "Acquisition type: HRESolution"
End If
Debug.Print "Waveform points: " + _
FormatNumber(lngPoints, 0)
Debug.Print "Waveform average count:"+_
FormatNumber(lngCount, 0)
Debug.Print "Waveform X increment: " + _
Format(dblXIncrement, "Scientific")
Debug.Print "Waveform X origin: " + _
Format(dblXOrigin, "Scientific")
Debug.Print "Waveform X reference: " + _
FormatNumber(lngXReference, 0)
Debug.Print "Waveform Y increment: " + _
Format(sngYIncrement, "Scientific")
Debug.Print "Waveform Y origin: " + _
FormatNumber(sngYOrigin, 0)
Debug.Print "Waveform Y reference: " + _
FormatNumber(lngYReference, 0)
' Get the waveform data
varQueryResult = DoQueryIEEEBlock_UI1(":WAVeform:DATA?")