calculadora cientifica

[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

[roman]

Por favor, no escribas en mayúsculas.

Prueba poniendo la propiedad KeyPreview del formulario en true.

// Saludos

[jose.ignacio.ve]

otra opcion?? ya la puse en true pero aun sigue sin funciona!!! m equivocon en algun lado?

[roman]

Además de lo que te comenta Casimiro, acabo de borrar el mensaje que habías puesto en otro hilo. Tu mensaje ahí, tal como lo expresaste, no era más que una intrusión.

// Saludos

[ecfisa]

Hola José.

Si pusiste la propiedad KeyPreview del form igual a True como te sugirio roman, en el evento OnKeyPress del form el código que mostras arriba y el TLabel se llama VISOR, sólo me resta preguntarte... ¿ Está activado Bloq Num ?

Saludos.

[jose.ignacio.ve]

Empezado por ecfisa

Hola José.

Si pusiste la propiedad KeyPreview del form igual a True como te sugirio roman, en el evento OnKeyPress del form el código que mostras arriba y el TLabel se llama VISOR, sólo me resta preguntarte... ¿ Está activado Bloq Num ?

Saludos.

si puse la propiedad keypreview en true, pero programe en evento onkeydown.
tlebel se llama visor
bloq num es el del teclado verdad? yo tengo un notbook no tengo la opcion de bloq num..

[Ñuño Martínez]

Con la poca información que das, creo que puede ser un problema de diseño. Me explico:

Supongo que el componente "VISOR" es un TLabel o similar, ¿no? Si es así, es posible que bien el tamaño del propio componente, su posición o la configuración de "font" hagan que no se vea lo que se escribe.

Prueba a sustituir:

Código Delphi [-]
VISOR.Caption:= '0'

por

Código Delphi [-]
VISOR.Caption:= VISOR.Caption + '0'

y haz lo mismo con el resto de números.

Esto hará que, en lugar de sustituir el contenido ("Caption") del componente se vaya añadiendo.

Si aun así sigue sin funcionar, prueba a cambiar el tamaño del componente, su posición, y los tamaños y colores del texto (propiedad font).

[jose.ignacio.ve]

ya lo probe como m dijist!!1 pero aun nm funciona.!! necesitas q t pase algo asi veas bien cual puede ser la falla de diseño?? mi visor es un tlebel es dond muestra todos los numero y las operaciones q hago!!!

[Casimiro Notevi]

Empezado por jose.ignacio.ve

YO YA LO PROGRAME.. ESTE ES MI CODIGO
PERO N FUNCIONA NO HAC NADA

Hola, los compañeros te han aconsejado antes que leas nuestra guía de estilo, se ve claramente que no lo has hecho, te has saltado casi todas las normas.
No estaría mal que las leyeras, no tardarás ni 2 minutos.
Gracias por tu colaboración