Ir al contenido



Foto

Como hacer un Cronometro sencillo.


  • Por favor identifícate para responder
2 respuestas en este tema

#1 Caral

Caral

    Advanced Member

  • Administrador
  • 4.241 mensajes
  • LocationCosta Rica

Escrito 15 noviembre 2008 - 10:31

Hola
Vamos a hacer un cronometro sencillo pero muy útil.
Creamos un nuevo proyecto.
Ahora vamos a ponerle los componentes que usaremos.
1 Timer.
5 Label
3 botones
Los re dimensionamos a nuestro gusto, quedaría así:

Imagen Enviada

Ahora el codigo.
Primero creamos unas variables globales.


delphi
  1. private
  2.     { Private declarations }
  3.   public
  4.     { Public declarations }
  5.     minutos: integer;
  6.     Segundos: integer;


El procedimiento del timer.


delphi
  1. procedure TForm1.Timer1Timer(Sender: TObject);
  2. begin
  3.     Segundos:= segundos +1;
  4.     If segundos = 60 then
  5.     begin
  6.     segundos:= 0;
  7.     minutos:= minutos +1;
  8.     end;
  9.     Label1.Caption:=IntToStr(Segundos);
  10.     Label2.Caption:=IntToStr(Minutos);
  11.     If minutos = 60 then
  12.     begin
  13.     minutos:= 0;
  14.     end;
  15.     Label2.Caption:=IntToStr(Minutos);
  16. end;


Y el procedimiento de los botones.


delphi
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. begin
  3.   if Timer1.Enabled = true then
  4.     begin
  5.       Timer1.Enabled:= false;
  6.       Button1.Caption:='Comenzar';
  7.     end
  8.   else
  9.     begin
  10.  
  11.       Timer1.Enabled:= true;
  12.       Button1.Caption:='Detener';
  13.     end;
  14. end;
  15.  
  16. procedure TForm1.Button2Click(Sender: TObject);
  17. begin
  18.   segundos:= 0;
  19.   minutos:= 0;
  20.     Label1.Caption:=IntToStr(Segundos);
  21.     Label2.Caption:=IntToStr(Minutos);
  22. end;
  23.  
  24. procedure TForm1.Button3Click(Sender: TObject);
  25. begin
  26.   Close;
  27. end;


Quedara asi:
[img width=640 height=389]http://img367.imageshack.us/img367/5710/crono1nl1.png[/img]
Y funcionando:
[img width=640 height=388]http://img367.imageshack.us/img367/3193/crono2xa3.png[/img]

Espero os guste.
Saludos

Si tenéis alguna duda haced un hilo nuevo y os ayudaremos con gusto.
  • 0

#2 granodetoro

granodetoro

    Newbie

  • Miembros
  • Pip
  • 1 mensajes

Escrito 06 abril 2011 - 04:48

:cheesy: exelente me gusto mucho tu programa lo hice y me funciono...muchas gracias
  • 0

#3 luk2009

luk2009

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2.021 mensajes
  • LocationSanto Domingo

Escrito 06 abril 2011 - 08:03

Bienvenido al foro

Es bueno que siempre uses la herramienta de busqueda porque asi puedes encontrar lo que buscas. Nos gustaria saber para que quieres utilizar el cronometro?

Aqui te pongo un par de hilos que posiblemente puedan interesarte.

Cronometro

cronometro con imagenes
  • 0