Agilent Technologies InfiniiVision 7000A Series Programmer's Manual page 816

12
Programming Examples
VisaComError:
End Sub
'
' Analyze
' -------------------------------------------------------------------
' In analyze, we will do the following:
'
'
'
'
'
' -------------------------------------------------------------------
Private Sub Analyze()
816
'
' NOTE! The DIGITIZE command is highly recommended for triggering
' modes other than SINGLE.
' available for measurement.
' the completion criteria may never be met.
' gathered in Single mode is related to the sweep speed, memory
' depth, and maximum sample rate.
' with a 1000-point memory, a sweep speed of 10 us/div (100 us
' total time across the screen), and a 20 MSa/s maximum sample rate.
' 1000 divided by 100 us equals 10 MSa/s.
' less than or equal to the maximum sample rate, the full 1000 points
' will be digitized in a single acquisition.
' (10 us across the screen).
' because this is greater than the maximum sample rate by 5 times,
' only 400 points (or 1/5 the points) can be gathered on a single
' trigger. 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.
' measurement is immediately requested, there may have not been
' enough time for the data acquisition process to collect data,
' and the results may not be accurate.
' may be returned over the bus in this situation.
'
myScope.WriteString ":DIGITIZE CHAN1"
Exit Sub
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
- Save the system setup to a file and restore it.
- Save the waveform data to a file on the computer.
- Make single channel measurements.
- Save the oscilloscope display to a file that can be sent to a
printer.
On Error GoTo VisaComError
' SAVE_SYSTEM_SETUP - The :SYSTEM:SETUP? query returns a program
' message that contains the current state of the instrument.
' format is a definite-length binary block, for example,
' #800002204<setup string><NL>
' where the setup string is 2204 bytes in length.
myScope.WriteString ":SYSTEM:SETUP?"
varQueryResult = myScope.ReadIEEEBlock(BinaryType_UI1)
CheckForInstrumentErrors
' Output setup string to a file:
Agilent InfiniiVision 7000A Series Oscilloscopes Programmer's Guide
This ensures that sufficient data is
If DIGITIZE is used with single mode,
The number of points
For example, take an oscilloscope
Because this number is
Now, use 1 us/div
1000 divided by 10 us equals 100 MSa/s;
An error value of 9.9E+37
' After reading query results.
If a
Its