Agilent Technologies InfiniiVision 4000 X-Series Programmer's Manual page 1037

•
•
•
•
•
•
•
•
•
•
•
•
Example Code
Agilent InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide
":DIGitize" on page 199
":WAVeform:COUNt" on page 1028
":WAVeform:DATA" on page 1029
":WAVeform:FORMat"
":WAVeform:POINts" on page 1032
":WAVeform:TYPE" on page 1046
":WAVeform:XINCrement"
":WAVeform:XORigin"
":WAVeform:XREFerence"
":WAVeform:YINCrement"
":WAVeform:YORigin"
":WAVeform:YREFerence"
' GET_PREAMBLE - The preamble block contains all of the current
' WAVEFORM settings.
' where <preamble_block> is:
' FORMAT : int16 - 0 = BYTE, 1 = WORD, 4 = ASCII.
' TYPE : int16 - 0 = NORMAL, 1 = PEAK DETECT, 2 = AVERAGE
' POINTS : int32 - number of data points transferred.
' COUNT : int32 - 1 and is always 1.
' XINCREMENT : float64 - time difference between data points.
' XORIGIN : float64 - always the first data point in memory.
' XREFERENCE : int32 - specifies the data point associated with
'
' YINCREMENT : float32 - voltage diff between data points.
' YORIGIN : float32 - value is the voltage at center screen.
' YREFERENCE : int32 - specifies the data point where y-origin
'
Dim Preamble()
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
myScope.WriteString ":WAVEFORM:PREAMBLE?"
Preamble() = myScope.ReadList
intFormat = Preamble(0)
intType = Preamble(1)
lngPoints = Preamble(2)
lngCount = Preamble(3)
dblXIncrement = Preamble(4)
dblXOrigin = Preamble(5)
lngXReference = Preamble(6)
on page 1031
on page 1049
on page 1050
on page 1051
on page 1052
on page 1053
on page 1054
It is returned in the form <preamble_block><NL>
x-origin.
occurs.
' Read preamble information.
:WAVeform Commands
' Query for the preamble.
33
1037