Repository.Xfmea.GetAllXfmeaCausesDictionary Method: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
mNo edit summary
No edit summary
Line 17: Line 17:
  '''VB.NET'''  
  '''VB.NET'''  
   
   
  {{APIComment|'Add code to connect to a Synthesis repository.}}
  {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}}
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
  {{APIComment|...}}
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
  {{APIComment|'Open project #1 and get a dictionary of all causes associated with failure #1.}}
  {{APIComment|'Open project #1 and get a dictionary of all causes associated with failure #1.}}
  {{APIPrefix|Dim}} Dict {{APIPrefix|As}} Dictionary (of Integer, XfmeaCause)   
  {{APIPrefix|Dim}} Dict {{APIPrefix|As}} Dictionary (of Integer, XfmeaCause)   
  MyRepository.Project.SetCurrentProject(1)   
  MyRepository.Project.SetCurrentProject(1)   
  Dict = MyRepository.Xfmea.GetAllXfmeaCausesDictionary(1)
  Dict = MyRepository.Xfmea.GetAllXfmeaCausesDictionary(1)
   
   
  {{APIComment|'Output sample: Display the number of entries in the dictionary.}}
  {{APIComment|'Output sample: Display the number of entries in the dictionary.}}
  MsgBox(Dict.Count)
  MsgBox(Dict.Count)

Revision as of 18:05, 8 April 2016

APIWiki.png


Member of: SynthesisAPI.Repository


Gets a dictionary of the causes associated with a failure. Returns a Dictionary(Of Integer, XfmeaCause) object, where the keys are the ID numbers of the causes. (VB.NET only)

Syntax

.Xfmea.GetAllXfmeaCausesDictionary(FailureID)

Parameters

FailureID

Required. Integer. The record ID of the failure.


Example

This example assumes that system hierarchy items with FMEAs exists in the first available project of a repository.

VB.NET 

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
 
 'Open project #1 and get a dictionary of all causes associated with failure #1. 
  Dim Dict As Dictionary (of Integer, XfmeaCause)  
  MyRepository.Project.SetCurrentProject(1)  
  Dict = MyRepository.Xfmea.GetAllXfmeaCausesDictionary(1)

 'Output sample: Display the number of entries in the dictionary. 
  MsgBox(Dict.Count)