Agilent Technologies 2000 X-Series Instrukcja Obsługi Strona 651

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
  • Strona
    / 930
  • Spis treści
  • BOOKMARKI
  • Oceniono. / 5. Na podstawie oceny klientów
Przeglądanie stron 650
: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) + _
Przeglądanie stron 650
1 2 ... 646 647 648 649 650 651 652 653 654 655 656 ... 929 930

Komentarze do niniejszej Instrukcji

Brak uwag