FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Progress bar
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Progress bar
Posted: Fri Apr 14, 2006 10:43 PM

How I can show one bar in order to show a passed time? and to play each second a sound ?

Example : 2 minutes

Best Regards, Saludos



Falconi Silvio
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Progress bar
Posted: Fri Apr 14, 2006 11:53 PM

Silvio,

Use a timer

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Progress bar
Posted: Sat Apr 15, 2006 12:51 PM

I must show Meter line because I must make a test for my boys at school

Regards

Best Regards, Saludos



Falconi Silvio
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Progress bar
Posted: Sat Apr 15, 2006 04:05 PM

Silvio,

I meant: use a timer to update the meter value.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Progress bar
Posted: Sat Apr 15, 2006 04:28 PM

can YOu write a small sample to see How I can make it ?

Regards

Best Regards, Saludos



Falconi Silvio
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Progress bar
Posted: Sat Apr 15, 2006 04:59 PM
Silvio,
#include "FiveWin.ch"

function Main()

   local oDlg, oProg
   
   DEFINE DIALOG oDlg TITLE "Progress and timer"

   @ 1, 3 PROGRESS oProg POSITION 0 SIZE 120, 10
   
   @ 2.5, 10 BUTTON "End" ACTION oDlg:End()
   
   ACTIVATE DIALOG oDlg CENTER ;
      ON INIT Timer( oDlg, oProg )
   
return nil   

function Timer( oDlg, oProg )
   
   local oTmr
   
   DEFINE TIMER oTmr INTERVAL 1000 ;
      ACTION ( oProg:nPosition += 5, MsgBeep(),;
             If( oProg:nPosition == 100, oTmr:End(),) ) OF oDlg

   ACTIVATE TIMER oTmr

return nil
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Progress bar
Posted: Sat Apr 15, 2006 10:40 PM

thanks

Best Regards, Saludos



Falconi Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
Progress bar
Posted: Sun Apr 16, 2006 09:06 PM

Dear Antonio,

first problem
How I can to set the timer ?
on your example U use interval 1000
it is egual to one minute ?

second problem
How I can to show on progress bar the time remaining ( with number) ?

third problem
I made a game at school
when a boy does not answer well to a question in the test the procedure must remove the remaining time.
It is possible ?
How I can make to call a func to remove time to progress bar ?

Best Regards

Best Regards, Saludos



Falconi Silvio
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Progress bar
Posted: Sun Apr 16, 2006 11:11 PM

Silvio,

  1. milliseconds

  2. Use a TMeter instead of a progress bar.

  3. Simply set the meter to 100%.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion