SDA Operator’s Manual
SDA-OM-E Rev H 269
[out, retval] VARIANT *pArray);
DataArray([in, defaultvalue(TRUE)] BOOL arrayValuesScaled,
[in, defaultvalue(LEC_ALL_DATA)] int numSamples,
[in, defaultvalue(0)] int startIndex,
[in, defaultvalue(1)] int sparsingFactor,
[in] VARIANT array);
HorizontalUnits([out, retval] BSTR *pVal); HorizontalUnits([in] BSTR newVal);
Samples([out, retval] int *pVal); Samples([in] int newVal);
HorizontalResolution([out, retval] double *pVal); HorizontalResolution([in] double newVal);
HorizontalPerStep([out, retval] double *pVal); HorizontalPerStep([in] double newVal);
HorizontalOffset([out, retval] double *pVal); HorizontalOffset([in] double newVal);
Sweeps([out, retval] int *pVal); Sweeps([in] int newVal);
HorizontalVariances([out, retval] int *pVal); HorizontalVariances([in] int newVal);
HorizontalVarianceArray([out, retval] VARIANT * pArray);
HorizontalVarianceArray([in] VARIANT array);
HorizontalFrameStart([out, retval] double *pVal); HorizontalFrameStart([in] double newVal);
HorizontalFrameStop([out, retval] double *pVal); HorizontalFrameStop([in] double newVal);
VerticalFrameStart([out, retval] double *pVal); VerticalFrameStart([in] double newVal);
VerticalFrameStop([out, retval] double *pVal); VerticalFrameStop([in] double newVal);
VerticalResolution([out, retval] double *pVal); VerticalResolution([in] double newVal);
VerticalPerStep([out, retval] double *pVal); VerticalPerStep([in] double newVal);
VerticalOffset([out, retval] double *pVal); VerticalOffset([in] double newVal);
VerticalMinPossible([out, retval] double *pVal); VerticalMinPossible([in] double newVal);
VerticalMaxPossible([out, retval] double *pVal); VerticalMaxPossible([in] double newVal);
VerticalUnits([out, retval] BSTR *pVal); VerticalUnits([in] BSTR newVal);
Communicating with Other Programs from a VBScript
The ability of The instrument to communicate with other programs opens up immense
possibilities, both for calculation and for graphics, making the assembly of reports relatively
simple.
Communicating with Excel from a VBScript
Although there are direct instrument calls to Excel and other programs, you may wish to do this
from a VBScript. Here is an example:
OutResult.Samples = InResult.Samples
startData = 0
endData = OutResult.Samples
ReDim newData(OutResult.Samples)
USD = InResult.DataArray(False)
LastPoint = endData - 1
Set ExcelApp = GetObject(,"Excel.Application")
ExcelApp.Visible = True
ExcelColumnA = 2 'Column where the data will appear in Excel
ExcelRow = 10 'Row where the data will start
ExcelColumnB = 3 ' Column where the output data will appear in
Excel
For K = 0 To LastPoint