Teledyne LeCroy ST Automated Test Suite User Manual - Manual (Page 19)

19
4.6 Running InFusion
You can use the SierraSASAnalyzer automation object to run InFusion and start scenarios from
previously saved libraries:
1- Set scenario to port: Assigns a scenario from a library to a specific port of the board.
2- Start scenario: Starts scenario on the specified port of the board
3- Stop scenario: Stops scenario on the specified port of the board.
Depending on the port configuration and the number of Jammer ports, you may need to repeat the
steps. For example, if you have 2 ports of Jammer (DEVICE_CONFIG_J_J_0_0) and you want to
start scenario on ports 0 and 1, use the following code:
' --------- set port configuration of board to DEVICE_CONFIG_J_J_0_0 ---------
MySASAutomation.SetPortConfiguration 0, 68
If Err.Number <> 0 Then
MySTATS.ReportError Err.number, Err.Description
Else
MySTATS.ReportText ("Set port configuration is done")
End If
' --------- Assign “FourthScenario” of VTSE.infdb library to the port 0 of board 0 ---------
MySASAutomation.SetScenarioToPort 0, 0, "E: \Projects\VTSE.infdb", "FourthScenario"
If Err.Number <> 0 Then
MySTATS.ReportError Err.number, Err.Description
Else
MySTATS.ReportText ("Scenario is set to port 0")
End If
' --------- Assign “ThirdScenario” of VTSE.infdb library to the port 1 of board 0 ---------
MySASAutomation.SetScenarioToPort 0, 1, "E:\Projects\VTSE.infdb", "ThirdScenario"
If Err.Number <> 0 Then
MySTATS.ReportError Err.number, Err.Description
Else
MySTATS.ReportText ("Scenario is set to port 1")
End If
'--------- Start scenario on port 0 board 0 ---------
MySASAutomation.StartScenario 0, 0
If Err.Number <> 0 Then
MySTATS.ReportError Err.number, Err.Description
Else
MySTATS.ReportText ("Scenario is started on port 0")
End If
'--------- Start scenario on port 1 board 0 ---------
MySASAutomation.StartScenario 0, 1
If Err.Number <> 0 Then
MySTATS.ReportError Err.number, Err.Description
Else
MySTATS.ReportText ("Scenario is started on port 1")
End If
'--------- Stop scenario on port 0 board 0 ---------
MySASAutomation.StopScenario 0, 0
If Err.Number <> 0 Then
MySTATS.ReportError Err.number, Err.Description
Else
MySTATS.ReportText ("Scenario is stopped on port 0")
End If