Progress with error

[marca]

Exact example of the problem



I changed the array to a value of 168 elements and had it run


function Main()

local oDlg, oProg1, oProg2

DEFINE DIALOG oDlg TITLE "Progress Bars"

@ 1, 1 PROGRESS oProg1 SIZE 80, 12

@ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL

@ 3, 9 BUTTON "Ok" ACTION oDlg:End()

oDlg:bStart = { || Increase( oProg1, oProg2 ) }

ACTIVATE DIALOG oDlg CENTER ;
ON INIT ( oProg1:SetRange( 0, 168 ), oProg1:SetStep( 1 ),;
oProg2:SetRange( 0, 168 ), oProg2:SetStep( 1 ) )

return nil

function Increase( oProg1, oProg2 )

local n

for n = 1 to 168 // 111
// oProg1:StepIt()
// oProg2:StepIt()
oProg1:SetPos( n )
oProg2:SetPos( n )
Sleep( 50 )
SysRefresh()
next

[cmsoft]

Marcelo:
What is the problem that gives you?
The size of is different, one is 50 and the other is 80...

[marca]

Marcelo:
What is the problem that gives you?
The size of is different, one is 50 and the other is 80...

hello Cesar
Sleep( 50 ) does not interfere with anything can remove the problem continues.
The bar does not complete

[cmsoft]

Prueba si te sirve des esta forma, usando METER

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

local oDlg, oProg1, oProg2, i := 0

DEFINE DIALOG oDlg TITLE "Progress Bars" FROM 05,18 TO 17,62

//@ 1, 1 PROGRESS oProg1 SIZE 50, 12

@ 05,10 METER oProg1 VAR i TOTAL 168 OF oDlg SIZE 90,12 NOPERCENTAGE;
      BARCOLOR nRGB(105,98,255),nRGB(0,0,0) PIXEL

@ 20,50 METER oProg2 VAR i TOTAL 168 OF oDlg SIZE 50,50 CIRCULAR NOPERCENTAGE;
      BARCOLOR nRGB(155,20,255),nRGB(0,0,0)  PIXEL

//@ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL

@ 75, 70 BUTTON "Ok" ACTION oDlg:End() PIXEL

oDlg:bStart = { || Increase( oProg1, oProg2 ) }

ACTIVATE DIALOG oDlg CENTER

return nil

function Increase( oProg1, oProg2 )

local n
oProg1:Set(0)
oProg2:Set(0)
for n = 1 to 168 // 111
// oProg1:StepIt()
// oProg2:StepIt()
oProg1:Set( n )
oProg2:Set( n )
Sleep( 20 )
SysRefresh()
next
RETURN nil

[marca]

Prueba si te sirve des esta forma, usando METER

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

local oDlg, oProg1, oProg2, i := 0

DEFINE DIALOG oDlg TITLE "Progress Bars" FROM 05,18 TO 17,62

//@ 1, 1 PROGRESS oProg1 SIZE 50, 12

@ 05,10 METER oProg1 VAR i TOTAL 168 OF oDlg SIZE 90,12 NOPERCENTAGE;
      BARCOLOR nRGB(105,98,255),nRGB(0,0,0) PIXEL

@ 20,50 METER oProg2 VAR i TOTAL 168 OF oDlg SIZE 50,50 CIRCULAR NOPERCENTAGE;
      BARCOLOR nRGB(155,20,255),nRGB(0,0,0)  PIXEL

//@ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL

@ 75, 70 BUTTON "Ok" ACTION oDlg:End() PIXEL

oDlg:bStart = { || Increase( oProg1, oProg2 ) }

ACTIVATE DIALOG oDlg CENTER

return nil

function Increase( oProg1, oProg2 )

local n
oProg1:Set(0)
oProg2:Set(0)
for n = 1 to 168 // 111
// oProg1:StepIt()
// oProg2:StepIt()
oProg1:Set( n )
oProg2:Set( n )
Sleep( 20 )
SysRefresh()
next
RETURN nil

Meter I know it works I want to use progress which is newer

[Enrico Maria Giordano]

The bar does not complete

Your sample works perfectly right here using latest FWH version.

EMG

[cmsoft]

A mi tambien me funciona bien tu ejemplo

[marca]

The bar does not complete

Your sample works perfectly right here using latest FWH version.

EMG

I don't know how to put the image here but mine is missing a part of the bar to fill.
My version is 1402

[karinha]

Code: Select all  Expand view

#Include "FiveWin.ch"

FUNCTION Main()

   LOCAL oDlg, oProg1, oProg2, i := 0

   DEFINE DIALOG oDlg TITLE "Progress Bars" FROM 05, 18 TO 17, 62

   @05, 10 METEREX oProg1 VAR I OF oDlg SIZE 90, 12 PIXEL TOTAL 100 ROUND ROUNDSIZE 6  ;
      GRADIENT CHUNK { { 1/2, nRGB( 255, 251, 229 ), nRGB( 250, 223, 143 ) } , ;
                       { 1/2, nRGB( 244, 194,  51 ), nRGB( 252, 235,  173 ) } };
      GRADIENT TRACK { { 1/2, nRGB( 198, 203, 213 ), nRGB( 219, 224, 233 ) },  ;
                       { 1/2, nRGB( 224, 238, 237 ), nRGB( 224, 238,237 ) } }


   @20, 50 METEREX oProg2 VAR I OF oDlg SIZE 50, 50 PIXEL TOTAL 100 ROUND ROUNDSIZE 6  ;
      GRADIENT CHUNK { { 1/2, nRGB( 255, 251, 229 ), nRGB( 250, 223, 143 ) } , ;
                       { 1/2, nRGB( 244, 194,  51 ), nRGB( 252, 235,  173 ) } };
      GRADIENT TRACK { { 1/2, nRGB( 198, 203, 213 ), nRGB( 219, 224, 233 ) },  ;
                       { 1/2, nRGB( 224, 238, 237 ), nRGB( 224, 238,237 ) } }

   /*
      GRADIENT CHUNK { { 1/2, nRGB( 255, 251, 229 ), nRGB( 250, 223, 143 ) } , ;
                       { 1/2, nRGB( 244, 194,  51 ), nRGB( 252, 235,  173 ) } }
   */

   @ 75, 70 BUTTON "Ok" ACTION( oDlg:End() ) PIXEL

   oDlg:bStart = {|| Increase( oProg1, oProg2 ) }

   ACTIVATE DIALOG oDlg CENTER

RETURN NIL

FUNCTION Increase( oProg1, oProg2 )

   LOCAL n

   oProg1:Set( 0 )
   oProg2:Set( 0 )

   FOR n = 1 TO 100

      SysRefresh()

      oProg1:Set( n )
      oProg2:Set( n )

      Sleep( 20 )

   NEXT

RETURN NIL
 

Regards, saludos.

[Silvio.Falconi]

Here not run ok ( windows 10 ) see the video


I tried

Code: Select all  Expand view

@05, 10 METEREX oProg1 VAR I OF oDlg SIZE 90, 12 PIXEL TOTAL 100 ROUND ROUNDSIZE 6  ;
      GRADIENT CHUNK { { 1/2, nRGB( 255, 251, 229 ), nRGB( 250, 223, 143 ) } , ;
                       { 1/2, nRGB( 244, 194,  51 ), nRGB( 252, 235,  173 ) } };
      GRADIENT TRACK { { 1/2, nRGB( 198, 203, 213 ), nRGB( 219, 224, 233 ) },  ;
                       { 1/2, nRGB( 224, 238, 237 ), nRGB( 224, 238,237 ) } }

Make the same also the circular

Code: Select all  Expand view

@ 20,50 METER oProg2 VAR i TOTAL 168 OF oDlg SIZE 50,50 CIRCULAR NOPERCENTAGE;
      BARCOLOR nRGB(155,20,255),nRGB(0,0,0)  PIXEL

[karinha]

Silvio, change:

// Sleep( 20 )

for

SysWait( 01 )

Regards, saludos.

[Silvio.Falconi]

Silvio, change:

// Sleep( 20 )

for

SysWait( 01 )

Regards, saludos.

????????????????????????????????????????????

[cmsoft]

Silvio, puedes mostrar tu codigo?

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

local oDlg, oProg1, oProg2, i := 0

DEFINE DIALOG oDlg TITLE "Progress Bars" FROM 05,18 TO 17,62

//@ 1, 1 PROGRESS oProg1 SIZE 50, 12

@ 05,10 METER oProg1 VAR i TOTAL 168 OF oDlg SIZE 90,12 NOPERCENTAGE;
      BARCOLOR nRGB(105,98,255),nRGB(0,0,0) PIXEL

@ 20,50 METER oProg2 VAR i TOTAL 168 OF oDlg SIZE 50,50 CIRCULAR NOPERCENTAGE;
      BARCOLOR nRGB(155,20,255),nRGB(0,0,0)  PIXEL

//@ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL

@ 75, 70 BUTTON "Ok" ACTION oDlg:End() PIXEL

oDlg:bStart = { || Increase( oProg1, oProg2 ) }

ACTIVATE DIALOG oDlg CENTER

return nil

function Increase( oProg1, oProg2 )

local n
oProg1:Set(0)
oProg2:Set(0)
for n = 1 to 168 // 111
// oProg1:StepIt()
// oProg2:StepIt()
oProg1:Set( n )
oProg2:Set( n )
Sleep( 20 )
SysRefresh()
next
RETURN nil

Este tampoco te funciona?

[Silvio.Falconi]

Silvio, puedes mostrar tu codigo?

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

local oDlg, oProg1, oProg2, i := 0

DEFINE DIALOG oDlg TITLE "Progress Bars" FROM 05,18 TO 17,62

//@ 1, 1 PROGRESS oProg1 SIZE 50, 12

@ 05,10 METER oProg1 VAR i TOTAL 168 OF oDlg SIZE 90,12 NOPERCENTAGE;
      BARCOLOR nRGB(105,98,255),nRGB(0,0,0) PIXEL

@ 20,50 METER oProg2 VAR i TOTAL 168 OF oDlg SIZE 50,50 CIRCULAR NOPERCENTAGE;
      BARCOLOR nRGB(155,20,255),nRGB(0,0,0)  PIXEL

//@ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL

@ 75, 70 BUTTON "Ok" ACTION oDlg:End() PIXEL

oDlg:bStart = { || Increase( oProg1, oProg2 ) }

ACTIVATE DIALOG oDlg CENTER

return nil

function Increase( oProg1, oProg2 )

local n
oProg1:Set(0)
oProg2:Set(0)
for n = 1 to 168 // 111
// oProg1:StepIt()
// oProg2:StepIt()
oProg1:Set( n )
oProg2:Set( n )
Sleep( 20 )
SysRefresh()
next
RETURN nil

Este tampoco te funciona?

I resolved with viewtopic.php?f=3&t=41886&sid=79bc9c8d1426005a6e34361081532558#p251085