284 WM-OM-E Rev I
Writing VB Scripts
VBScripting is one of the custom features of your instrument. Others include the ability to work with
programs such as Excel, Mathcad and MATLAB.
Types of Scripts in VBS
The instrument's VBS provides two types of script.
• The Waveform Function script
allows you to take the data from one or two traces and make
a new trace whose values may depend on the values of the input trace.
• The Parameter Function script also takes in the data from one or two traces, but it only has
one output. This output is the zero
th
element in the output array. It appears as a parameter
value on the instrument's screen. The remainder of the array is currently not used, and is
not accessible.
Within both types of script, you can call Excel.
Loading and Saving VBScripts
From the editing panel you can save your script and you can load a previous one. Should you forget
to save a script, please note that when you save your setup, it has your current scripts embedded in
it. Therefore it is a good idea to save your setup frequently. It is worth saving the script separately
as well, because it is saved in a suitable format for printing or off-line editing with Notepad. Note
that in both these examples the input data are referred to as InResult.DataArray. You can also write
InResult1.DataArray and InResult2.DataArray, which refer to the two input traces.
InResult.DataArray always refers to input trace 1. These remarks hold for any script that you write.
Example Waveform Function Script: Square of a waveform
' Example script to produce a waveform
This example calculates the square of
the input waveform.
OutResult.Samples = InResult.Samples ' Visible trace length + 1
' Note that a trace of nominal length 1000 comprises data numbered from
' 0 to 1001. The 1001st point is not visible, so you
' normally use points 0 to 1000,
' giving 1001 points and 1000 intervals between points.
startData = 0
endData = OutResult.Samples
LastPoint = endData - 1 ' because the last point is invisible.
ReDim newArray(OutResult.Samples) ' to store the results
unscaledData = InResult.DataArray(False)
To Next Page
Loading...
Need help?
General
