calculadora cientifica

[jose.ignacio.ve]

HOLA soy nuevo..
necesito si alguien m puede ayudar con una calculadora cientifia en delphi... necesito un codigo para hacer conversion de sistemas.. si alguien m puede ayudar gracias..

[jose.ignacio.ve]

holaa.. me ayudo mucho este tema.. pero ahora m gustaria q m ayuden con la conversion a otros sistemas.. m pueden ayudar?

[[mightydragonlor]]

La Unit Math contiene todo este tipo de funciones, revisala, creo que te servirá mucho.

Saludos.

[jose.ignacio.ve]

siii sii la uso a la unit math.. pero t explicoo..

Código Delphi [-]
procedure TForm1.rgsClick(Sender: TObject);
var
r:string ;
a:integer;
begin

  case rgs.ItemIndex of
    0: begin
     visor.Caption:=divi_reit(visor.Caption,2);
     bp:=2;
    end;
    1: begin
     visor.Caption:=divi_reit(visor.Caption,8);
     bp:=8;
    end;
    2: begin
        visor.Caption:=divi_reit(visor.Caption,10);
        bp:=10;
    end;
    3:begin
     visor.Caption:=divi_reit(visor.Caption,16);
     bp:=16;
    end;
  end;

mi problema es que de base 10 a otra base sii esta bien m la convierte.. pero cuando quiero ir d otra base a la 10 no la convierte
tengo esta function

Código Delphi [-]
function tform1.su_pond( n:string ; base: integer): string ;
var
  r: single;
  i,s:integer;

begin
  r:=0;
  s:=0;
  for i := 1 to length(n) do
    begin
    r:=power(base,i);
    s:=(strtoint(visor.caption[i])* trunc(r))+s;
    end;
    result:=inttostr(s);
end;

que supuestamente pasa de cualquier base a base 10
que es suma ponderada.. el problem es q no se cuando llamarla.. m podrias ayudar??

[ecfisa]

Hola jose.ignacio.ve y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

El foro Trucos no es para consultas sino para aportar trucos de programación, moví tu hilo al foro varios por ser este el adecuado al contenido del mensaje.

Aprovecho también a transcribirte el punto 11 de la guía de estilo:

No solicites que te respondan por correo en privado

Los problemas deben ser un proceso público y transparente, durante el cual un primer intento de respuesta puede y debería corregirse si alguien con más conocimientos percibe que la respuesta es incompleta o incorrecta. Además quién te responde obtiene parte de su recompensa al verse que son competentes y útiles a nuestra comunidad.

Cuando pides una respuesta privada, estás interrumpiendo tanto el proceso como la recompensa. No lo hagas.

(Quité la dirección de correo de tu primer mensaje)



Por último para darle más legibilidad, cuando incluyas código en tus mensajes utiliza TAG's, te pongo una imágen que explica el uso:

(ya los agregué a tu mensaje anterior)


Saludos y gracias por tu colaboración.

[jose.ignacio.ve]

Hola Alguien Me Puede Ayudar O Me Pasa Un Tutorial.. Para Programar La Calculadora Para Que Tome El Teclado Numerico!! Nc Si M Explico?

[ecfisa]

Hola José.

Busca en la ayuda de Delphi por: Virtual key codes y también te será de ayuda este [ hilo ].

Saludos.

[jose.ignacio.ve]

tendrias algun codigo de muestra?? porq no me doy una idea.. algun codigo que capture los numero o algo asi!!!

[ecfisa]

Empezado por jose.ignacio.ve

tendrias algun codigo de muestra?? porq no me doy una idea.. algun codigo que capture los numero o algo asi!!!

Hola.

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
    VK_NUMPAD0  : // Tecla 0 del Keypad
    VK_NUMPAD1  :
    ...
    VK_NUMPAD9  :  // Tecla 9 del Keypad
    VK_MULTIPLY :  // Tecla multiplicación (numeric keypad)
    VK_ADD      : // Tecla suma (numeric keypad)
    VK_SEPARATOR:  // Tecla separador (numeric keypad)
    VK_SUBTRACT  : // Tecla resta (numeric keypad)
    VK_DECIMAL  : // Tecla decimal (numeric keypad)
    VK_DIVIDE   : // Tecla división (numeric keypad)
  end;
end;

Saludos.

[jose.ignacio.ve]

oseaa tengo que ir al evento onkeydown del formulario y programar alli.. que diferencia ahy del evento onkeypress??

[jose.ignacio.ve]

YO YA LO PROGRAME.. ESTE ES MI CODIGO

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
    VK_NUMPAD0  : VISOR.Caption:= '0'; // Tecla 0 del Keypad
    VK_NUMPAD1  : VISOR.Caption:= '1';
    VK_NUMPAD2  : VISOR.Caption:= '2';
    VK_NUMPAD3  : VISOR.Caption:= '3';
    VK_NUMPAD4  : VISOR.Caption:= '4';
    VK_NUMPAD5  : VISOR.Caption:= '5';
    VK_NUMPAD6  : VISOR.Caption:= '6';
    VK_NUMPAD7  : VISOR.Caption:= '7';
    VK_NUMPAD8  : VISOR.Caption:= '8';
    VK_NUMPAD9  :  VISOR.CAPTION:= '9';// Tecla 9 del Keypad
    //VK_MULTIPLY :  // Tecla multiplicación (numeric keypad)
    //VK_ADD      : // Tecla suma (numeric keypad)
    //VK_SEPARATOR:  // Tecla separador (numeric keypad)
    //VK_SUBTRACT  : // Tecla resta (numeric keypad)
    //VK_DECIMAL  : // Tecla decimal (numeric keypad)
    //VK_DIVIDE   : // Tecla división (numeric keypad)
  end;
end;

PERO N FUNCIONA NO HAC NADA

[ecfisa]

Hola de nuevo.

Me acorde que en el FTP de Club Delphi tenemos material al respecto, mira también esto: CalcExpress

Saludos.

[Nelsonya]

begin
case Key of
VK_NUMPAD0 : VISOR.Caption:= '0'; // Tecla 0 del Keypad
VK_NUMPAD1 : VISOR.Caption:= '1';
VK_NUMPAD2 : VISOR.Caption:= '2';
VK_NUMPAD3 : VISOR.Caption:= '3';
VK_NUMPAD4 : VISOR.Caption:= '4';
VK_NUMPAD5 : VISOR.Caption:= '5';
VK_NUMPAD6 : VISOR.Caption:= '6';
VK_NUMPAD7 : VISOR.Caption:= '7';
VK_NUMPAD8 : VISOR.Caption:= '8';
VK_NUMPAD9 : VISOR.CAPTION:= '9';// Tecla 9 del Keypad
//VK_MULTIPLY : // Tecla multiplicación (numeric keypad)
//VK_ADD : // Tecla suma (numeric keypad)
//VK_SEPARATOR: // Tecla separador (numeric keypad)
//VK_SUBTRACT : // Tecla resta (numeric keypad)
//VK_DECIMAL : // Tecla decimal (numeric keypad)
//VK_DIVIDE : // Tecla división (numeric keypad)
end;

[Casimiro Notevi]

Empezado por Nelsonya

..

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Y recuerda poner los tags al código fuente, ejemplo:



Gracias