El programa de la calculadora es una de las tareas típicas de programación. Una aplicación de este tipo se puede implementar en casi cualquier lenguaje de programación. Uno de los lenguajes de programación más populares es Delphi, que se puede utilizar para escribir código de calculadora simple y eficiente.
Necesario
Entorno de programación Delphi
Instrucciones
Paso 1
Inicie el entorno de programación Delphi que está utilizando. Planifique la interfaz para su aplicación. Habrá 26 botones en el formulario, 10 de los cuales son responsables de números y el resto son funciones. Además, habrá un componente TPanel en el que se mostrará el resultado de la acción.
Paso 2
Agregue 4 variables al código que almacenará los números ingresados por el usuario y determinará el modo. Por ejemplo:
var
a, b, c: real; // números que ingresa el usuario
d: número entero; // acción de calculadora
Paso 3
Las variables creadas se pueden agregar tanto a las protegidas como a las privadas. Ahora maneje el evento OnClick para cada botón numérico. Para todos los dígitos, el código será idéntico:
procedimiento TForm1. Button1Click (Remitente: TObject);
comenzar
Panel1. Caption: = Panel1. Caption + 'número'
fin;
Reemplace "número" con el nombre del botón (si es el número 0, entonces Panel1. Caption + '0').
Paso 4
La variable d está en formato entero y contendrá el valor numérico correspondiente de cualquier acción. Si se va a realizar la multiplicación, puede establecer la acción en el valor 1, si la división - valor 2, si la suma - valor 3, etc. Para la acción de multiplicación, el código se verá así:
procedimiento TForm1. ButtonMultiplyClick (Sender: TObject); // multiplicar la acción
comenzar
a: = StrToFloat (Panel1. Caption); // después de presionar el botón, se guarda el valor de la variable a
d: = 1; // la variable de acción se establece en el valor correspondiente
Panel1. Caption: = '';
fin;
Paso 5
Realice operaciones similares para división (ButtonDivClick), suma (ButtonPlusClick), resta (ButtonMinusClick) y exponenciación (ButtonPowerClick).
Paso 6
Para procesar el valor `` = '', debe establecer una condición de caso y considerar cada acción a su vez:
procedimiento TForm1. ButtonClick (Remitente: TObject);
comenzar
caso d de
1: comenzar // si d = 1, es decir, se presiona el botón de multiplicar, se produce la acción correspondiente
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
fin;
2: comenzar
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Paso 7
Maneja la suma, resta y exponenciación de la misma manera. La calculadora está lista.
