Programa de Matematicas

[[egostar]]

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.

[[Caral]]

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. ojala.
Saludos y gracias nuevamente