Agilent Technologies InfiniiVision 3000 X-Series Programmer's Guide

1242 Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide
40 Programming Examples
' Get the number of waveform points available.
DoCommand ":WAVeform:POINts 10240"
Debug.Print "Waveform points available: " + _
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 Preamble() As Double
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
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 = 2 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

Agilent Technologies InfiniiVision 3000 X-Series Specifications

General

Brand	Agilent Technologies
Model	InfiniiVision 3000 X-Series
Category	Test Equipment
Language	English