Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Lanzando un cohete (countdow)

Started by Guest_Jose Fco_* , Nov 30 2008 06:21 PM

Next

Please log in to reply

57 replies to this topic

#1 Guest_Jose Fco_*

Visitante

Posted 30 November 2008 - 06:21 PM

Pues eso amigos lanzaremos un cohete a la luna y de paso le damos un vistazo a un ejemplo con dos timer.

Imagen Enviada

Este es el countdow:
Imagen Enviada

Y aqui sale para la luna:
Imagen Enviada

Esto es parte del codigo, mañana lo termino y lo pongo todo junto con el fuente.

delphi

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, StdCtrls, Buttons, ComCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Rocket: TImage;
    FRocket: TImage;
    BExit: TBitBtn;
    BStart: TBitBtn;
    Timer1: TTimer;
    Timer2: TTimer;
    TrackBar1: TTrackBar;
    CountDow: TPanel;
    Label1: TLabel;
    procedure BExitClick(Sender: TObject);
    procedure BStartClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BExitClick(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.BStartClick(Sender: TObject);
begin
Timer1.Enabled := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Countdow.Caption := inttostr(strtoint(Countdow.Caption)-1);
if Countdow.Caption = '0' then begin
Timer1.Enabled := False;
Rocket.Visible := False;
FRocket.Visible := True;
end;
end;
 
end.

Hoy los ingenieros estan cansados y mañana le seguimos.

Un Saludo.

Back to top

#2 felipe

Advanced Member

Administrador
3283 posts

LocationColombia

Posted 30 November 2008 - 06:27 PM

Esta buena la idea...

falta es que despegue el cohete.

0

Back to top

#3 Guest_Jose Fco_*

Visitante

Posted 30 November 2008 - 06:30 PM

Esta buena la idea... falta es que despegue el cohete.

Eso lo tengo, es el mismo codigo de hacer correr al burrito solo que en vez de decir Left le dire Top.

mañana lo termino.

Un Saludo.

Back to top

#4 felipe

Advanced Member

Administrador
3283 posts

LocationColombia

Posted 30 November 2008 - 06:32 PM

Esta buena la idea... falta es que despegue el cohete.

Eso lo tengo, es el mismo codigo de hacer correr al burrito solo que en vez de decir Left le dire Top.
mañana lo termino.

Un Saludo.

Pero podrías ponerle menos recorrido por cada ciclo (Me imagino que lo haces así), para que el movimiento se vea mas suave y parejo

0

Back to top

#5 Guest_Jose Fco_*

Visitante

Posted 30 November 2008 - 06:36 PM

Si asi lo hare y ademas se pierde en el cielo antes de hacer reset el programita.
Lo probe con un trackbar y funciono a la perfecion.

Un Saludo.

Back to top

#6 Guest_Jose Fco_*

Visitante

Posted 30 November 2008 - 07:38 PM

Bueno me llegaron ideas frezcas a la cabeza y aqui esta mas completo el codigo:

delphi

var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BExitClick(Sender: TObject);
begin
Close;
end;
procedure TForm1.BStartClick(Sender: TObject);
begin
Timer1.Enabled := True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Countdow.Caption := inttostr(strtoint(Countdow.Caption)-1);
if Countdow.Caption = '0' then begin
Timer1.Enabled := False;
Rocket.Visible := False;
FRocket.Visible := True;
Timer2.Enabled := True;
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
 FRocket.Top := FRocket.Top - 1;
 ElevaCount.Caption := inttostr(strtoint(ElevaCount.Caption) +20);
 if ElevaCount.Caption = '5500' then begin
 Timer2.Enabled := False;
 FRocket.Visible := False;
 FRocket.Top := 152;
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Rocket.Visible := True;
CountDow.Caption := inttostr(10);
ElevaCount.Caption := inttostr(0000);
end;
end.

Esta funcionando a las mil maravillas.Mañana lo termino.

Un Saludo.

Back to top

#7 felipe

Advanced Member

Administrador
3283 posts

LocationColombia

Posted 30 November 2008 - 07:52 PM

Luce bien

... esperaremos el resultado final...

0

Back to top

#8 Caral

Advanced Member

Moderador
4266 posts

LocationCosta Rica

Posted 30 November 2008 - 07:57 PM

Hola
Muy bueno maestro, mañana veo el final del lanzamiento, espero no explote mi ordenador. jajajajaja

Saludos

0

Back to top

#9 felipe

Advanced Member

Administrador
3283 posts

LocationColombia

Posted 30 November 2008 - 08:01 PM

¿Y a quién mandaremos a volar en él?

0

Back to top

#10 Fenareth

Advanced Member

Administrador
3486 posts

LocationMexico City

Posted 30 November 2008 - 08:02 PM

¿Y a quién mandaremos a volar en él?

No me hagas hablaaaaaaar !!!!!!

(6) :$

0

Back to top

#11 felipe

Advanced Member

Administrador
3283 posts

LocationColombia

Posted 30 November 2008 - 08:15 PM

¿Y a quién mandaremos a volar en él?

No me hagas hablaaaaaaar !!!!!! (6) :$

¿No será el Poli?... ¿o sí?

0

Back to top

#12 Fenareth

Advanced Member

Administrador
3486 posts

LocationMexico City

Posted 30 November 2008 - 08:29 PM

¿Y a quién mandaremos a volar en él?

No me hagas hablaaaaaaar !!!!!! (6) :$

¿No será el Poli?... ¿o sí?

Jajajaja, a menos que el cohete esté dirigido a Guadalajara

... así sí lo trepamos, cómo no !

0

Back to top

#13 felipe

Advanced Member

Administrador
3283 posts

LocationColombia

Posted 30 November 2008 - 08:31 PM

¿Y a quién mandaremos a volar en él?

No me hagas hablaaaaaaar !!!!!! (6) :$

¿No será el Poli?... ¿o sí?

Jajajaja, a menos que el cohete esté dirigido a Guadalajara ... así sí lo trepamos, cómo no !

... sin comentarios... jejejeje

0

Back to top

#14 Fenareth

Advanced Member

Administrador
3486 posts

LocationMexico City

Posted 30 November 2008 - 08:32 PM

Por cierto... comentario totalmente off-topic... y tu avatar ?

...

O andas de incógnito ? (h)

0

Back to top

#15 felipe

Advanced Member

Administrador
3283 posts

LocationColombia

Posted 30 November 2008 - 08:37 PM

Por cierto... comentario totalmente off-topic... y tu avatar ? ...

O andas de incógnito ?

Jajajajaja... no para nada... se borró el otro dia del problema con el servidor y no lo volvi a poner

0

Back to top

#16 Guest_Jose Fco_*

Visitante

Posted 01 December 2008 - 05:37 AM

¿Y a quién mandaremos a volar en él?

No me hagas hablaaaaaaar !!!!!! (6) :$

¿No será el Poli?... ¿o sí?

Jajajaja, a menos que el cohete esté dirigido a Guadalajara ... así sí lo trepamos, cómo no !

jajajajajajaja no esta mala la idea, trepamos al burro.

Un Saludo.

Back to top

#17 Guest_Jose Fco_*

Visitante

Posted 01 December 2008 - 06:57 AM

Hola amigos, aqui tengo una preguntita.

Con este codigo solo me le pone un "0" a este Label y quiero que sea asi (0000) cuatro ceros.

delphi

ElevaCount.Caption := inttostr(0000);

Se que con una pequeña modificacion de esa linea se logra hacer.Pero no me recuerdo ahora como es la cosa.

Un Saludo.

Back to top

#18 enecumene

Webmaster

Administrador
7419 posts

LocationRepública Dominicana

Posted 01 December 2008 - 07:29 AM

Prueba con esto a ver:

delphi

ElevaCount.Caption := Format('0000',['0000']);

ó

delphi

ElevaCount.Caption := Format('###0',['0000']);

No están probados, pues no tengo Delphi en la mano.

Saludos.

0

Back to top

#19 Guest_Jose Fco_*

Visitante

Posted 01 December 2008 - 07:37 AM

Gracias enecumene, el primero esta perfecto:
este:

delphi

ElevaCount.Caption := Format('0000',['0000']);

El segundo lo que pone es (###0).

Un Saludo.

Back to top

#20 eduarcol

Advanced Member

Administrador
4483 posts

LocationVenezuela

Posted 01 December 2008 - 08:27 AM

por fin en que quedo esto?, despego o no el cohete?

0

Back to top

Next

Back to [Animaciones y Juegos]

Lanzando un cohete (countdow)

#1 Guest_Jose Fco_*

#2 felipe

#3 Guest_Jose Fco_*

#4 felipe

#5 Guest_Jose Fco_*

#6 Guest_Jose Fco_*

#7 felipe

#8 Caral

#9 felipe

#10 Fenareth

#11 felipe

#12 Fenareth

#13 felipe

#14 Fenareth

#15 felipe

#16 Guest_Jose Fco_*

#17 Guest_Jose Fco_*

#18 enecumene

#19 Guest_Jose Fco_*

#20 eduarcol

Sign In