Using TestStand I am trying to figure out how to decompose and index an object reference to a list/array. My sequence is attached. I have received some guidance from the 3rd party developer and some VB code of what should be done. I am having a problem translating it into TestStand. VB code follows description.
I am using .NET to run a 3rd party software using an imaging system and running 3rd party software sequence of tests. In TestStand, my "GetCurrentTests" step, when given an object reference for a specific sequence, returns an object reference of type "object reference(system.collections.generic.list'1[Radiant.Imaging.TSEngine.ICommand]); expected to return a list of tests in the 3rd party sequence.
The next steps "GetCurrentPattern" needs to index through this list in order to get, and subsequently set and show the specific test's display pattern to run the specific test on. The class of this next step is RadiantImaging.TSEngine.ICommand(interface) and returns an object reference(radiantImaging.PatternGenerator.Patterns.Patternbase): a reference to the pattern.
What I am confused about is decomposing the return value "object reference(system.collections.generic.list'1[Radiant.Imaging.TSEngine.ICommand])" in order to provide the ?indexed object reference for "GetCurrent Pattern" step.
VB code is below provided to me that demonstrates how it can be done in VB. I am not familar enough with TestStand, .NET and VB to decompose this>
Any suggestions or guidance is greatly appreciated.
VB Code:
Public Class Form1 Private mPG As PatternGenerator.IPatternGenerator
Private WithEvents mTestSequence As TSEngine.TestSequence Private Sub InitializeButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InitializeButton.Click TSEngine.Settings.MeasurementSource = TSEngine.MeasurementSources.Camera
TSEngine.Settings.SaveMeasurementsToDatabase = False
TSEngine.Settings.SaveResultsToDatabase = True
TSEngine.Settings.SerialNumberAllowDuplicates = True
mPG = TSEngine.CurrentPatternGenerator
TSEngine.Initialize("C:\PM Calibration 4616197.rdb") TSEngine.Databasename = "C:\default Alpha_PEK_Date.pts"
TSEngine.InitializeCamera()
End Sub
Private Sub RunButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RunButton.Click mTestSequence = New TSEngine.TestSequence(1)
Dim result As TSEngine.Tests.ResultEnum For i As Integer = 0 To mTestSequence.NumberTests
Dim p As PatternGenerator.Patterns.PatternBase p = mTestSequence.CommandList(i).Pattern
p.PatternGenerator = mPG
mPG.MonitorType = PatternGenerator.Monitor.PrimaryPartial
'p.PatternGenerator.MonitorType = PatternGenerator.Monitor.PrimaryPartial
p.PatternGenerator = mPG
p.Show()
result = mTestSequence.RunSingleTest(i)
Dim results As List(Of TSEngine.IResult) = mTestSequence.CommandList(i).Result results(i).Name
mTestSequence.CommandList(i).ResultMeasurement.
Next
End Sub
