Contagem Regressiva

Question

Galera, preciso da ajuda de voc�s mais uma vez...Como criar uma contagem regressiva com um timer pra quando acabar 30 minutos ele executar o comando desejado?...

Rodc · Answer

N�o seria usando um TTimer com o intervalo de 30000 (30min)?...

Delphitotal · Answer

sim isso eu sei .. mais como fazer a contagem regressiva?eu n�o sei  :(...

Delphitotal · Answer

acho que n�o entenderam ...tem um StatusBar que recebe o seguinte:Tempo: 00:00:00dai quero fazer uma contagem regressiva pra aparecer em tempo real no StatusBar no �00:00:00�.Se alguem puder ajudar.....

Rodc · Answer

Coloca um TTimer com intervalo de 1000 (1seg).
Cria uma vari�vel global do tipo TTime que deve iniciar com o hor�rio atual mais 30 minutos.

var_horafinal = Time() + StrToTime("00:30");

No evento do Timer coloca:

Label1->Caption = TimeToStr(var_horafinal - Time());
if (Time() > var_horafinal) then
begin
    Timer1.Enabled = false;
    ShowMessage(�Acabou o tempo�);
end;

Delphitotal · Answer

P� rodc vlw irm�o ... estou a dias atras disso .Vlw mesmo!!...

Delphitotal · Answer

Tenho uma duvida .. com o mesmo c�digo como eu poderia fazer com 80 minutos?...

Rodc · Answer

80 minutos � 1 hora e 20 minutos.No lugar do �00:30� voc� coloca �01:20�; :wink:...

Delphitotal · Answer

tpo eu sei .. mais assim ele mostra 1 hora e 20 minutos ...n�o teria como mostra tpo 79:5979:5879:5779:56enfim... da pra fazer s� em minutos?...

Rodc · Answer

Declare as vari�veis hor, min, seg e mseg como inteiro.

DecodeTime(var_horafinal - Time(), hor, min, seg, mseg);
min := min + hor * 60;
if (seg < 10) then
    Label1.Caption = IntToStr(min) + ":0" + IntToStr(seg)
else
    Label1.Caption = IntToStr(min) + ":" + IntToStr(seg);

N�o testei, mas acho que vai funcionar.

Delphitotal · Answer

cara n�o consegui fazer esse c�digo funcionar .. fiz aqui mais deu varios numeros muito elevados ..  :(...

Rodc · Answer

As vari�veis  passadas para o DecodeTime devem ser do tipo WORD, n�o do tipo inteiro. Testei aqui e isto resolveu....

Delphitotal · Answer

rodc funcionou!vlw!! por tudo .....

Micheus · Answer

[b:57e382933f]rodc[/b:57e382933f], caso haja a possibilidade deste tempo ocorrer numa mudan�a de dia, tipo das 23:40 �s 00:10hs, acredito que n�o funcionar�.
Para esta situa��o sugiro que vc fa�a algo como:

var_horafinal = Now() + StrToTime("00:30");

Onde var_horafinal seria declarada como TDateTime.

var
  DifHora :TDateTime;
begin
  DifHora := (var_horafinal -Now) *24; // obt�m diferen�a em horas
  Label1.Caption := FormatFloat(�#00:�, DifHora)+FormatFloat(�00�, Frac(DifHora) *60);
  if (DifHora <= 0) then
  begin
    Timer1.Enabled = false;
    ShowMessage(�Acabou o tempo�);
  end;
end;

Delphitotal · Answer

micheus, vlw pelo c�digo ... mais seu c�digo n�o mostra os segundos ..teria como vc arrumar isso?...

Micheus · Answer

[b:cda9572f02]delphitotal[/b:cda9572f02], por favor corrija para a seguinte forma

var
  DifHora :TDateTime;
begin
  DifHora := (var_horafinal -Now) *24; // obt�m diferen�a em horas
  Label1.Caption := FormatFloat(�#00:�, Int(DifHora)) +FormatDateTime(�nn:ss�, Frac(DifHora)/24);
  if (DifHora <= 0) then
  begin
    Timer1.Enabled = false;
    ShowMessage(�Acabou o tempo�);
  end;
end;

O c�digo exemplo anterior, tamb�m tinha um �bug�. Havia faltado o [i:cda9572f02]Int[/i:cda9572f02] na parte que formata a hora, o que resultava em arredondamento - indesejado.

F�rum Contagem Regressiva #326239