Description

This read only property returns the percentage value of the progress bar on the Execution window. A positive value means the execution has started. A negative value means the execution percentage is not available.

Property type

Read-only property

Syntax

Visual Basic
Public Property ProgressBarPercentage As Single

Return Type

A number value of type Single that contains the percentage value of the progress bar on the Execution window.

Remarks

This is the percentage of the measurement routine that has finished executing. The percentage is derived from the amount of executed commands and hits taken compared against the total number of marked commands and hits to take.

Example

This script takes a paused execution and manipulates the Execution window. It then obtains the progress bar value, converts it to an integer and displays the execution percentage in a message box.

Example (VBScript)	Copy Code
' Start an execution. Pause it, and then run this script. Dim DmisApp As Object Dim DmisPart As Object Sub Main Set DmisApp = CreateObject("PCDLRN.Application") Set DmisPart = DmisApp.ActivePartProgram Set ExWin = DmisPart.GetExecutionWindow (0) ExWin.Visible = True MsgBox "The height is " & ExWin.Height MsgBox "The width is " & ExWin.Width MsgBox "Setting the height to 500 x 1500." Dim dblPercent As Double Dim intPercent As Integer ExWin.Height = 500 ExWin.Width = 1500 dblPercent = ExWin.ProgressBarPercentage intPercent = Cint(dblPercent) MsgBox "Execution Progress is " & intPercent &"%" End Sub

Example (VBScript)

Copy Code

' Start an execution. Pause it, and then run this script.
Dim DmisApp As Object
Dim DmisPart As Object

Sub Main
  Set DmisApp = CreateObject("PCDLRN.Application")
  Set DmisPart = DmisApp.ActivePartProgram
  Set ExWin = DmisPart.GetExecutionWindow (0)
  ExWin.Visible = True
  MsgBox "The height is " & ExWin.Height
  MsgBox "The width is " & ExWin.Width
  MsgBox "Setting the height to 500 x 1500."
  Dim dblPercent As Double
  Dim intPercent As Integer
  ExWin.Height = 500
  ExWin.Width = 1500
  dblPercent = ExWin.ProgressBarPercentage
  intPercent = Cint(dblPercent)
  MsgBox "Execution Progress is " & intPercent &"%"
	
End Sub