:WAVeform Commands
31
Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide
947
' 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
'
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) + _
Содержание InfiniiVision 3000 X-Series
Страница 1: ...s1 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide...
Страница 30: ...30 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide...
Страница 54: ...54 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 2 Setting Up...
Страница 68: ...68 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 3 Getting Started...
Страница 152: ...152 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 4 Commands Quick Reference...
Страница 218: ...218 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 6 Root Commands...
Страница 242: ...242 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 8 BUS n Commands...
Страница 280: ...280 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 11 DEMO Commands...
Страница 288: ...288 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 12 DIGital d Commands...
Страница 306: ...306 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 14 EXTernal Trigger Commands...
Страница 340: ...340 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 15 FUNCtion Commands...
Страница 358: ...358 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 16 HARDcopy Commands...
Страница 378: ...378 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 18 MARKer Commands...
Страница 446: ...446 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 19 MEASure Commands...
Страница 466: ...466 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 20 MEASure Power Commands...
Страница 502: ...502 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 22 POD Commands POD1 DISP 0 THR 1 40E 00...
Страница 564: ...564 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 23 POWer Commands...
Страница 842: ...842 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 29 TIMebase Commands...
Страница 1046: ...1046 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 34 Obsolete and Discontinued Commands...
Страница 1054: ...1054 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 35 Error Messages...
Страница 1076: ...1076 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 36 Status Reporting...
Страница 1086: ...1086 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 37 Synchronizing Acquisitions...
Страница 1216: ...1216 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 39 Programming Examples...
Страница 1231: ...Index Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide 1231 zoomed window horizontal scale 841...
Страница 1232: ...1232 Agilent InfiniiVision 3000 X Series Oscilloscopes Programmer s Guide Index...