Programa de Matematicas
 

Hola a Todos
Este hilo lo hago con la idea de colaborar con los mas nuevos en este mundo delphi, ademas de que los foristas mas avanzados y que quieran colaborar puedan mejorar este pequeño programa de matematicas basicas.
Lo hice para que mi hija aprendiera practicando las tablas de multiplicar en forma de juego.
Para mejorarlo he pensado en la posibilidad de que pueda tener varios jugadores y que los nombres como su puntaje se guarden en un archivo texto o ini.:rolleyes:
Se que podria modificarse para mas usos didacticos, les dejo la iniciativa y por supuesto el codigo completo aqui:
http://rapidshare.com/files/3380405/Matematicas_Felices.zip.html
Me encantaria que lo vierais y criticarais a un aprendiz, ademas de enviar las modificaciones, parciales o totales que querais.
Saludos

Hola Caral

Te felicito es una idea muy original y sobretodo muy de buen padre.

Te comento dos cosas.

1: Tu código necesitar simplificarlo, obvio que eso es con la experiencia.

Lo que tu tienes en el procedimiento.

procedure TForm1.Button2Click(Sender: TObject);

Lo podrias simplificar así

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  case ComboBox3.ItemIndex of
     0 : begin
           Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) + StrToFloat(ComboBox2.Text));
         end;
     1 : begin
           Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) - StrToFloat(ComboBox2.Text));
         end;
     2 : begin
           Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) * StrToFloat(ComboBox2.Text));
         end;
     3 : begin
           Edit2.Text := FloatToStr(StrToFloat(ComboBox1.Text) / StrToFloat(ComboBox2.Text));
         end;
  end;
  If Edit1.Text <> Edit2.Text Then begin
     Label1.Caption  := 'Tu Respuesta es Incorrecta';
     Image1.Visible  := False;
     Image2.Visible  := True;
     Button2.Visible := False;
     Image3.Visible  := False;
  end
  else begin
             Label1.Caption  := 'Bien Hecho Respuesta Correcta';
             Image1.Visible  := True;
             Button2.Visible := False;
             Image2.Visible  := False;
             Image3.Visible  := False;
  end;
end;

2: Una buena práctica es que en tus programas asignes los Tabs de forma que al usuario le sea fácil pasar de un objeto a otro, es decir, al usar tu programa después de seleccionar los numeros yo pensaría que el siguiente objeto que debe tener el foco es donde vas a ingresar el resultado.

Saludos y nuevamente te felicito, seguimos viendo el programa.

Hasta la próxima.

Hola egostar
Gracias por tus comentarios.
Estoy tratando en la medida de lo posible, que maestros como tu con algun tiempo disponible, le den toques de artista a este programa, con esto mas personas podrian ver las diferencias y el avance del mismo.
Este codigo es un regalo para los mas novatos (me incluyo en ellos) por eso seria de gran ayuda para muchos recoger el programa y colocarlo con las modificaciones pertinentes ahunque se trate de un pequeño cambio, sera bien venido.
Muchos hijos e hijas lo agradeceran a mi hija le ha servido de mucho, hasta esta pensando en programar.:D ojala.
Saludos y gracias nuevamente

Eso me parece una gran idea.

Lo primero que me ha llamado la atención del programa es que hay bastante código que es repetitivo; Si le echas un vistazo a la función FindComponent, verás que te puede ayudar a reducir código en estas funciones; También creo que te puede ayudar a aclararte en general el llamar a determinados componentes/botones/combos/edits con un nombre más descriptivo que el que pone delphi por defecto.

Por ejemplo, este código:

Código Delphi [-]
  ComboBox5.Text:= FloatToStr(RandomRange(1, 10));
  ComboBox7.Text:= FloatToStr(RandomRange(1, 10));
  ComboBox9.Text:= FloatToStr(RandomRange(1, 10));
  ComboBox11.Text:= FloatToStr(RandomRange(1, 10));
  ComboBox13.Text:= FloatToStr(RandomRange(1, 10));
  ComboBox15.Text:= FloatToStr(RandomRange(1, 10));
  ComboBox17.Text:= FloatToStr(RandomRange(1, 10));
  ComboBox19.Text:= FloatToStr(RandomRange(1, 10));
  ComboBox21.Text:= FloatToStr(RandomRange(1, 10));
  ComboBox23.Text:= FloatToStr(RandomRange(1, 10));

Se ppuede sustituir por este:

Código Delphi [-]
var
  i, j:Integer;
  comp:TComponent;
...

  // recorrer los combos
  for i := 1 to 10 do begin
    j := (i * 2) + 3; // con i desde 1 hasta 10 te dará la secuencia: 5,7,9,11
                      // Que es justo la que coincide con los nombres de los combos
    comp := FindComponent('ComboBox' + IntToStr(j)); // combobox5, combobox7,...

    TComboBox(comp).Text:= FloatToStr(RandomRange(1, 10));
  end;

Básicamente es "montar" una cadena con el nombre del componente u sar FindComponent para encontrarlo.

o este:

Código Delphi [-]
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
  Edit9.Clear;
  Edit10.Clear;
  Edit11.Clear;
  Edit12.Clear;
  Edit13.Clear;
  Edit14.Clear;
  Edit15.Clear;
  Edit16.Clear;
  Edit17.Clear;
  Edit18.Clear;
  Edit19.Clear;
  Edit20.Clear;
  Edit21.Clear;
  Edit22.Clear;

Por este otro:

Código Delphi [-]
var
  i:Integer;
  comp:TComponent;
...
  // Recorrido por los edits
  for i := 3 to 22 do begin
    Str := 'Edit' + IntToStr(i);  // edit3, edit4, Edit5,...
    comp := FindComponent(Str);
    TEdit(comp).Clear;
  end;

Espero que te sea últil.


¿Has pensado cómo? ¿Tienes algo en mente?
Me refiero a si ya tienes cosas pensadas y podemos ayudarte a implementarlas o no tienes nada pensado.
Ya que la idea ha sido tuya y la iniciativa también está bien que decidas por donde comenzar...
* Problemas para practicar la memoria.
* Gráficas X,Y
* Fracciones
* MCM y MCD
* ...

Hola Neftali
La idea de esto es que cada uno que quiera participar, haga las modificacion y ampliaciones que crea convenientes, las pruebe y las coloque denuevo aqui (Archivo Zip), asi el programa ira creciendo y se iran aprendiendo mas cosas.
Ten como ejemplo las modificaciones que puso egostar, si lo pruebas te daras cuenta que la primera vez funcionan luego no, no se la razon por eso digo que me gustaria que las modficaciones o ampliaciones fueran probadas y colocadas completas aqui, asi el programa crecera con el aporte de todos.
He querido dejar este programa para que casualmente sea un apoyo para los mas novatos como yo.
Con relacion a esto:
Pues mi hija necesita saber por ejemplo el area de una circunferencia o cuadrado, o el volumen de estos.
He pensado que con un dibujo de estos y con un edit en donde se den las dimensiones, pueda dar el resultado e igualmente se verifique si esta correcto.
La verdad, pienso que muchas cabezas piensan mas que una y quiero dejar a cada uno hacer lo que estimen bueno para el programa.
Tal vez en vez de llamarse Matematicas felices, se llame matematicas CubDelphi, ya que le pertenece a este ahora, incluso por experiencia puedo decir que se puede publicar, ya que no hay ningun programa verdaderamente didactico para que aprendan matematicas los mas pequeños.
Saludos

Caral me parece una idea genial crear un programa para los niños, las matemáticas siempre fueron mi asignatura preferida :D . Lo que yo cambiaría un poco es la parte gráfica, los niños es en lo primero que se fijaran, o eso supongo hace mucho que no soy un niño (al menos por edad ;) )

Aquí te dejo un pequeño programa para hacer sumas/restas/multiplicaciones, que cree centrándome mas en el aspecto gráfico. Para saber como utilizarlo mueve el ratón sobre las pizarra y sigue los consejos que te de la cara sonriente :D

Solo es un ejemplo
http://rapidshare.com/files/3470724/FunMaths.zip.html

Efectivamente Caral, el código que puse tenía un detalle que corregi, me imagino, después de que lo copiaste de la primer respuesta, el problema era que yo habia asignado el ComboBox1 para las operaciones de suma,resta, etc y tu lo tienes en el ComboBox3, pues nada lo copiaste antes de actualizarlo, eres muy rápido:D , debo solicitarte una disculpa por no haber documentado ese cambio.

Saludos.

Hola seoane
Me parece increible tu programa, crees que se podria hacerse una mezcla de los dos, para mi sigue siendo como idea que este programa crezca, todo lo que se incorpore a el me parece que sera veneficioso.
Agradezco mucho tu intervencion ya que como maestro podrias hacerle verdaderos cambios, ademas de estupendos.
Quiero que sea parte de todos este programa y que cada quien ponga su grano de arena en el.
Si es posible poner en cada modificacion una nota:
Asi cada quien aportara y quedara su marca en el.
Saludos

Hola egostar
Por que no aportas cambios al programa, lee mi nota anterior, quiero que participeis con algun cambio y que le pongais la nota correspondiente:
o
Recordad que en esta vida todo pasa, execpto lo escrito, ese dura mas, para las generaciones siguiente.
No importa si el cambio o la mejora es de dos lineas, lo importante es ponerla.
Saludos

Hola egostar
Nuevamente intente con el codigo, tiene mucha logica, pero en el caso de las sumas no funciona bien, el resto si, no se a que se debe.
Puedes probarlo ?
Saludos

Hola
He cambiado el codigo de egostar en el caso del Case Of por if then y funciona, no se la razon ?.
Aqui esta el cambio:
http://rapidshare.com/files/3481388/...lices.zip.html
Evento modificado por egostar, Button2Click, queda grabado.
Gracias egostar por el aporte
Saludos

Bueno, el asunto de porque la suma no funciona correctamente es porque al inicio el ComboBox3.ItemIndex tiene un valor de -1, como no has cambiado el ComboBox3.Text este valor no lo reconoce como 0 que en realidad es el ItemIndex de Sumar, lo que hice es lo siguiente:

Código Delphi [-]
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  ComboBox3.ItemIndex := 0; // esto inicializa el combobox3 a 0
  TabSheet2.Caption:= 'Practicas de Sumas';
end;

Con esto ya debe de funcionar como lo soñe:D

Saludos

Hola
Bueno, no he cambiado todavia tu opcion egostar, para que quede como la soñaste :D , pero hice varios cambios.
seoane, espero te guste asi, creo que es mas grafico como dijiste y la verdad se ve mucho mas de maestro, se nota tu mano.
Aqui estan los cambios, revisenlos por favor.
http://rapidshare.com/files/3499529/...lices.zip.html
Me dicen que tal.:)
Saludos

Hola Caral,

Le he echado un ojo a tu programa feliz :). Para empezar me concentré en el Button3Click, el que comprueba las respuestas de la segunda ficha.

Tienes muchas parejas de sentencias del tipo

¿por qué no lo simplificas:

Pero más aún: fíjate que en esas sentencias lo que hace es fijar un rótulo de acuerdo a si la respuesta es o no correcta. Y sólo hay dos posibles rótulos: 'X' y 'OK'.

'X' se pone si la respuesta es incorrecta, o, dicho de otra forma, si la comparacion

ESTO = AQUELLO

es falsa, y 'OK' se pone si esta comparación es verdadera. En resumen, el rótulo que uses depende de un valor booleano. Entonces puedes hacer esto:

Código Delphi [-]
const
  strRespuestas = array[Boolean] of String = ('X', 'OK');

al principio del procedimiento. strRespuestas es un arreglo de dos elementos:

Entonces, los condicionales

Código Delphi [-]
if Edit3.Text = Edit4.Text then
  Label4.Caption := 'OK';

if Edit3.Text <> Edit4.Text then
  Label4.Caption := 'X';

la puedes simplificar a una sóla línea:

Código Delphi [-]
Label4.Caption := strRespuestas[Edit3.Text = Edit4.Text];

Aplicas la misma técnica al final de ese evento, donde asignas los colores, y en total reduces el código en aproximadamente 100 líneas :)


Por otro lado, creo que Neftali ya lo dijo. Urge cambiar nomenclatura.

// Saludos

Otro punto:

Si haces lo del mensaje anterior, te queda algo como:

Código Delphi [-]
if ComboBox3.Text = 'Sumar' then
begin
  Edit4.Text := FloatToStr(StrToFloat(ComboBox4.Text) + StrToFloat(ComboBox5.Text));
  Label4.Caption := strRespuestas[Edit3.Text = Edit4.Text];

  Edit6.Text := FloatToStr(StrToFloat(ComboBox6.Text) + StrToFloat(ComboBox7.Text));
  Label5.Caption := strRespuestas[Edit5.Text = Edit6.Text];

  Edit8.Text := FloatToStr(StrToFloat(ComboBox8.Text) + StrToFloat(ComboBox9.Text));
  Label6.Caption := strRespuestas[Edit7.Text = Edit8.Text];

  Edit10.Text := FloatToStr(StrToFloat(ComboBox10.Text) + StrToFloat(ComboBox11.Text));
  Label7.Caption := strRespuestas[Edit9.Text = Edit10.Text];

  Edit12.Text := FloatToStr(StrToFloat(ComboBox12.Text) + StrToFloat(ComboBox13.Text));
  Label8.Caption := strRespuestas[Edit11.Text = Edit12.Text];

  Edit14.Text := FloatToStr(StrToFloat(ComboBox14.Text) + StrToFloat(ComboBox15.Text));
  Label9.Caption := strRespuestas[Edit13.Text = Edit14.Text];

  Edit16.Text := FloatToStr(StrToFloat(ComboBox16.Text) + StrToFloat(ComboBox17.Text));
  Label10.Caption := strRespuestas[Edit15.Text = Edit16.Text];

  Edit18.Text := FloatToStr(StrToFloat(ComboBox18.Text) + StrToFloat(ComboBox19.Text));
  Label11.Caption := strRespuestas[Edit17.Text = Edit18.Text];

  Edit20.Text := FloatToStr(StrToFloat(ComboBox20.Text) + StrToFloat(ComboBox21.Text));
  Label12.Caption := strRespuestas[Edit19.Text = Edit20.Text];

  Edit22.Text := FloatToStr(StrToFloat(ComboBox22.Text) + StrToFloat(ComboBox23.Text));
  Label13.Caption := strRespuestas[Edit21.Text = Edit22.Text];
end;

para la suma. Pero para las otras operaciones, lo único que cambia es el símbolo de la operación (+,-,*,/).

¡Algo debe poder hacerse para reducir las cuatro operaciones a una!

Podrías, por ejemplo, declarar una función:

Código Delphi [-]
type
  TOperacion = (opSuma, opResta, opMultiplicacion, opDivision);

function HazOperacion(Operando1, Operando2: Extended; Operacion: TOperacion): Extended;
begin
  case Operacion of
    opSuma: Result := Operando1 + Operando2;
    opResta: Result := Operando1 - Operando2;
    opMultiplicacion: Result := Operando1 * Operando2;
    opDivision: Result := Operando1 / Operando2;
  end;
end;

Si sustituyes

Código Delphi [-]
Edit4.Text := FloatToStr(StrToFloat(ComboBox4.Text) + StrToFloat(ComboBox5.Text));

por

Código Delphi [-]
Edit4.Text := FloatToStr(HazOperacion(
  StrToFloat(ComboBox4.Text), StrToFloat(ComboBox5.Text), Operacion));

entonces bastará un case al comienzo para escoger Operacion y entonces podrás usar el mismo código para las cuatro operaciones.

// Saludos

Hola roman
Gracias por tu aporte, me la has puesto dificil de masticar, pero en cuanto lo entienda, lo aplico seguro.
Con respecto al uso de la nomenglatura estoy de acuerdo, no suelo hacer estas cosas asi, pero este programita como ves lo hice en un par de dias en horas de descanso, por eso esta aqui para que lo engrandezcais con vuestro conocimiento.
Gracias a todos los que aportais vuestro conocimiento.
Saludos

Hola caral

Podemos agregarle algo de geometría al programa.
Hice una pequeña dll como ejemplo para el cálculo de superficies y volúmenes.
Decime que te parece

http://download.yousendit.com/54B2EA3F2B6DC141


saludos

Hola Robert01
Me gusta la idea el programa esta simpatico y lo voy a incorporar, ya lo veras, si tienen otras ideas, ponganlas, asi crecera.
Saludos

Hola a todos
Primero espero que este avance los convenza, he agregado un boton Club Delphi, presionenlo.:D
Seoane, espero que la parte grafica te satisfaga.:rolleyes:
egostar, Ya va tu parte muy bien, el codigo funciona.:D
Neftali, necesito mas informacion, recuerda soy novato.:confused:
roman, que decir, no entiendo todavia, ya tratare de entenderlo pero es demasiado para mi.:confused: :confused:
Robert01, Voy a incorporar las foumulas tuyas, pero recuerda que es para niños, no pueden ser dificiles de explicar.:D
Aqui he incorporado varios cambios, incluyendo la parte de geometria (no esta funcionando todavia, esta en la parte grafica):D .
Por favor revisenlo y me dicen que les parece.
Aqui esta:
http://rapidshare.com/files/3627076/...lices.zip.html
Saludos

He subido las modificaciones que comenté.
http://rapidshare.com/files/3701290/...Felices_v3.zip

He comentado las anteriores y al lado de cada una de ellas la nueva.
Me he permitido, dentro de la acrpeta donde está la aplicación crear un directorio de Images para ponerlas todas dentro.

Hola Caral. Estupenda idea y desarrollo, felicidades.

Yo no voy a colaborar con código ni sugerencias, porque creo que sólo repetiría cosas que ya te han escrito. Lo que sí puedo es hacerte una propuesta.

No sé si sabías que hace un año o así me propuse crear un estudio de diseño de juegos de computadora y videojuegos (es casi lo mismo pero no, ya que tiene sutiles diferencias). La idea es que este estudio diseñe juegos diferentes, que sean educativos, no sólo en cuestiones académicas, como las matemáticas, sino también en otras cosas como el compañerismo, la lógica, la violencia, la convivencia y otros valores similares. Actualmente el proyecto está parado, entre otras cosas porque se les cayó el servidor web donde lo hospedo, pero cuando esté de nuevo arriba tal vez haya un espacio donde poner este juego a disposición de todos, si es que no lo tienes ya. Todos los proyectos alojados en el sitio web son (en principio) de libre distribución, de todas formas, si estás interesado, ya te explicaré con más exactitud en qué consiste el proyecto.

Bueno, esta es mi propuesta; ya nos contarás. De todas formas, tiene muy buena pinta.

Caral:
envío lo que había hecho con modificaciones, aunque creo que no es para para un programa de niños puede servir para que saques alguna idea, le agregué un procedimiento para las cuatro operaciones básicas.

saludos

http://download.yousendit.com/BE7AB31D3237E3D6

Hola a todos
Neftali, Que decir :cool: , Cuando sea grande quiero ser asi :D , me parece exelecte el cambio, se nota la mano del maestro y me parece tambien muy bien las notas, ya que con estas se va viendo el cambio y las mejoras, la colocacion de la carpeta para los dibujos es exelente idea y ademas ordena mucho el proyecto.
Ñuño Martínez, Gracias por tu apoyo y la idea me parece genial, no creo tener toda la experiencia para aportar mucho a tu proyecto pero estoy contigo.
Con relacion a no aportar en este creo que si puedes, el desarroyo puede ser mejor si todos le ponemos algo, se que puedes y tienes la experiencia, me gustaria que colaboraras en este proyecto, piensalo.
Robert01, Me gusta mucho y lo voy a incorporar como biene, solo le voy a cambiar la parte grafica (Hacerla mas infantil), como indica acertadamente Seoane, sigue colaborando.
roman, No logro hacer lo que pides me da errores, me puedes hechar una mano.:D , mejor dos :D :D ., si quieres recoge el ultimo programa enviado por Neftali, que es la ultima actualizacion.
Nuevos proyectos por incorporar:
Conversiones:
Ejemplo: si tengo 10 Kg de azucar cuantos cg tengo.
si tengo 20 m de cuerda cuantos hm tengo
Fracciones:
Ejemplo:
1 + 3
-- -- = ?
4...8
Minimo comun Multiplo y Maximo comun divisor.
Bueno hay que hacer verdad.;) :D
Gracias por su apoyo al proyecto, que ya es de todos y espero sigan ayudando y se incorporen mas foristas.
Saludos

Hola a todos
Aqui estan incorporados los avances del programa.
http://rapidshare.com/files/3745194/...ces_4.zip.html
Espero que la parte grafica sea de su agrado, he modificado esta en el programa facilitado por Robert01.
Para verlo hacer click en figuras geometricas y en el combo formulas buscar avanzado.
Presionar boton Cub Delphi, por cierto talvez alguien se anime a hacer un (Acerca De) en vez del boton del Club Delphi.:rolleyes:
Espero os guste.
Saludos

Hola
Le agregué otros procedimientos a la dll para calcular área y perímetro de algunas figuras y unas funciones para MCM y MCD.
En el programa de prueba sola está escrito el código para calcular el círculo, pero está para MCM y MCD.
Es mejor que no usar el programa de prueba que envío sino incoporar el código para llamar las funciones y procedimientos de la dll desde el programa que escribiste.
Puedo hacer un archivo de ayuda en formato hlp pero necesito saber exactamente que poner y como.

http://download.yousendit.com/5F0AE8CD73BD467B

saludos

Hola, solo decir que me muero de curiocidad por ver el proyecto, pero este sitio no permite el uso de aceleradores y mi velocidad de internet es tan reducida e inestable que no me permite descargar por la vía convencional. Si lo pueden poner en otro lugar que permita aceleradores quizás pueda colaborar en algo.

Saludos Yusnerqui.

Hola Robert01
Me parece muy bien e interesante, sigo con el problema didactico, tengo que hacerlo infantil, bueno ya lo ire incorporando.
Hola yusnerqui
Me parece muy bien que quieras colaborar, no se en que otro sitio publicarlo, si me dan otra direccion, lo publico en esa, tal vez otras personas tengan el mismo problema.
Ya me contareis.
Saludos

Hola a todos
Primero saludarlos, ademas indicar a quienes estan en este proyecto los avances del mismo.
Ya esta funcionando todo lo relacionado con Figuras geometricas y conversiones.:)
Las pantallas de fracciones y mcm y mcd, esta hechas pero sin funcionar todavia, espero alguien pueda ayuadar en esto :rolleyes: , el concepto tiene que ser didactico, osea que las operaciones se tienen que desarrollar no sirve solo dar el resultado.
Hice una pantalla de inicio, espero os guste.
Aqui estan los avances:
http://rapidshare.com/files/4183006/...ces_5.zip.html
Con relacion a colocar el codigo en otro lado, estoy haciendo la gestion, ya comentare algo, por ahora lo coloco en el mismo sitio.
La verdad espero que mas foristas se incorporen en este proyecto :D :rolleyes:
Todos son bien venidos ;) :D
Saludos

Hola.
He subido aquí un ejemplo/programita para practicar la memoria; Es una implementación simple del juego de las parejas; Creo que puede ser útil para añadirlo (aunque no sea estrictamente de matemáticas); Tú mismo, decide si lo ves oportuno; Está hecho en un único formulario, así que debería ser fácil "añadirlo" al proyecto.

http://www.megaupload.com/?d=9CO3IA8Z

Un saludo.

EDITO: Link corregido

Hola Neftali
Me gusto mucho el juego y lo incorpore de inmediato al proyecto, cambie ciertas cosas, espero te guste, mas que nada la parte grafica.:D
La verdad pienso que entre el estudio, el juego es bueno y sano, me parece que es una exelente idea motivar con juegos, ojala podamos ampliar este proyecto con juegos asi se haria mas atractivo el uso del mismo, Ñuño Martínez, tiene una idea similar, tal vez, viendo esta le guste y quiera incorporarse a este proyecto :rolleyes: .
Creo que se podrian hacer juegos de este tipo y seguir incorporandolos.
Este proyecto puede terminar siendo un buen punto de partida para los foristas que esten empezando en Delphi, de aqui se pueden sacar muchas ideas.
Aqui dejo la ampliacion, espero les guste y sigan mejorandolo.
http://rapidshare.com/files/4283260/...ces_6.zip.html
El maestro seoane, me tiene abandonado, ni siquiera me a dado su opinion de como va la parte grafica:confused: :rolleyes: :D ,revisalo hombre.:D
El maestro Roman, bueno, espero.....que le de un empujon al proyecto.:D
Saludos

Hola a todos
Neftali: Entiendo muy bien la posicion del club y tambien entiendo que podria mal interpretarse, por eso lo he cambiado, agradezco tu sinceridad y la de los moderadores, si cometi un error me disculpan por favor.
Robert01: Claro que estoy usando esa maravilla de codigo, que crees, no desperdicio nada y menos lo bueno, ve el avance y te daras cuenta.

Bueno aqui dejo la siguiente parte, me he tardado un poco porque no hay manera de que cambie tantos IF ... Then, me tienen arto :D , si alguien lo modifica se lo agradeceria :) , asi aprendo.
Aqui esta, espero les guste como va, si no, pues modifiquenlo, que para eso es.
http://rapidshare.com/files/4651605/...ces_7.zip.html
Saludos y Gracias

Hola,

Nada de eso Caral. No se trata de ningún error. :)

Hola,

Algunas sencillas pero voluntariosas sugerencias sobre el programa:

- Creo que podría dejarse la ventana de la aplicación dispuesta para que pudiera modificarse tu tamaño. Entiendo que la interfaz juega un papel importante y que, bueno, puede parecer no necesario, pero, lo digo más que nada porque algunas "labels" del programa quedan "fuera" y no puedo, personalmente, verlas. Utilizo una resolución de pantalla de 1024x768 píxeles, por si ayuda saberlo.

- Las "labels" que sirven para dar acceso a los distintos apartados del programa, así como para "terminar" el mismo, podrían especificar mejor (en mi opinión) su uso si se cambiara su propiedad "Cursor" el valor "crDefault" por el valor "crHandPoint". De este modo se "verá" que puede hacerse "clic" en la etiqueta más claramente. En general, cualquier "label" que tuviera la capacidad de "ser clickeada" podría tener la propiedad "Cursor" como digo. Considérese. :D

- Lo dicho en primer lugar, es decir, que la ventana del programa pudiera redimensionarse, además de poder acaso arreglar (puesto que en Delphi, mediante la propiedad "Anchors" de ciertos componentes, puede conseguirse que estos "se adapten" a la pantalla disponible, digo, además de esto, podría servir para mover la ventana a gusto del consumidor por el escritorio, además de minimizarla, por ejemplo, que es algo que puede echarse en falta. O sea. ;)

- Tampoco vería yo demás utilizar las propiedades "Hint" de los componentes que fueran menester, de modo que dejando el cursor sobre ellos pudiera obtenerse cierta información acerca de su uso. Tratándose de niños (pero tampoco vendría mal para adultos, o sea niños grandes) estaría bien que el tiempo en que se muestra el "Hint". Y puede que tampoco se viera mal disminuir el tiempo que tarda en mostrarse el "Hint" de turno.

Código Delphi [-]begin Application.HintPause := 100; Application.HintHidePause := 5000; end;


- Viendo un poco más el programa, me doy cuenta de que algunos controles ya cuentan con su correspondiente "Hint". Así que acaso esto se esté preparando aún para el resto de controles y yo he hablado demás o antes de tiempo. Bueno. En cualquier caso ahí queda dicho, leñe, no lo voy a borrar ahora con el trabajo que me ha costado escribirlo. :D :D

- Las pestañas que se muestran en el apartado "Practica" del programa, siguiendo con el estilo del resto de controles, podrían tal vez mostrarse más anchas, utilizando para ello la propiedad "TabHeight" del componente "TPageControl". También sería posible cambiar el tamaño de la fuente, su color y el color de fondo de las propias pestañas. Aquí mismo Román da una explicación acerca de cómo podría conseguirse esto último.

- Lo mismo es que yo no lo he sabido encontrar, pero, no he visto la forma de recomenzar el juego "encuentra las parejas" una vez terminado. Digo una vez terminado "automáticamente", al menos.

- En el apartado de "Prácticas", concretamente en el subapartado que deja escoger una operación aritmética a llevar a cabo con dos números en lo que creo son componentes "TSpinEdit", en el primero de ellos (que corresponde al primer operando) puedes utilizar la "rueda" del ratón, pero, no así en el segundo, puesto que al hacer el intento de usarla el "foco" del usuario pasa al "TEdit" que muestra el resultado de la operación.

- En este último apartado mencionado cabe introducir caracteres alfabéticos, lo que hace que al tratar de llevar a cabo la comprobación de la operación aritmética se "levante" una excepción de "tipo de dato inválido". No sé si sería mejor impedir la entrada de este tipo de caracteres en los componentes en cuestión, o, de otro modo, tratar de capturar la excepción correspondiente y actuar luego en consecuencia: dejando los componentes susomentados "a cero", por ejemplo.

- Según voy probando el programa me doy cuenta de que sobra lo primero que he comentado de los "Hints" de ciertos componentes. Lo cierto es que estos pueden apreciarse en no pocos componentes, así que es de suponer que se pensara completar la tarea añadiendo estos a los que aún no cuenten con dicha propiedad "Hint" convenientemente especificada.

Y bueno... creo que basta por hoy, que es muy fácil hablar... cuando el trabajo lo van a hacer otros... :)

No sé si podré colaborar en algo, pero, en todo caso, alabo la intención del programa y en general el programa todo.

Hola a todos
Bueno dec, despues de estas sencillas y muy voluntariosas sugerencias :D , me he dado a la tarea de hacer lo que dices.
Ya esta todo, verdad que soy rapido,:D , ademas de algunas cosas que me faltaban, las fracciones ya funcionan, y he implementado lo de mayor que, igual que y menor que, todavia no esta funcionando, pero ya la idea general.
Dec: Te agradezco mucho los comentarios, ahunque estos sean tan pequeños :D :rolleyes: ajala puedas meterle mano al programa y agrandarlo con tus conocimientos.
Aqui estan los cambios quedo muy bien el codigo de Roman, es..... bueno que decir :D :eek: :rolleyes: :confused:
Aqui esta, revisenlo, por favor y metanle mano, que se le hace mucha falta.
http://rapidshare.com/files/4686222/...ces_8.zip.html
Saludos

Hola a todos
Ya practicamente esta terminado el programa, por lo menos asi parece.
Tengo varios problemas a ver si alguno de vosotros lo podeis solocionar.
En la pantalla principal, puse un animado, pero le falta impetuo, tal vez sepais como mejorarlo, o hacerlo diferente.
En la pantalla de mayor que, la ultima ficha, me sale aveces inorrecta la respuesta, no se porque.
Si podeis echarle un vistazo y una mano pues os lo agradeceria.
Aqui estan los avances.
http://rapidshare.com/files/5090267/...ces_9.zip.html
Espero os guste y me deis vuestra opinion.
Saludos

Tal vez hay que revisar la parte de sumar fracciones. Link.;)

Hola Neftali
La verdad, no estoy muy convencido ni de esta parte de fracciones, en el caso de las sumas con diferente denominador, ni tampoco en la seccion de mayor o menor que, tambien da algunos errores.
No se si te tomarias la molestia de ayudar en estas, te lo agradeceria.
Que te parece la pagina de entrada ?
Saludos

Algunas cosillas...
Al intentar entrar no me carga al proyecto debido a que mefaltan componentes. En concreto me pide TIntEdit y TFloatEdit. Siupongo que son TEdit especiales para estos tipos de datos.
No se si es porque usáis una versión más avanzada de Delphi (yo sigo con la 6) o porque son componentes externos. Si es lo segundo se deberían distribuir con los fuentes.

En cuanto a la página de entrada, me parece muy bien, no tanto así el pequeño lío que te has hecho para programarla.:D:D

Yo como primera opción hubiera optado con un GIF animado (supongo) o algo similar; De todas formas, 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; En lugar de ocultar unas y visualizar otras, puedes modificar el Top y el Left de las que tengas (el resultado final, seguro que es el mismo).

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

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