734 Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide
12 Programming Examples
' - RUN starts the acquisition of data for the active
' waveform display.
' - STOP stops the data acquisition and turns off AUTOSTORE.
oscp.DoCommand(":RUN")
oscp.DoCommand(":STOP")
' VIEW_BLANK (not executed in this example):
' - VIEW turns on (starts displaying) an active channel or
' pixel memory.
' - BLANK turns off (stops displaying) a specified channel or
' pixel memory.
oscp.DoCommand(":BLANk CHANnel1")
oscp.DoCommand(":VIEW CHANnel1")
' TIME_MODE (not executed in this example) - Set the time base
' mode to MAIN, DELAYED, XY or ROLL.
oscp.DoCommand(":TIMebase:MODE MAIN")
End Sub
' Capture()
' --------------------------------------------------------------
' This function prepares the scope for data acquisition and then
' uses the DIGITIZE MACRO to capture some data.
Private Shared Sub Capture()
' AQUIRE_TYPE - Sets the acquisition mode. There are three
' acquisition types NORMAL, PEAK, or AVERAGE.
oscp.DoCommand(":ACQuire:TYPE NORMal")
' AQUIRE_COMPLETE - Specifies the minimum completion criteria
' for an acquisition. The parameter determines the percentage
' of time buckets needed to be "full" before an acquisition is
' considered to be complete.
oscp.DoCommand(":ACQuire:COMPlete 100")
' DIGITIZE - Used to acquire the waveform data for transfer
' over the interface. Sending this command causes an
' acquisition to take place with the resulting data being
' placed in the buffer.
' NOTE! The use of the DIGITIZE command is highly recommended
' as it will ensure that sufficient data is available for
' measurement. Keep in mind when the oscilloscope is running,
' communication with the computer interrupts data acquisition.
' Setting up the oscilloscope over the bus causes the data
' buffers to be cleared and internal hardware to be
' reconfigured.
' If a measurement is immediately requested there may not have
' been enough time for the data acquisition process to collect
' data and the results may not be accurate. An error value of
' 9.9E+37 may be returned over the bus in this situation.
'
oscp.DoCommand(":DIGitize CHANnel1")
End Sub