Programar Juego Basico
 

HOLA MUY BUENAS....
quisiera pedir a los que saben de programacion en delphi si pueden ayudarme con mi proyecto(tarea)

es lo sgt en clases el docente nos hizo hacer un programa en el cual mediante un boton hacemos recorrer la imagen de izquierda a derecha.. al finalizar la clase nos dio como tarea lo sgt: que programemos para que cuando la imagen llegase al borde derecho vuelva automaticamente al inicio.... nose si alguien tendria algun ejemplo de como puedo hacerlo... la medida de la ventana es de 910*440 ...... o quiza alguien tenga un juego o un ejemplo con el cual pueda guiarme..... espero vuestras respuestas

Bienvenido, creo que no has leído nuestra guía de estilo, saludos.

Como lo edito?

No te preocupes, solamente tenlo en cuenta para otras ocasiones :)

Suponiendo que ya tienes la parte del botón y la imagen moviendose, es tan simple como verificar la posición de la imagen antes de moverla.

El Pseudocódigo sería algo asi:

Es posible que esto te interese: TPelota. Al menos para tomar ideas.





Saludo.

Hola.

Un ejemplo simple que desplaza horizontalmente un TImage de forma cíclica:

Código Delphi [-]
...
implementation

type
  TSentido = (toLeft, toDown, toRight, toUp); //  Por si hubiera un futuro desplaz. vertical 

procedure MoveImage(Img: TImage; const Sense: TSentido; const Disp: Integer);
begin
  case Sense of
    toRight:
    begin
      if Img.Left >= Img.Parent.ClientWidth - Disp then
        Img.Left := -Img.Width + Disp;
      Img.Left := Img.Left + Disp;
    end;
    toLeft:
    begin
      if Img.Left + Img.Width <= Disp then
        Img.Left := Img.Parent.Width;
      Img.Left := Img.Left - Disp;
    end;
    // toDown:
    // toTop:
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Self.KeyPreview            := True;
  Self.HorzScrollBar.Visible := False;
  Self.DoubleBuffered        := True;
  Image1.Width  := Image1.Picture.Width;
  Image1.Height := Image1.Picture.Height;
end;

Luego podes llamar a la función en el/los eventos que prefieras, v.gr.:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_LEFT then
    MoveImage(Image1, toLeft, 10);
  if Key = VK_RIGHT then
    MoveImage(Image1, toRight, 10);
end;

Resultado:


Saludos :)

Alguien se debe estar revolcando frente a su ordenador en éste momento... :D:D:D:D

( y NO lo digo por Einer revisando el código... )

:):):):):)

Alguien ya ejecutó el ejemplo :D:D:D


Saludos.

¿La "sombra" está descolocada?

No, no hay sombra, si ves una pelota negra es que no copiaste el archivo Pelota7.png a la carpeta del ejecutable. La clase TPelota puede incorporar imágenes en los recursos o leerlas de un archivo. en el segundo caso será negra si no encuentra el archivo.

En un primer lugar aparece una pelota con esa imagen y un balón de fútbol. Cada uno tiene un comportamiento ligeramente distinto. El balón termina cayendo al suelo y frenando. Al parar se disparan dos balones, el antiguo y otro nuevo. El asunto se repite hasta un número de pelotas limitado para no saturar los recursos.




Saludos.

Es lo que dices, no copié la imagen de esa pelota :)