Agilent Technologies InfiniiVision 6000 Series Manual de Serviço descarregar pdf (Página 871)

100

101

Programming Examples 12

Agilent InfiniiVision 6000 Series Oscilloscopes Programmer's Guide 871

Debug.Print "Waveform points desired: " + _

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 sngYOrigin As Single

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)

sngYOrigin = dblArray(8)

lngYReference = dblArray(9)

If intFormat=0Then

Debug.Print "Waveform format: BYTE"

ElseIf intFormat = 1 Then

Debug.Print "Waveform format: WORD"

ElseIf intFormat = 4 Then

Debug.Print "Waveform format: ASCii"

End If

If intType = 0 Then

Debug.Print "Acquisition type: NORMAL"

ElseIf intType = 1 Then

Debug.Print "Acquisition type: PEAK"

ElseIf intType = 2 Then

Debug.Print "Acquisition type: AVERAGE"

End If

Debug.Print "Waveform points desired: " + _

1 2 ... 866 867 868 869 870 871 872 873 874 875 876 ... 933 934

Comentários a estes Manuais

Sem comentários

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

Comentários a estes Manuais

Manuais e produtos relacionados com Multímetros Agilent Technologies InfiniiVision 6000 Series