Macro (SVB) Programs Example - Displaying a Progress Bar

It is sometimes desirable to indicate the progress of lengthy sequential computations by displaying a progress bar, the same kind of progress bar that is used throughout STATISTICA when large data files are analyzed. Here is a program that implements the progress bar in the random number generator program:

Option Base 1

Sub Main

Dim n As Long,i As Long
n=1000

' Create and dimension the spreadsheet object
Dim
s As New Spreadsheet

' Set the size of the object
s.
SetSize(n,2)

' Set up a progress bar
Dim
pb As ProgressBar
Set
pb = AddProgressBar("Generating random numbers", 1, n)

' Assign the random values
For
i = 1 To n

' Update the progress bar
pb.
CurrentCounter = i
s.
Value(i,1) = Rnd(1)
s.
Value(i,2) = RndNormal(1)

Next i

' Close the progress bar
Set
pb = Nothing

' Set the variable names
s.
VariableName(1) = "Uniform"
s.
VariableName(2) = "Normal"
s.
Visible = True

End Sub