WeibullDataSet.ShowCalculationProgress: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
 
(One intermediate revision by the same user not shown)
Line 1: Line 1:
{{Template:API}}{{Template:APIBreadcrumb|.[[WeibullDataSet Class|WeibullDataSet]]}}
{{Template:API}}{{Template:APIBreadcrumb|.[[WeibullDataSet Class|WeibullDataSet]]}}
{{Template:InProgress}}




Line 13: Line 12:


== Example ==
== Example ==
The following example provides a simple demonstration on how to handle the event.
The following example provides a simple demonstration on how to customize the event procedure.
  '''VBA'''
  '''VBA'''
   
   
Line 24: Line 23:
     {{APIPrefix|Set}} wds = {{APIPrefix|New}} WeibullDataSet
     {{APIPrefix|Set}} wds = {{APIPrefix|New}} WeibullDataSet
   
   
   {{APIComment|'Set the application to use events.}}
   {{APIComment|'Set the application to use your event procedure.}}
     wds.UseEvents = True
     wds.UseEvents = True
   
   
   {{APIComment|'To raise the event, calculate a data set.}}
   {{APIComment|'To trigger the event, analyze a data set.}}
     {{APIPrefix|Call}} wds.AddFailure(100, 1)
     {{APIPrefix|Call}} wds.AddFailure(100, 1)
     {{APIPrefix|Call}} wds.AddFailure(120, 1)
     {{APIPrefix|Call}} wds.AddFailure(120, 1)
Line 53: Line 52:
     wds = {{APIPrefix|New}} WeibullDataSet
     wds = {{APIPrefix|New}} WeibullDataSet
   
   
   {{APIComment|'Set the application to use events.}}
   {{APIComment|'Set the application to use your event procedure.}}
     wds.UseEvents = True
     wds.UseEvents = True
   
   
   {{APIComment|'To raise the event, calculate a data set.}}
   {{APIComment|'To trigger the event, calculate a data set.}}
     wds.AddFailure(100, 1)
     wds.AddFailure(100, 1)
     wds.AddFailure(120, 1)
     wds.AddFailure(120, 1)

Latest revision as of 23:41, 6 September 2016

APIWiki.png


Member of: SynthesisAPI.WeibullDataSet


Occurs when the calculation process is running. Displays a progress bar.


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

_ShowCalculationProgress()


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

 '---------------------------- 
 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, analyze a data set. 
    Call wds.AddFailure(100, 1)
    Call wds.AddFailure(120, 1)
    Call wds.AddFailure(130, 1)  
    Call wds.AddFailure(160, 1) 
    Call wds.AddFailure(190, 1) 
    wds.Calculate
    Msgbox("End")
 End Sub

 '---------------------------- 
 Private Sub wds_ShowCalculationProgress()
   '<Add code here to handle the event.> 
    MsgBox ("ShowCalculationProgress event")
 End Sub
VB.NET

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

 '---------------------------- 
 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, calculate a data set. 
    wds.AddFailure(100, 1)
    wds.AddFailure(120, 1)
    wds.AddFailure(130, 1)  
    wds.AddFailure(160, 1) 
    wds.AddFailure(190, 1) 
    wds.Calculate
    Msgbox("End")
 End Sub

 '---------------------------- 
 Private Sub wds_ShowCalculationProgress() Handles wds.ShowCalculationProgress
   '<Add code here to handle the event.> 
    MsgBox ("ShowCalculationProgress event")
 End Sub