458
Agilent 6000 Series Oscilloscopes Programmer's Reference
3
Commands by Subsystem
'
XORIGIN
: float64 - always the first data point in memory.
'
XREFERENCE
: int32 - specifies the data point associated with
'
x-origin.
'
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
'
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 = " + _
FormatNumber((lngVSteps / 2 - lngYReference) * _
sngYInc sngYOrigin) + " V" + vbCrLf
strOutput = str "Sec/Div = " + _
FormatNumber(lngPoints * dblXIncrement / 10 * _
Содержание DSO6014A/L
Страница 1: ...A Agilent 6000 Series Oscilloscopes Programmer s Reference...
Страница 16: ...16 Agilent 6000 Series Oscilloscopes Programmer s Reference...
Страница 30: ...30 Agilent 6000 Series Oscilloscopes Programmer s Reference 1 What s New...
Страница 540: ...540 Agilent 6000 Series Oscilloscopes Programmer s Reference 6 Error Messages...
Страница 562: ...562 Agilent 6000 Series Oscilloscopes Programmer s Reference 7 Status Reporting...
Страница 584: ...584 Agilent 6000 Series Oscilloscopes Programmer s Reference 8 More About Oscilloscope Commands...
Страница 624: ...624 Agilent 6000 Series Oscilloscopes Programmer s Reference 9 Programming Examples...