HP 86037B, Instruction Manual

Page: 80 / 204

4-8
Remote Control
Setting up a Measurement
The add_test subroutine
Public Sub add_test(str, Optional bReport = False)
'
' Purpose: Adds the test name to the collection of tests to be run.
' Used when getting TES parameter collections.
'
Dim sTestName As Variant
Dim rsTestTable As Recordset
Dim oTest As TestObjDataType
With TESMngr.ParmMngr
sTestName = str
If .GetTestRecord(sTestName, rsTestTable, True) Then
Set oTest = New TestObjDataType
oTest.sTestName = rsTestTable!sTestName
oTest.lTestID = rsTestTable!lTestID
oTest.sReference = rsTestTable!sReference
oTest.iIndex = 1
oTest.bTestEnabled = True
oTest.bReportEnabled = bReport
oTest.sDescription = rsTestTable!sDescription
m_colTestsToRun.Add Item:=oTest, Key:=oTest.sTestName
Set oTest = Nothing
End If
If m_colTestsToRun.count > 0 Then
.GetTestSeqOptions m_sActiveTestPlan, m_sActiveTestGroup, _
m_colTestsToRun
End If
End With
End Sub
The setup_testplan subroutine
Private Sub setup_testplan()
'
' Purpose: Tells the test executive (TES) the active test plan and group.
' used in connection with extracting parameter collections
' and executing test plans.
'
With TESMngr.Controller' The following lines refer back to the TES Manager object
.ActiveTestPlan = m_sActiveTestPlan
.ActiveTestGroup = m_sActiveTestGroup
Set .TestsToRun = m_colTestsToRun
.SerialNumber = ""
.TestPlanNotes = ""
Set .Devices = TESMngr.InstMngr.Devices
End With
End Sub