User:Kate Racaza/test page

=DRAFT=

VBA versions of the new tutorials.

Upload XML File to XFRACAS
VBA Main MyRepository Repository MyRepository.ConnectToSQLRepository ListOfEntities NameIdPair ListOfEntities = MyRepository.XFRACAS.GetAllXfracasEntities EntityID Integer EntityID = ListOfEntities(0).ID    j  Integer j = MyRepository.XFRACAS.ImportXfracasXmlFile(EntityID, XFRACASImportType_Incident,, )

Perform Life Data Analysis on External Data Source
VBA Main WDS WeibullDataSet WDS.AddFailure(16, 1) WDS.AddFailure(34, 1) WDS.AddFailure(53, 1) WDS.AddFailure(75, 1) WDS.AddFailure(93, 1) WDS.AddSuspension(120, 5) WDS.AnalysisSettings.Distribution = WeibullSolverDistribution_Weibull WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters_MS_2Parameter WDS.AnalysisSettings.Analysis = WeibullSolverMethod_RRX WDS.Calculate r Double r = WDS.FittedModel.unreliability(226) MsgBox( & r)

Perform Accelerated Life Testing Data Analysis on External Data Source
VBA Main ADS ALTADataSet ADS.AddStressDefinition(,,300) ADS.AddFailure_2(245, 1, 353) ADS.AddFailure_2(110, 1, 373) ADS.AddFailure_2(180, 1, 373) ADS.AddFailure_2(200, 1, 373) ADS.AddFailure_2(50, 1, 393) ADS.AddFailure_2(70, 1, 393) ADS.AddFailure_2(88, 1, 393) ADS.AddFailure_2(112, 1, 393) ADS.AddFailure_2(140, 1, 393) ADS.AddFailure_2(160, 1, 393) ADS.AddSuspension_2(250, 5, 353) ADS.AddSuspension_2(250, 3, 373) ADS.AnalysisSettings.ModelType = ALTASolverModel_Arrhenius ADS.AnalysisSettings.Distribution = ALTASolverDistribution_Weibull ADS.Calculate r Double r = ADS.FittedModel.Time(.90) MsgBox( & r)

Perform Accelerated Life Testing Data Analysis with Stress Profiles
VBA Main sp ALTAStressProfile sp.AddSegment(200, 125) sp.AddSegment(300, 175) sp.AddSegment(350, 200) sp.AddSegment(375, 250) sp.RepeatCycle = False ADS ALTADataSet ADS.AddStressProfile(sp) ADS.AddStressDefinition(, ALTASolverLSR_Power, 100) ADS.AddFailure_2(252, 1, sp) ADS.AddFailure_2(280, 1, sp) ADS.AddFailure_2(320, 1, sp) ADS.AddFailure_2(335, 1, sp) ADS.AddFailure_2(354, 1, sp) ADS.AddFailure_2(361, 1, sp) ADS.AddFailure_2(362, 1, sp) ADS.AddFailure_2(368, 1, sp) ADS.AddSuspension_2(328, 1, sp) ADS.AddSuspension_2(375, 3, sp) ADS.AnalysisSettings.ModelType = ALTASolverModel_CumDamage ADS.AnalysisSettings.Distribution = ALTASolverDistribution_Weibull ADS.Calculate r Double r = ADS.FittedModel.Time(.99) MsgBox( & r)

Create Plots
VBA Main WDS WeibullDataSet WDS.AddFailure(16, 1) WDS.AddFailure(34, 1) WDS.AddFailure(53, 1) WDS.AddFailure(75, 1) WDS.AddFailure(93, 1) WDS.AddSuspension(120, 5) WDS.AnalysisSettings.Distribution = WeibullSolverDistribution_Weibull WDS.AnalysisSettings.Parameters = WeibullSolverNumParameters_MS_2Parameter WDS.AnalysisSettings.Analysis = WeibullSolverMethod_RRX WDS.Calculate WPlot WAPlots WPlot.AddDataset(WDS) Image1.Picture = WPlot.CreatePlotVB6(WAPlotType_Probability) Image1.Height = 600 Image1.Width = 865