Agilent Technologies InfiniiVision 5000 Series Programmer's Manual page 748

12
Programming Examples
VisaComError:
End Sub
'
' Analyze
' -------------------------------------------------------------------
' In analyze, we will do the following:
'
'
'
'
'
' -------------------------------------------------------------------
Private Sub Analyze()
748
'
' 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:
This ensures that sufficient data is
If DIGITIZE is used with single mode,
For example, take an oscilloscope
1000 divided by 10 us equals 100 MSa/s;
' After reading query results.
Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide
The number of points
Because this number is
Now, use 1 us/div
If a
An error value of 9.9E+37
Its