efecto disparo de los juegos

[edusus]

Yo no he pedido a nadie que trabaje por mi. Solo le he pedido como se le pide a un maestro, porque para mi bajo nivel todos son maestros, que me diga lo que ya sabe si lo sabe, y no para simplemente copiarlo sino para aprender en base a eso razonando el código. Esa es la forma como me resulta más fácil a mi aprender.
Imagínate que la ciencia pretendiera que cada científico empezara de cero sin darnos el conocimiento ya obtenido; en ese caso aun estaríamos pensando que la Tierra es el centro del Universo.

[[egostar]]

Empezado por edusus

Yo no he pedido a nadie que trabaje por mi. Solo le he pedido como se le pide a un maestro, porque para mi bajo nivel todos son maestros, que me diga lo que ya sabe si lo sabe, y no para simplemente copiarlo sino para aprender en base a eso razonando el código. Esa es la forma como me resulta más fácil a mi aprender.
Imagínate que la ciencia pretendiera que cada científico empezara de cero sin darnos el conocimiento ya obtenido; en ese caso aun estaríamos pensando que la Tierra es el centro del Universo.

Insisto, para hacer lo que pides solo es necesario leer un poco. Aqui esta lo que necesitas y sin afan de ser presuncioso, lo hubieras podido hacer en el mismo tiempo con el que me contestas y sin perder mas tiempo.

Código Delphi [-]
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
{
  Img->Picture->LoadFromFile("BLACKSIREN0.BMP");
  Img->Width=50;
  Img->Height=50;
  Img->Stretch=true;
  Img->Top=100;
  Img->Left=10;
  Timer1->Interval=25;
  Timer1->Enabled=true;
}
  Image1.Picture.LoadFromFile('c:\temp\logo.BMP');
  Image1.Width    := 50;
  Image1.Height   := 50;
  Image1.Stretch  := True;
  Image1.Top      := 100;
  Image1.Left     := 10;
  Timer1.Interval := 25;
  Timer1.Enabled  := True;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
Var
  x,y : Real;
begin
{
  Timer1->Enabled=false;
  double x=Img->Left+30;
  double y=20*sin(x)+100;
  Img->Left=x;
  Img->Top=y;
  if(x <= 1500)
  Timer1->Enabled=true;
}
  Timer1.Enabled := False;
  x              := Image1.Left + 30;
  Y              :=20*sin(x);
  Image1.Left    := round(x);
  Image1.Top     := round(y);
  If x <= 1500 then
     Timer1.Enabled := True;
end;

Nota que es lo mismo que te puso OSKR pero en lenguaje Pascal.

[edusus]

Gracias nuevamente por ayudarme a aprender.
Te voy a preguntar algo si es posible, de paso ya verás como no me limito a copiar código.
No entiendo por qué la primera frase en el código del timer lo inhabilita y sin embargo funciona el código que sigue.
Yo no habría podido convertir al código Pascal porque no conozco para nada otro código, así que te lo vuelvo a agradecer.

[[egostar]]

Empezado por edusus

No entiendo por qué la primera frase en el código del timer lo inhabilita y sin embargo funciona el código que sigue.

Claro que puedo comentarte el porque hace eso, en el primer bloque tienes un valor 25 en el intervalo de tiempo con la instruccion Timer1.Interval := 25; bueno, esto quiere decir que el evento Ontimer lo va a hacer cada 25 milisegundos (un segundo son 1000 milisegundos) por lo tanto lo pone en Falso para que pueda hacer el siguiente codigo hasta que llegue al limite que son 1500 milisegundos (1 segundo y medio).

Claro está que a manera de ejemplo te sirve para saber que hace, sin embargo, esto se debería modificar a tus necesidades reales.

Saludos