Programming Examples
12
Agilent InfiniiVision 7000A Series Oscilloscopes Programmer's Guide
819
'
XINCREMENT
: float64 - time difference between data points.
'
XORIGIN
: float64 - always the first data point in memory.
'
XREFERENCE
: int32 - specifies the data point associated with
'
x-origin.
'
YINCREMENT
: float32 - voltage difference between data points.
'
YORIGIN
: float32 - value is the voltage at center screen.
'
YREFERENCE
: int32 - specifies the data point where y-origin
'
occurs.
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?"
' Query for the preamble.
Preamble() = myScope.ReadList
' Read preamble information.
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)
strOutput = ""
'strOutput = str "Format = " + CStr(intFormat) + vbCrLf
'strOutput = str "Type = " + CStr(intType) + vbCrLf
'strOutput = str "Points = " + CStr(lngPoints) + vbCrLf
'strOutput = str "Count = " + CStr(lngCount) + vbCrLf
'strOutput = str "X increment = " + _
'
FormatNumber(dblXIncrement * 1000000) + _
'
" us" + vbCrLf
'strOutput = str "X origin = " + _
'
FormatNumber(dblXOrigin * 1000000) + _
'
" us" + vbCrLf
'strOutput = str "X reference = " + _
'
CStr(lngXReference) + vbCrLf
'strOutput = str "Y increment = " + _
'
FormatNumber(sngYIncrement * 1000) + _
'
" mV" + vbCrLf
'strOutput = str "Y origin = " + _
'
FormatNumber(sngYOrigin) + " V" + vbCrLf
'strOutput = str "Y reference = " + _
'
CStr(lngYReference) + vbCrLf
strOutput = str "Volts/Div = " + _
FormatNumber(lngVSteps * sngYIncrement / 8) + _
" V" + vbCrLf
strOutput = str "Offset = " + _
Summary of Contents for InfiniiVision 7000A Series
Page 1: ...Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide...
Page 34: ...34 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 1 What s New...
Page 44: ...44 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 2 Setting Up...
Page 58: ...58 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 3 Getting Started...
Page 750: ...750 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide 8 Error Messages...
Page 922: ...922 Agilent InfiniiVision 7000A Series Oscilloscopes Programmer s Guide Index...