HP 86037B, Инструкция по эксплуатации

Страница: 92 / 204

4-20
Remote Control
Reading the Measurement Results
In order to extract a single value from the results database it is necessary to
know the name of the value. These names are listed in
“Output Parameters”
on page 4-41 .
Typically, the user is interested in the results of a run or measurement. This
data is located by first finding the appropriate ReportID number correspond-
ing to the desired run number, as demonstrated in the example code. Once the
ReportID number is known, the final results data, as seen on the data review
screen of the system GUI, is found in the
Test_CD section of the database that
has the TestID number 15. Since it may be useful to look at the raw data, uncor-
rected for calibration, this is found in the Test_Gain_Phase section that has the
TestID number 42. In addition to the final results of a measurement, all of the
pertinent parameters used to generate that result are also stored in the
results.mdb database.
The ByteArrayToVariant subroutine
Private Function ByteArrayToVariant(ByRef btByteArray() As Byte) As Variant
'
' Purpose: The data has
' to be assigned to variable length byte array first, and then converted
' to variant via binary file operation.
'
Dim sTempFilename As String
Dim iTempFileNum As Integer
Dim avParm As Variant
'
iTempFileNum = FreeFile
sTempFilename = App.Path & "\TEMP.BIN"
'
If dir(sTempFilename) <> "" Then Kill sTempFilename
Open sTempFilename For Binary As #iTempFileNum
Put #iTempFileNum, , btByteArray
Get #iTempFileNum, 1, avParm
Close #iTempFileNum
Kill sTempFilename
'
ByteArrayToVariant = avParm
End Function