Programa de Matematicas

[Neftali [Germán.Estévez]]

Empezado por Neftali

...Suponiendo que lo queramos hacer en Delphi, creo que bastaría para hacer la animación 1 sólo timer (cada 500 milisegundos vas haciendo el movimiento) y un sólo juego de imágenes

Algo así; Es igual que lo que tenías, pero con 1 Timer y 1 Imagen para cada pez (sólo el form de entrada).
http://www.megaupload.com/?d=SWI7WW0A

[[Caral]]

Hola Neftali
Me parece extraordinario, ademas de mucha menos faena, el unico problema que le veo es que hace el trayecto solo una vez y me gustaria que se repitiera, no he podido hacerlo.
Con relacion a los edit, tienes razon, son componentes adicionales, ya los envio con este ultimo cambio tuyo, son bastante utiles, pruebalos.
Yo tambien uso delphi 6.
Aqui esta:
http://rapidshare.com/files/5203339/...es_10.zip.html
Por favor revisalo
Saludos

[Neftali [Germán.Estévez]]

Empezado por Caral

...el unico problema que le veo es que hace el trayecto solo una vez y me gustaria que se repitiera, no he podido hacerlo.
Saludos

En el procedimiento del Timer añade las tres líneas que te pongo en ROJO y listo; Si las comentas lo hace 1 vez, si las descomentas lo hace cíclico.

Código Delphi [-]
var
  total:Integer;
begin

  // Que pez estamos dibujando
  _pezActual := _pezActual + 1;
  total := Length(POSITION_PEZ1X);

  // Se ha acabado?
  if (_pezActual > total) then begin
    TimerAnim.Enabled := False;
    I1.Visible := False;
    IV1.Visible := False;
    IR1.Visible := False;
    // Sacar el Main
    //...

    // Si se quiere que vuelva a empezar se descomenta este código
    TimerAnim.Enabled := True;
    _pezActual := 0;

    Exit;
  end
  else begin
    // Amarillo
    I1.Visible := True;
    I1.Transparent := True;
    I1.Left := POSITION_PEZ1X[_pezActual];
    I1.Top := POSITION_PEZ1Y[_pezActual];
    // Violeta
    IV1.Visible := True;
    IV1.Transparent := True;
    IV1.Left := POSITION_PEZ2X[_pezActual];
    IV1.Top := POSITION_PEZ2Y[_pezActual];
    // Rojo
    IR1.Visible := True;
    IR1.Transparent := True;
    IR1.Left := POSITION_PEZ3X[_pezActual];
    IR1.Top := POSITION_PEZ3Y[_pezActual];
  end;
end;

[[Caral]]

Hola a todos
Neftali: Lo hice un poco diferente, antes de ver tu mensaje, pero funciona, revisalo por favor, muchas gracias.
Dec: Ya mas o menos aprendi a usar el componente, la verdad esto de las funciones me tiene un poco desorientado, bueno, bastante pero estoy aprendiendo.
Lo del componente, me parece que tiene algunos problemas, no da las cantidades exactas, pero ya lo dice el autor.
Bueno aqui estan las modificaciones, ajala les gusten
http://rapidshare.com/files/5328239/...es_11.zip.html
Saludos

[Neftali [Germán.Estévez]]

Un error; Si quieres, ves apuntando y cuando tengas unos cuantos los corriges y subes; Lo digo para no andar subiendo tanto ficheros...

Es la pantalla de Números a letras. Si escribes un número lo convierte; Si inmediatamente después lo borras, debe intentar convertir la cadena vacía y da este error:
http://img150.imageshack.us/img150/4736/error1ja2.jpg

[Neftali [Germán.Estévez]]

Algunas cosillas más por si quieres tomar nota; Algunas son sugerencias o preferencias personales, así que tómatelos como eso, nada más. Tal vez lo que a mi me puede parecer lógico a otra persona no.

-------------------------------------------------------------
FRACCIONES
=============
* En los Edit de comprobación no se debería escribir (POr ejemplo el se Suma, Fracciones).
* El resultado de las fracciones es incorrecto.
* Creo que debería redudir el resultado todo lo posible (?¿?¿?) 2/4 = 1/2

APLICACIÓN EN GENERAL
======================
* Icono de la aplicación en el EXE y Título en la Barra de Tareas.
* Versión de la aplicación (para actualizaciones). Y para información complementaria.
* Yo podría una tecla rápida a todas las teclas de comprobar (ALT+C) por ejemplo.

PRACTICAS
=========
* Al pulsar sobre un número, aparece un desplegable con los 9 números para seleccionar; Son tan grandes que se va de pantalla y es incómodo; Personalmente pondría la fuente un poco más pequeña. Suficiente para que los números se vean grandes, pero que quepan todos en pantalla.
* Si se hace una suma, no hay forma de volver a realizar otra; Se debe cerrar la pantalla de prácticas.
* Los edit que no sean de escribir, como por ejemplo el del resultado en la pantalla de Practicas, les pondría el TabStop a False; Fíjate que si en la pantalla de prácticas vas pulsando TAB varias veces, "entras" en el edit de comprobar.
-------------------------------------------------------------

Un saludo.