Template:Repository.Ex: Difference between revisions
Jump to navigation
Jump to search
Chris Kahn (talk | contribs) No edit summary |
Alex Ulanov (talk | contribs) No edit summary |
||
| Line 7: | Line 7: | ||
{{APIComment|'Get a list of the names/IDs of projects in the connected repository.}} | {{APIComment|'Get a list of the names/IDs of projects in the connected repository.}} | ||
Dim ListOfProjects() As NameIdPair | Dim ListOfProjects() As NameIdPair | ||
ListOfProjects = MyRepository.GetAllProjects() | ListOfProjects = MyRepository.Project.GetAllProjects() | ||
{{APIComment|'Open the first project in the list.}} | {{APIComment|'Open the first project in the list.}} | ||
MyRepository.SetCurrentProject(ListOfProjects(0).ID) | MyRepository.Project.SetCurrentProject(ListOfProjects(0).ID) | ||
{{APIComment|'Get a list of the names/IDs of models in the current project.}} | {{APIComment|'Get a list of the names/IDs of models in the current project.}} | ||
Dim ListOfModels() As NameIdPair | Dim ListOfModels() As NameIdPair | ||
ListOfModels = MyRepository.GetAllModelsInfo() | ListOfModels = MyRepository.Model.GetAllModelsInfo() | ||
{{APIComment|'Retrieve the first model in the list.}} | {{APIComment|'Retrieve the first model in the list.}} | ||
Dim AModel As cModel | Dim AModel As cModel | ||
AModel = MyRepository.GetModel(ListOfModels(0).ID) | AModel = MyRepository.Model.GetModel(ListOfModels(0).ID) | ||
{{APIComment|'Calculate the reliability at time = 50 and save the result. See [[CModel.Reliability|Reliability]].}} | {{APIComment|'Calculate the reliability at time = 50 and save the result. See [[CModel.Reliability|Reliability]].}} | ||
Revision as of 23:23, 28 April 2015
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.Project.GetAllProjects() 'Open the first project in the list. MyRepository.Project.SetCurrentProject(ListOfProjects(0).ID) 'Get a list of the names/IDs of models in the current project. Dim ListOfModels() As NameIdPair ListOfModels = MyRepository.Model.GetAllModelsInfo() 'Retrieve the first model in the list. Dim AModel As cModel AModel = MyRepository.Model.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()