Repository.Project.GetCurrentProject: Difference between revisions
Jump to navigation
Jump to search
Chris Kahn (talk | contribs) |
Chris Kahn (talk | contribs) |
||
Line 8: | Line 8: | ||
== Usage Example == | == Usage Example == | ||
In this usage example, the API is used to connect to a repository, retrieve one of the models in it and then calculate the reliability at a specified time, based on that model. | In this usage example, the API is used to connect to a repository, retrieve one of the models in it and then calculate the reliability at a specified time, based on that model. | ||
{{APIComment|'Declare a new repository connection class.}} | {{APIComment|'Declare a new repository connection class. See [[Repository Class]].}} | ||
Dim MyRepository As New Repository | Dim MyRepository As New Repository | ||
Revision as of 20:10, 27 May 2014
Returns the name and ID of the current project.
Syntax
- GetCurrentProject()AsNameIdPair
Usage Example
In this usage example, the API is used to connect to a repository, retrieve one of the models in it and then calculate the reliability at a specified time, based on that model.
'Declare a new repository connection class. See Repository Class. Dim MyRepository As New Repository 'Connect to a Synthesis repository. Dim Success As Boolean = False Success = MyRepository.ConnectToRepository("C:\Users\Name\Documents\ReliaSoft\Files\repository.rsr9") 'Get a list of the names/IDs of projects in the connected repository. Dim ListOfProjects() As NameIdPair ListOfProjects = MyRepository.GetAllProjects 'Open the first project in the list. MyRepository.SetCurrentProject(ListOfProjects(0).ID) 'Get a list of the names/IDs of models in the current project. Dim ListOfModels() As NameIdPair ListOfModels = MyRepository.GetAllModelsInfo() 'Retrieve the first model in the list. Dim AModel as cModel AModel = MyRepository.GetModel(ListOfModels(0).ID) 'Calculate the reliability at time = 50 and save the result. See Reliability. Dim Rel as Double Rel = AModel.Reliability(50) 'Disconnect from the repository. MyRepository.DisconnectFromRepository