Repository.Model.AddModel

Saves a new model

Method Syntax

AddModel( ByVal m As cModel ) As Boolean
Saves a new model in the repository.

Parameters

m The cModel of the model to add.

Usage Example

Declare a new repository connection class.

       Private WithEvents 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)