Repository.Model.AddModel: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
Line 9: Line 9:


== Usage Example ==
== Usage Example ==
{{APIComment|Declare a new repository connection class.}}
{{APIComment|'Declare a new repository connection class.}}
        Private WithEvents MyRepository As New Repository
  Dim MyRepository As New Repository
 
 
{{APIComment|Connect to the Synthesis repository.}}
{{APIComment|'Connect to the Synthesis repository.}}
        Dim Success As Boolean = False
  Dim Success As Boolean = False
        Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
  Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
 
 
{{APIComment|Declare a new model using an in-line parameter list. See [[cModel Class|cModel]] for additional details.}}
{{APIComment|'Declare a new model using an in-line parameter list. See [[cModel Class|cModel]] for additional details.}}
        Dim newModel As New cModel(ModelTypeEnum.Weibull2, ModelCategoryEnum.Reliability, "NewModel1", 1, 100)
  Dim newModel As New cModel(ModelTypeEnum.Weibull2, ModelCategoryEnum.Reliability, "NewModel1", 1, 100)
 
 
{{APIComment|Add model to the Current Project.}}
{{APIComment|'Add model to the Current Project.}}
        Dim SuccessAddModel As Boolean = False
  Dim SuccessAddModel As Boolean = False
        SuccessAddModel = MyRepository.AddModel(newModel)
  SuccessAddModel = MyRepository.AddModel(newModel)

Revision as of 21:46, 23 May 2014


Saves a new model in the repository. Returns True if successful, otherwise returns False.

Syntax

  • AddModel( m AscModel )As Boolean

Parameters

m: The cModel to add.

Usage Example

 'Declare a new repository connection class. 
 Dim MyRepository As New Repository
 
 'Connect to the Synthesis repository. 
 Dim Success As Boolean = False
 Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
 
 'Declare a new model using an in-line parameter list. See cModel for additional details. 
 Dim newModel As New cModel(ModelTypeEnum.Weibull2, ModelCategoryEnum.Reliability, "NewModel1", 1, 100)
 
 'Add model to the Current Project. 
 Dim SuccessAddModel As Boolean = False
 SuccessAddModel = MyRepository.AddModel(newModel)