WeibullDataSet.GetDistrParameters

Member of: SynthesisAPI.WeibullDataSet Template:InProgress

Occurs when there is insufficient data to fit a model. Displays a prompt for entering the parameters of the distribution.

Remarks: To hide the messages or write your own code for the event procedure, set the UseEvents property of the object to True. The event is raised by the class methods.

Syntax

_GetDistrParameters(ByVal sMsg, ByVal GetOnlyOneParameter, ByVal ParamCount, ByRef Params(), ByRef Cancel)

Parameters

sMsg

Required. String. The message to display.

GetOnlyOneParameter

Required. Boolean. Indicates whether to get a value for only one parameter. Default value = False.

ParamCount

Required. Integer. The number of parameters to update.

Params()

Required. An array of ParamInputInfo type objects that represent the model's parameters.

Cancel

Required. Boolean. Indicates whether the input was cancelled. Default value = False.

Example

The following example provides a simple demonstration on how to customize the event procedure.

VBA
 
 'Specify a variable to handle the event. 
  Private WithEvents wds As WeibullDataSet

 '----------------------------  
 Private Sub Main()
   'Associate the event variable with an object. 
    Set wds = New WeibullDataSet

   'Set the application to use your event procedure. 
    wds.UseEvents = True

   'To trigger the event, call the Calculate method without defining a data set.  
    wds.Calculate
    Msgbox("End")
 End Sub

 '---------------------------- 
 Private Sub wds_GetDistrParameters(ByVal sMsg As String, ByVal GetOnlyOneParameter As Boolean, _
                                    ByVal ParamCount As Long, Params() As SynthesisAPI.ParamInputInfo, Cancel As Boolean)
   '<Add code here to handle the event.> 
    MsgBox (sMsg)
 End Sub

VB.NET

 'Specify a variable to handle the event. 
  Private WithEvents wds As WeibullDataSet

 '---------------------------- 
 Private Sub Main()
   'Associate the event variable with an object. 
    wds = New WeibullDataSet

   'Set the application to use your event procedure. 
    wds.UseEvents = True

   'To trigger the event, call the Calculate method without defining a data set.  
    wds.Calculate
    Msgbox("End")
 End Sub

 '---------------------------- 
 Private Sub wds_GetDistrParameters(sMsg As String, GetOnlyOneParameter As Boolean, ParamCount As Integer, _
                                    ByRef Params() As ParamInputInfo, ByRef Cancel As Boolean) Handles wds.GetDistrParameters
   '<Add code here to handle the event.> 
    MsgBox (sMsg)
 End Sub