calculadora Convergente de numero

[Cartel]

Empezado por olbeup

Ahora si que yo ni nadie te entiende, y partimos desde tu primer mensaje, te recuerdo:

¿Esto son los valores que tiene que tomar?, ¿entonces cual es error que hemos cometido según tú?, ¿cual de los número del 1..9 esta mal?



Perdona, pero si enriqueces tu pregunta con algún ejemplo, la respuesta sería sabrosa y abundante

Resulta ahora que el Edit2 si escribes 1 sale 0.5, pues no vale 0.2 ó si escribes 2 sale 10, pues no vale 0.4, según datos proporcionados por tí, lo que has puesto, eso si es erronero

Un saludo.

jajaja es q es dificil de explicar pero bueno aqui va

en el idit 2 solo voy a usar los numeros 1, 2, 3, 4, 5, 6, 7, 8, 9

pero quiero que ese 1 = 1.0625
el 2 = 1.375
3 = 1.875
4 = 2.625

eso son los valeros los del 5 al 9 son otros pero para no ponerlos todos

tonces cuando yo ponga en el edit2 el 1 no me este mutiplicando el edit x el 1 sino me este multiplicanco el edit 1 con 1.0625

y cuando ponga el 2 no me este mutiplicando el edit x el 2 sino me este multiplicanco el edit 1 con 1.375

eso es lo que necesito y si me dicen pero xq no colocas el 1.0625 en ves del 1 xD es xq asi no me serviria de nada la aplicacion y pa eso usaria una calculadora

[ecfisa]

pero quiero que ese 1 = 1.0625
el 2 = 1.375
3 = 1.875
4 = 2.625

Hola.

Entonces según entiendo, la función del valor de Edit2 sería la de un índice para acceder a otro valor.

Podrías hacer algo así:

Código Delphi [-]
...
implentation
var
  TS: TStrings;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TS:= TStringList.Create;
  TS.Add('1,0625');  
  TS.Add('1,375');
  TS.Add('1,875');
  TS.Add('2,625'); 
  // el resto de los valores
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.Text:= FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(TS[StrToInt(Edit2.Text)-1]));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TS.Free;
end;

Saludos.

[olbeup]

Espero que esto se lo que estas buscando

Código Delphi [-]
...
var
  EQ: Extended;     // Valor Equivalente 1..9
  E1, E2: Integer;  // Edit, 1..2
  E3: Extended;     // Edit3
begin
  E1 := StrToInt(Edit1.Text);
  E2 := StrToInt(Edit2.Text);
  case E2 of
    1: EQ := 1.0625;
    2: EQ := 1.375;
    3: EQ := 1.875;
    4: EQ := 2.625;
    5: EQ := 3.625;
    6: EQ := 4.875;
    7: EQ := 6.375;
    8: EQ := 8.125;
    9: EQ := 10.125;
  end;

  E3 := (E1 * EQ);

  Edit3.Text := FormatFloat('0.0000', E3);
end;

Un saludo.