Contagem de tempo

Question

Ol�, pessoal, eu gostaria de fazer um programa para contar o tempo de uso, para isso eu estou usando um timer para me informar o tempo de uso, s� que ao inv�s disso, ele mostra a hora do sistema, a li...

Geno · Answer

[quote:8aa2d485b8=�marcossma�]Ol�, pessoal, eu gostaria de fazer um programa para contar o tempo de uso, para isso eu estou usando um timer para me informar o tempo de uso, s� que ao inv�s disso, ele mostra a hora do sistema, a linha de c�digo � essa:label1.caption := timetostr(time);Ao inv�s disto eu gostaria que fosse feita uma contagem que come�asse do 0 (zero) e seguisse at� o t�rmino do uso do programa.Se algu�m puder me ajudar eu fico muito grato.At� mais pessoa!!![/quote:8aa2d485b8]Use o timer mesmo.Quando o sistema iniciar vc guarda a hora inicial numa variavel.Quando finalizar, vc pega a hora final diminue da inicial e vc tem o seu tempo de uso do sistema....

Henry · Answer

Fa�a assim....Primeiro crie uma variavel publica...varTempo: integer;Depois crie aonde lhe conver, a rotina que vai ativar o timer....beginTempo:= 0;Timer1.enabled:= true;endDai no timer, com intervalo 1000( 1s) coloque...Tempo:= tempo+1;Label1.caption:= IntToStr(Tempo);e assim ta ai...agora se vc quise faze assim, quando teu programa � iniciado inicia a contagem, quando fecha, salva a contagem pra continua a proxima vez que for aberto, � mais complicado, por que vc vai ter que salvar essa variavel em algum lugar, registro do windows, INI, onde c acha seguro, so como exemplo fa�a assim....Crie outra variavel publica...varRegi: Tmemo;No OnCreate...beginRegi:= Tmemo.create;If fileExist(application.getnamePath+�Config.ini�) thenRegi.lines.loadfromfile(Config.ini);end;No onclose do programa...Regi.lines.add(label1.caption);Regi.lines.saveToFile(�Config.ini�);Regi.free;e � isso brother, desculpe se tiver algum erro pois fiz de cabe��o mesmo....Um abra�o, Henry....

Marcossma · Answer

Ok, eu j� fiz deste modo, mas o que eu queria mesmo, era que o tempo de uso fosse mostrado segundo ap�s segundo, tem como fazer isso ??T+...

Marcossma · Answer

Puxa henry, foi mal, repondi antes de ver a tua resposta, mas valew, vo tenta essa dica, brigad�o!!!!!...

Lucas Silva · Answer

Eu fiz umas tentativas aqui e cheguei neste c�digo.
Deve ter um jeito mais simples de se fazer isto..

 // coloque um timer e um panel no seu form


procedure TForm1.Timer1Timer(Sender: TObject); // evento ontimer
begin
   Panel1.Caption := FormatDateTime(�hh:nn�,StrToTime(Panel1.Caption) +StrToTime(�00:01�));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Panel1.Caption := �00:00�;
end;

Henry · Answer

[quote:16301a0cef=�marcossma�]Puxa henry, foi mal, repondi antes de ver a tua resposta, mas valew, vo tenta essa dica, brigad�o!!!!![/quote:16301a0cef]Sem problemas brother, de uma olhada ai qualquer coisa a poste ai.......

Marcossma · Answer

Lucas essa tua dica foi paulada, funciono direitinho, mas ser� que tem como fazer pra aparecer a hora com os tr�s termos, hh:mm:ss ??T+ velho!!!...

Paulo_amorim · Answer

[quote:6505ac8e15=�marcossma�]Lucas essa tua dica foi paulada, funciono direitinho, mas ser� que tem como fazer pra aparecer a hora com os tr�s termos, hh:mm:ss ??T+ velho!!![/quote:6505ac8e15]Ol�Ao inv�s do hh:nn use hh:nn:ss[code:1:6505ac8e15]FormatDateTime(�hh:nn:ss�, etc.)[/code:1:6505ac8e15]...

Lucas Silva · Answer

Tranquilo....

Marcossma · Answer

Valew galera!!1Brigad�o aee!!!!1...

F�rum Contagem de tempo #222038