Agilent Technologies InfiniiVision 6000 Series Manual de Serviço Página 831

  • Descarregar
  • Adicionar aos meus manuais
  • Imprimir
  • Página
    / 934
  • Índice
  • MARCADORES
  • Avaliado. / 5. Com base em avaliações de clientes
Vista de página 830
Programming Examples 12
Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide 831
' 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 = 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) + _
" V" + vbCrLf
strOutput = strOutput + "Offset = " + _
Vista de página 830
1 2 ... 826 827 828 829 830 831 832 833 834 835 836 ... 933 934

Comentários a estes Manuais

Sem comentários