Ver Mensaje Individual
  #2  
Antiguo 14-11-2006
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.561
Reputación: 25
egostar Va camino a la fama
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.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 14-11-2006 a las 23:45:39.
Responder Con Cita