Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-08-2018
einer einer is offline
Registrado
NULL
 
Registrado: ago 2018
Posts: 5
Poder: 0
einer Va por buen camino
Exclamation 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
Responder Con Cita
  #2  
Antiguo 23-08-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.011
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Bienvenido, creo que no has leído nuestra guía de estilo, saludos.
Responder Con Cita
  #3  
Antiguo 23-08-2018
einer einer is offline
Registrado
NULL
 
Registrado: ago 2018
Posts: 5
Poder: 0
einer Va por buen camino
Como lo edito?
Responder Con Cita
  #4  
Antiguo 23-08-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.011
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
No te preocupes, solamente tenlo en cuenta para otras ocasiones
Responder Con Cita
  #5  
Antiguo 24-08-2018
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.730
Poder: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
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:

Código:
// Hasta donde puede avanzar la imagen
LimitePosicionDerecha := 900

// Cantidad de pixels que se moverá al presionar una tecla
Avence := 10

OnKeyPress
begin
   // Avanzo la imagen
   Imagen.Left := Imagen.Left + Avence

   // Verifico si me he salido de la pantalla
   if Imagen.Left > LimitePosicionDerecha then
      Imagen.Left := 1
end
Responder Con Cita
  #6  
Antiguo 24-08-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Es posible que esto te interese: TPelota. Al menos para tomar ideas.





Saludo.
Responder Con Cita
  #7  
Antiguo 24-08-2018
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #8  
Antiguo 27-08-2018
Avatar de gatosoft
[gatosoft] gatosoft is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Bogotá, Colombia
Posts: 833
Poder: 21
gatosoft Va camino a la fama
Cita:
Empezado por escafandra Ver Mensaje
Es posible que esto te interese: TPelota. Al menos para tomar ideas.
Saludo.
Alguien se debe estar revolcando frente a su ordenador en éste momento...

( y NO lo digo por Einer revisando el código... )
Responder Con Cita
  #9  
Antiguo 27-08-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.011
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por gatosoft Ver Mensaje
Alguien se debe estar revolcando frente a su ordenador en éste momento...
( y NO lo digo por Einer revisando el código... )
Responder Con Cita
  #10  
Antiguo 27-08-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por gatosoft Ver Mensaje
Alguien se debe estar revolcando frente a su ordenador en éste momento...

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

Alguien ya ejecutó el ejemplo


Saludos.
Responder Con Cita
  #11  
Antiguo 27-08-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.011
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por escafandra Ver Mensaje
Alguien ya ejecutó el ejemplo
Saludos.
¿La "sombra" está descolocada?
Responder Con Cita
  #12  
Antiguo 27-08-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.195
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Cita:
Empezado por Casimiro Notevi Ver Mensaje
¿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.




Última edición por escafandra fecha: 09-03-2020 a las 08:54:04.
Responder Con Cita
  #13  
Antiguo 28-08-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.011
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Es lo que dices, no copié la imagen de esa pelota
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Programar en Delphi el juego del Ajedrez josejp1 Varios 14 25-10-2020 20:29:40
¿Se pueden programar apps para iOS sin saber programar? nlsgarcia La Taberna 7 04-08-2014 12:09:36
Duda sobre como programar el juego Timbiriche mifiar Varios 16 26-11-2005 07:06:01
programar un juego en red gario Internet 7 28-10-2005 02:51:07
Muy básico mateamargo Internet 6 27-10-2003 16:41:23


La franja horaria es GMT +2. Ahora son las 06:19:16.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi