Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 28-08-2015
pokexperto1 pokexperto1 is offline
Miembro
NULL
 
Registrado: dic 2013
Posts: 35
Poder: 0
pokexperto1 Va por buen camino
Question Hacer girar un objeto... es dificil (a veces).

Hola a todos, debido a mi corta edad y a que la educacion en españa ha bajado notablemente, me encuentro en 3º de ESO y todavia no hemos hecho nada sobre funciones, ¡Y eso que me apasiona el tema y me encanta la programación! Como no tengo a nadie que me enseñe normalmente busco por internet pero no he encontrado nada sobre este tema aplicado a lo que quiero hacer (la verdad es que no he buscado mucho ).
Os explico, lo que quiero hacer es una funcion que me devuelva un valor integer (RotationAngle.Y)
Se como hacer una función y todo eso, lo que no se es LO QUE TENGO QUE HACER
En el evento onKeyPress hago un case para detectar que flecha se ha pulsado.

EJEMPLO:
Código Delphi [-]
//SI PRESIONO ARRIBA
posfinal:=180;
AnimaciónRotación.Enabled=true;

//TIMER ANIMACIONROTACION
if Objeto.RotationAngle.Y=posfinal then
begin
AnimaciónRotación.Enabled=false;
end;
else
begin
Objeto.RotationAngle.Y:=Objeto.RotationAngle.Y+5;
end;
De momento mi objeto "gira". Hasta ahí todo bien.
El problema es que en el supuesto caso de que mi posicion actual sea 0 (abajo) y quiero que se mueva hasta 270 lo que quiero es que en vez de sumar +5 y hacer todo el recorrido para llegar a 270, sume -5 y haga el trayecto mas corto.

AQUÍ VIENE MI PREGUNTA:
¿HAY ALGUNA FORMA DE SABER SI TENGO QUE SUMAR 5 o -5 dependiendo de la posición?
Y no, no quiero hacer un if anidado no soy tan cutre.

¡Gracias de antemano!

PD: Lo he preguntado en este foro por que sois muy majos todos.
Responder Con Cita
  #2  
Antiguo 28-08-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Aparentemente estas usando Firemonkey, creo que seria mas apropiado moverlo a ese foro

Que tipo de animacion es "AnimaciónRotación"?
Le configuraste alguna propiedad desde el inspector de objetos o en alguno lado via codigo?
Que es "Objeto"?

La aplicacion es 3D?
Responder Con Cita
  #3  
Antiguo 28-08-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Haciendo experimentos rapido:

1. Aplicacion Firemonkey HD
2. Meto un TCube
3. Meto un TFloatAnimation, se la asigno al TCube
4. Seteo las propiedades como muestra la foto
5. Profit! El cubo gira y gira y gira

Responder Con Cita
  #4  
Antiguo 28-08-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Mas pruebas:

Código Delphi [-]
unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms3D,
  FMX.Types3D, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Math.Vectors, FMX.Ani, FMX.Controls3D, FMX.Objects3D;

type
  TForm1 = class(TForm3D)
    Cube1: TCube;
    FloatAnimation1: TFloatAnimation;
    procedure Form3DKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
    procedure Form3DKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
    procedure Form3DCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Form3DCreate(Sender: TObject);
begin
  FloatAnimation1.Enabled := False;
  FloatAnimation1.AnimationType := TAnimationType.In;
  FloatAnimation1.AutoReverse := FalsE;
  FloatAnimation1.Delay := 0;
  FloatAnimation1.Duration := 0.1;
  FloatAnimation1.Interpolation := TInterpolationType.Linear;
  FloatAnimation1.Inverse := FalsE;
  FloatAnimation1.Loop := False;
  FloatAnimation1.PropertyName := 'RotationAngle.Y';
  FloatAnimation1.StartFromCurrent := True;
  FloatAnimation1.StartValue := 0;
  FloatAnimation1.StopValue := 360;
end;

procedure TForm1.Form3DKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if FloatAnimation1.Running then
    Exit;

  if Key in [vkLeft, vkRight] then
  begin
    FloatAnimation1.AnimateFloat(FloatAnimation1.PropertyName, FloatAnimation1.CurrentTime);
    case Key of
      vkLeft: FloatAnimation1.StopValue := Cube1.RotationAngle.Y + 10;
      vkRight: FloatAnimation1.StopValue := Cube1.RotationAngle.Y - 10;
    end;

    FloatAnimation1.Start;
  end;
end;

procedure TForm1.Form3DKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if (Key in [vkLeft, vkRight]) and (FloatAnimation1.Running) then
    FloatAnimation1.StopAtCurrent;
end;

end.

En este caso al presionar las teclas izquierda/derecha el cubo rota en la direccion indicada. Al soltar la tecla el cubo se detiene. No hace falta usar timer, de hecho las animaciones crean su propio thread para animar el objeto
Responder Con Cita
  #5  
Antiguo 28-08-2015
pokexperto1 pokexperto1 is offline
Miembro
NULL
 
Registrado: dic 2013
Posts: 35
Poder: 0
pokexperto1 Va por buen camino
Cita:
Empezado por AgustinOrtu Ver Mensaje
Haciendo experimentos rapido:

1. Aplicacion Firemonkey HD
2. Meto un TCube
3. Meto un TFloatAnimation, se la asigno al TCube
4. Seteo las propiedades como muestra la foto
5. Profit! El cubo gira y gira y gira

pero para el mismo lado xD
Responder Con Cita
  #6  
Antiguo 28-08-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Poder: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
No respondiste las preguntas

En realidad la idea era darte una pista, realmente nunca había hecho algo semejante
Responder Con Cita
  #7  
Antiguo 28-08-2015
pokexperto1 pokexperto1 is offline
Miembro
NULL
 
Registrado: dic 2013
Posts: 35
Poder: 0
pokexperto1 Va por buen camino
Talking Gracias a todos

pero creo que no me he explicado del todo bien, igualmente gracias xD
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
Hacer las veces de DISTINCTROW en SQL Server con Distinct RedVenom SQL 0 11-05-2011 20:49:53
Hacer aparecer un objeto con transparencia ElDuc OOP 0 12-02-2009 19:17:06
ibdatabase y firebird a veces si a veces no Patricio Conexión con bases de datos 13 18-09-2008 15:01:21
Girar imagen Arroyo69 C++ Builder 2 12-06-2008 10:11:43
girar texto josefns Impresión 7 27-10-2007 00:00:30


La franja horaria es GMT +2. Ahora son las 14:11:59.


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