El programa calculadora és una de les tasques típiques de programació. Aquesta aplicació es pot implementar en gairebé qualsevol llenguatge de programació. Un dels llenguatges de programació més populars és Delphi, que es pot utilitzar per escriure codi de calculadora senzill i eficient.
Necessari
Entorn de programació Delphi
Instruccions
Pas 1
Inicieu l'entorn de programació Delphi que esteu utilitzant. Planifiqueu la interfície de la vostra aplicació. Hi haurà 26 botons al formulari, 10 dels quals s’encarreguen dels números i la resta de funcions. A més, hi haurà un component TPanel on es mostrarà el resultat de l'acció.
Pas 2
Afegiu 4 variables al codi que emmagatzemarà els números introduïts per l'usuari i determinarà el mode. Per exemple:
var
a, b, c: real; // números que introdueix l'usuari
d: enter; // acció calculadora
Pas 3
Les variables creades es poden afegir tant a les protegides com a les privades. Ara gestioneu l'esdeveniment OnClick per a cada botó numèric. Per a tots els dígits, el codi serà idèntic:
procediment TForm1. Button1Click (Remitent: TObject);
començar
Panel1. Caption: = Panel1. Caption + 'número'
final;
Substituïu "número" pel nom del botó (si és el número 0, llavors Panel1. Caption + '0').
Pas 4
La variable d té un format enter i contindrà el valor numèric corresponent de qualsevol acció. Si es realitzarà la multiplicació, podeu establir l'acció com a valor 1, si divisió - valor 2, si suma - valor 3, etc. Per a l'acció de multiplicació, el codi serà:
procediment TForm1. ButtonMultiplyClick (Remitent: TObject); // multiplicar l’acció
començar
a: = StrToFloat (Panel1. Caption); // després de prémer el botó, es desa el valor de la variable a
d: = 1; // La variable d'acció s'estableix al valor corresponent
Tauler 1. Llegenda: = ;
final;
Pas 5
Feu operacions similars per a la divisió (ButtonDivClick), l'addició (ButtonPlusClick), la resta (ButtonMinusClick) i l'expansió (ButtonPowerClick).
Pas 6
Per processar el valor "=", heu de fer una condició de cas i considerar cada acció al seu torn:
procediment TForm1. ButtonClick (Remitent: TObject);
començar
cas d de
1: començar // si d = 1, és a dir, que es prem el botó de multiplicar, es produeix l'acció corresponent
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
final;
2: començar
a: = StrToFloat (Panel1. Caption);
c: = a / b;
Panel1. Caption: = FloatToStr (c);
Pas 7
Manejar la suma, la resta i l'exponentiació de la mateixa manera. La calculadora està a punt.
