Agilent Technologies 2000 X-Series Manual de Serviço descarregar pdf (Página 651)

100

101

:WAVeform Commands 30

Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide 651

' 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-1andisalways1.

' 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 = strOutput + "Format ="+CStr(intFormat) + vbCrLf

'strOutput = strOutput + "Type = " + CStr(intType) + vbCrLf

'strOutput = strOutput + "Points ="+CStr(lngPoints) + vbCrLf

'strOutput = strOutput + "Count = " + CStr(lngCount) + vbCrLf

'strOutput = strOutput + "X increment = " + _

' FormatNumber(dblXIncrement * 1000000) + " us" + vbCrLf

'strOutput = strOutput + "X origin="+_

' FormatNumber(dblXOrigin * 1000000) + " us" + vbCrLf

'strOutput = strOutput + "X reference = " + _

' CStr(lngXReference) + vbCrLf

'strOutput = strOutput + "Y increment = " + _

' FormatNumber(sngYIncrement * 1000) + " mV" + vbCrLf

'strOutput = strOutput + "Y origin="+_

' FormatNumber(sngYOrigin) + " V" + vbCrLf

'strOutput = strOutput + "Y reference = " + _

' CStr(lngYReference) + vbCrLf

strOutput = strOutput + "Volts/Div="+_

FormatNumber(lngVSteps * sngYIncrement / 8) + _

1 2 ... 646 647 648 649 650 651 652 653 654 655 656 ... 929 930

Comentários a estes Manuais

Sem comentários

Agilent Technologies 2000 X-Series Manual de Serviço Página 651

Comentários a estes Manuais

Manuais e produtos relacionados com Multímetros Agilent Technologies 2000 X-Series