2 replies to this topic

[Caral]

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í:



Ahora el codigo.
Primero creamos unas variables globales.

delphi

private
    { Private declarations }
  public
    { Public declarations }
    minutos: integer;
    Segundos: integer;

El procedimiento del timer.

delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Segundos:= segundos +1;
    If segundos = 60 then
    begin
    segundos:= 0;
    minutos:= minutos +1;
    end;
    Label1.Caption:=IntToStr(Segundos);
    Label2.Caption:=IntToStr(Minutos);
    If minutos = 60 then
    begin
    minutos:= 0;
    end;
    Label2.Caption:=IntToStr(Minutos);
end;

Y el procedimiento de los botones.

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Timer1.Enabled = true then
    begin
      Timer1.Enabled:= false;
      Button1.Caption:='Comenzar';
    end
  else
    begin
 
      Timer1.Enabled:= true;
      Button1.Caption:='Detener';
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   segundos:= 0;
   minutos:= 0;
    Label1.Caption:=IntToStr(Segundos);
    Label2.Caption:=IntToStr(Minutos);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
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.

[granodetoro]

exelente me gusto mucho tu programa lo hice y me funciono...muchas gracias

[luk2009]

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