Agilent Technologies 2000 X-Series Wartungshandbuch PDF herunterladen (Seite 804)

100

101

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

38 Programming Examples

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

' Get screen image.

DoCommand ":HARDcopy:INKSaver OFF"

Dim byteData() As Byte

byteData = DoQueryIEEEBlock_UI1(":DISPlay:DATA? PNG, COLor")

' Save screen image to a file.

Dim strPath As String

strPath = "c:\scope\data\screen.png"

If Len(Dir(strPath)) Then

Kill strPath ' Remove file if it exists.

End If

Dim hFile As Long

hFile = FreeFile

Open strPath For Binary Access Write Lock Write As hFile

Put hFile, , byteData ' Write data.

Close hFile ' Close file.

MsgBox "Screen image (" + CStr(UBound(byteData) + 1) + _

" bytes) written to " + strPath

' Download waveform data.

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

' 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 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

1 2 ... 799 800 801 802 803 804 805 806 807 808 809 ... 929 930

Kommentare zu diesen Handbüchern

Keine Kommentare

Agilent Technologies 2000 X-Series Wartungshandbuch Seite 804

Kommentare zu diesen Handbüchern

Verwandte Produkte und Handbücher für Multimeter Agilent Technologies 2000 X-Series