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

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

4-7
Remote Control
Setting up a Measurement
that handles some error conditions more gracefully than VB collections.
TEScollections are close enough to Visual Basic collections that the items
within the TEScollection can be accessed as described in
“Edit the test param-
eters” on page 4-11 .
Once the tests and test group have been setup, the collection is built with the
setup_testplan
subroutine.
The final step in obtaining the parameter collections is to set a local collection
equal to the TES System parameter collection, the Test Plan parameter collec-
tion, and the Test Group collection to set TEScollections equal to the individ-
ual item collections in the Test level TEScollection of TEScollections. That last
assignment is illustrated by the following statement:
Set TEScolTestGainPhaseParms = colTestParms("Test_Gain_Phase")
There is one such member for each Test in the collection of Tests to be run.
Example for obtaining collections for a given test group
‘This line returns the active system, i.e. HP 86037B
m_sActiveSystem = m_oController.ActiveSystem
‘This line sets the active test plan, always “Standard_Test_Plan”
m_sActiveTestPlan = "Standard_Test_Plan"
‘These 2 lines clear the collection
Set m_colTestsToRun = Nothing
Set m_colTestsToRun = New Collection
‘These 2 lines add the TES Tests to be edited to the collection
add_test "Test_Gain_Phase"
add_test "Test_Length"
‘This sets the Test Group for the 'variables to be edited
m_sActiveTestGroup = "Start_Test"
‘The complete code for this subroutine 'is given below
setup_testplan
‘This obtains the test parameters from ‘testparm.mdb
m_oController.LoadParms "", "", "", ""
‘The first three collections are Visual Basic collection objects
Set colCDSystemParms = m_oController.m_colSystemParms
Set colTestPlanParms = m_oController.m_colTestPlanParms
Set colStartTestGroupParms = m_oController.m_colTestGroupParms
‘This is a TEScollection or a collection of collections.
Set colTestParms = m_oController.m_oTestParms
Set TEScolTestGainPhaseParms = colTestParms("Test_Gain_Phase")