FiveTech Support Forums

/*
StartThread() // Start a progress bar windows 
aFiles := DirectoryRecurse(PathPictArt + "*.jpg") 
StopThread() // Stop and close this windows 
*/

PROCEDURE Main

   LOCAL oThread := Thread():new() // create thread object

   CLS

   oThread:start( "Sum", 10000 ) // sum numbers from 1

   // to 10000
   DO WHILE .T. // display characters during

      ?? "." // the calculation

      Sleep(10)

      IF ! oThread:active // Check if thread still runs
         EXIT
      ENDIF

   ENDDO

   ? "The sum is:", oThread:result

RETURN

FUNCTION Sum( nNumber )

   LOCAL i, nSum := 0

   FOR i:=1 TO nNumber

      nSum += i

      IF i % 100 == 0 // progress display
           DispOutAt( MaxRow(), 0, i )
      ENDIF

   NEXT

RETURN nSum

#include "fivewin.ch"
STATIC oSay
PROCEDURE Main

   LOCAL nSum , oDlg, j := " "

   DEFINE DIALOG oDlg TITLE 'Start a progress bar windows' ;
                SIZE 565, 480

   @  10, 10 SAY oSay VAR j SIZE 40, 30 OF oDlg PIXEL
      
   ACTIVATE DIALOG oDlg NOWAIT CENTERED 

   MsgInfo("The sum is:" + STR( Sum(1000000) ))
RETURN

STATIC FUNCTION Sum( nNumber )

   LOCAL i, nSum := 0

   FOR i:=1 TO nNumber

      nSum += i

      IF i % 100 == 0 // progress display
           oSay:SetText(STR(i))
      ENDIF

   NEXT

RETURN nSum