Fórum Timer Regressivo #147485
19/03/2003
Gostaria de receber uma dica de como posso fazer um timer regressivo. Tipo assim vou fazer um programa pra um jogo de basquete, e no caso, no form eu queria colocar o timer regressivo, e acontagem dos pontos. No jogo as cestas podem valer 1,2 e 3 pontos, então eu queria fazer algo mais ou menos assim: ao pressionar uma determinada tecla fosse adionado o valor correspondente à mesma, na contagem dos pontos. E cada jogo tem 4 tempos de 12 minutos. Então teria que armazenar os pontos e o tempo do jogo (1º, 2º) e o timer regressivo. Por onde começo?
Posts
Se você tem os minutos de cada tempo, a quantidade de tempos e valor das cestas, só falta programar...
use variáveis globais ou Array. defina antes de Implementation:
var
Form1: TForm1;
TEMPO_RESTANTE: Ttime;
TEMPO_PARTIDA: Integer;
PONTOS_TIME1: Integer;
PONTOS_TIME2: Integer;
implementation
Para tempo restante use um Ttimer e coloque o código:
Um Botão inicia a contagem:
TEMPO_RESTANTE :=IncSecond( NOW, 720);
TTimer1.Enabled := True;
no evento OnTimer:
Label1.Caption :=
FormatDateTime(´HH:MM:SS´,NOW-TEMPO_RESTANTE);
e como vou adicionar os valores das cestas no contador de pontos? Tipo assim, queria pressionar uma tecla e adicionar os valores...
tem como fazer isso? ao pressionar por exemplo a tecla 1 fosse adicionado 1 ponto no contador de pontos?
E como que faz pra mostrar os valores abaixo de 10 com 0, tipo 01,02,03...
E como que faz pra mostrar os valores abaixo de 10 com 0, tipo 01,02,03...
Alguém sabe como fazer isto?
