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

100

101

Programming Examples 38

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

' -----------------------------------------------------------------

' Set the waveform points mode.

DoCommand ":WAVeform:POINts:MODE RAW"

Debug.Print "Waveform points mode: " + _

DoQueryString(":WAVeform:POINts:MODE?")

' Get the number of waveform points available.

Debug.Print "Waveform points available: " + _

DoQueryString(":WAVeform:POINts?")

' Set the waveform source.

DoCommand ":WAVeform:SOURce CHANnel1"

Debug.Print "Waveform source: " + _

DoQueryString(":WAVeform:SOURce?")

' Choose the format of the data returned (WORD, BYTE, ASCII):

DoCommand ":WAVeform:FORMat BYTE"

Debug.Print "Waveform format: " + _

DoQueryString(":WAVeform:FORMat?")

' Display the waveform settings:

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 lngYOrigin As Long

Dim lngYReference As Long

Dim strOutput As String

Dim lngNumNumbers As Long

lngNumNumbers = DoQueryNumbers(":WAVeform:PREamble?")

intFormat = dblArray(0)

intType = dblArray(1)

lngPoints = dblArray(2)

lngCount = dblArray(3)

dblXIncrement = dblArray(4)

dblXOrigin = dblArray(5)

lngXReference = dblArray(6)

sngYIncrement = dblArray(7)

lngYOrigin = dblArray(8)

lngYReference = dblArray(9)

If intFormat=0Then

Debug.Print "Waveform format: BYTE"

ElseIf intFormat = 1 Then

Debug.Print "Waveform format: WORD"

ElseIf intFormat = 2 Then

Debug.Print "Waveform format: ASCii"

End If

If intType = 0 Then

1 2 ... 842 843 844 845 846 847 848 849 850 851 852 ... 929 930

Comentários a estes Manuais

Sem comentários

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

Comentários a estes Manuais

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