Kate Racaza at 18:23, 3 April 2017

2017-04-03T18:23:17Z

← Older revision		Revision as of 18:23, 3 April 2017
Line 10:		Line 10:
	{{APIComment\|'Connect to a Synthesis repository and project.}}		{{APIComment\|'Connect to a Synthesis repository and project.}}
	{{APIPrefix\|Dim}} MyRepository {{APIPrefix\|As New}} Repository		{{APIPrefix\|Dim}} MyRepository {{APIPrefix\|As New}} Repository
	MyRepository.ConnectToRepository({{APIString\|"C:\RSRepository1.~~rsr10~~"}}){{APIComment\|'Replace with name and path to test repository.}}		MyRepository.ConnectToRepository({{APIString\|"C:\RSRepository1.rsr11"}}){{APIComment\|'Replace with name and path to test repository.}}
	MyRepository.Project.SetCurrentProject(1){{APIComment\|'Replace with the object ID of test project.}}		MyRepository.Project.SetCurrentProject(1){{APIComment\|'Replace with the object ID of test project.}}

Kate Racaza at 17:09, 28 April 2016

2016-04-28T17:09:42Z

← Older revision		Revision as of 17:09, 28 April 2016
Line 2:		Line 2:

	==Tutorial: Calculate Results from a Model==		==Tutorial: Calculate Results from a Model==
	Below is the VBA version of the [[Calculate_Results_from_a_Model\|tutorial]]		Below is the VBA version of the [[Calculate_Results_from_a_Model\|tutorial]].
	.
	'''VBA'''		'''VBA'''

Kate Racaza: Created page with '{{Template:API}} ==Tutorial: Calculate Results from a Model== Below is the VBA version of the tutorial . '''VBA''' Sub Main() {{APIC…'

2016-04-28T16:14:23Z

Created page with '{{Template:API}} ==Tutorial: Calculate Results from a Model== Below is the VBA version of the tutorial . '''VBA''' Sub Main() {{APIC…'

New page

{{Template:API}}

==Tutorial: Calculate Results from a Model==
Below is the VBA version of the [[Calculate_Results_from_a_Model|tutorial]]
.
'''VBA'''

Sub Main()

{{APIComment|'Connect to a Synthesis repository and project.}}
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
MyRepository.ConnectToRepository({{APIString|"C:\RSRepository1.rsr10"}}){{APIComment|'Replace with name and path to test repository.}}
MyRepository.Project.SetCurrentProject(1){{APIComment|'Replace with the object ID of test project.}}

{{APIComment|'Retrieve a model from the repository.}}
{{APIPrefix|Dim}} AModel {{APIPrefix|As}} cModel
{{APIPrefix|Set}} AModel = MyRepository.Model.GetModel(21) {{APIComment|'Replace with the object ID of test model.}}

{{APIComment|'Declare some variables to store the results.}}
{{APIPrefix|Dim}} Result1 {{APIPrefix|As}} Double
{{APIPrefix|Dim}} Result2 {{APIPrefix|As}} Double

{{APIComment|'Calculate the model's reliability at time = 100 hrs and mean time.}}
Result1 = AModel.Reliability(100)
Result2 = AModel.MeanTime

{{APIComment|'Set the confidence level to 90% two-sided bounds.}}
{{APIComment|'Declare a string variable for any errors found during this method.}}
{{APIPrefix|Dim}} ErrorMsg {{APIPrefix|As}} String
{{APIPrefix|Call}} AModel.SetConfidenceLevel(0.9, ConfBoundsSides_TwoSidedBoth, False, ErrorMsg)

{{APIComment|'Declare new BoundsValues objects to store the confidence bounds results.}}
{{APIPrefix|Dim}} BResult1 {{APIPrefix|As}} BoundsValues
{{APIPrefix|Dim}} BResult2 {{APIPrefix|As}} BoundsValues

{{APIComment|'Calculate bounds for the reliability at 100 hrs and the mean time.}}
{{APIPrefix|Set}} BResult1 = AModel.Bounds_Reliability(100)
{{APIPrefix|Set}} BResult2 = AModel.Bounds_MeanTime

{{APIComment|'Display the output.}}
MsgBox ({{APIString|"Reliability <nowiki>=</nowiki> "}} & Result1 & vbNewLine & _
{{APIString|"Upper Bound <nowiki>=</nowiki> "}} & BResult1.upper & vbNewLine & _
{{APIString|"Lower Bound <nowiki>=</nowiki> "}} & BResult1.lower & vbNewLine)
MsgBox ({{APIString|"Mean Time <nowiki>=</nowiki> "}} & Result2 & vbNewLine & _
{{APIString|"Upper Bound <nowiki>=</nowiki> "}} & BResult2.upper & vbNewLine & _
{{APIString|"Lower Bound <nowiki>=</nowiki> "}} & BResult2.lower & vbNewLine)

End Sub

Calculate Results from a Model/VBA - Revision history

Kate Racaza at 18:23, 3 April 2017

Kate Racaza at 17:09, 28 April 2016

Kate Racaza: Created page with '{{Template:API}} ==Tutorial: Calculate Results from a Model== Below is the VBA version of the tutorial . '''VBA''' Sub Main() {{APIC…'