Le programme de la calculatrice est l'une des tâches de programmation typiques. Une telle application peut être implémentée dans presque tous les langages de programmation. L'un des langages de programmation les plus populaires est Delphi, qui peut être utilisé pour écrire du code de calculatrice simple et efficace.
Nécessaire
Environnement de programmation Delphi
Instructions
Étape 1
Démarrez l'environnement de programmation Delphi que vous utilisez. Planifiez l'interface de votre application. Il y aura 26 boutons sur le formulaire, dont 10 sont responsables des nombres, et le reste sont des fonctions. De plus, il y aura un composant TPanel sur lequel le résultat de l'action sera affiché.
Étape 2
Ajoutez 4 variables au code qui stockeront les nombres entrés par l'utilisateur et détermineront le mode. Par exemple:
var
a, b, c: réel; // nombres saisis par l'utilisateur
d: entier; // action de la calculatrice
Étape 3
Les variables créées peuvent être ajoutées à la fois à protected et private. Gérez maintenant l'événement OnClick pour chaque bouton numérique. Pour tous les chiffres, le code sera identique:
procédure TForm1. Button1Click (Expéditeur: TObject);
commencer
Panneau1. Légende: = Panneau1. Légende + 'numéro'
finir;
Remplacez « numéro » par le nom du bouton (s'il s'agit du numéro 0, alors Panel1. Caption + « 0 »).
Étape 4
La variable d est au format entier et contiendra la valeur numérique correspondante de toute action. Si la multiplication sera effectuée, vous pouvez définir l'action sur la valeur 1, si division - valeur 2, si addition - valeur 3, etc. Pour l'action de multiplication, le code ressemblera à:
procédure TForm1. ButtonMultiplyClick (expéditeur: TObject); // multiplier l'action
commencer
a: = StrToFloat (Panel1. Caption); // après avoir appuyé sur le bouton, la valeur de la variable a est enregistrée
d: = 1; // la variable d'action est définie sur la valeur correspondante
Panneau1. Légende: = ' ';
finir;
Étape 5
Effectuez des opérations similaires pour la division (ButtonDivClick), l'addition (ButtonPlusClick), la soustraction (ButtonMinusClick) et l'exponentiation (ButtonPowerClick).
Étape 6
Pour traiter la valeur `` = '', vous devez faire une condition de cas et considérer chaque action à tour de rôle:
procédure TForm1. ButtonClick (expéditeur: TObject);
commencer
cas d de
1: commencer // si d = 1, c'est-à-dire que le bouton multiplier est enfoncé, alors l'action correspondante se produit
b: = StrToFloat (Panel1. Caption);
c: = a * b;
Panel1. Caption: = FloatToStr (c);
finir;
2: commencer
a: = StrToFloat (Panel1. Caption);
c: = a/b;
Panel1. Caption: = FloatToStr (c);
Étape 7
Gérez l'addition, la soustraction et l'exponentiation de la même manière. La calculatrice est prête.
