Cita:
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
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;
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.