Fermer Débutter en Delphi: mon second programme (addition)

MON SECOND PROGRAMME
L'ADDITION

 

dernière mise à jour le : dimanche 13 février 2005

Retour au sommaire

Ouvrez Delphi. Si votre précédent programme s'est chargé, dans le menu de Delphi, faire Fichier / Nouvelle application.

Nous allons faire une application capable de faire une addition !

 

COMPOSITION DE LA FICHE:

  • Notre application comprend un bouton. Placez un bouton sur la fiche (si vous ne savez pas comment faire : voir la leçon 1)

  • Modifier sa propriété caption en remplaçant "Button1" par "=". (voir la leçon 1)

  • Modifier la taille de la police de caractère du "=" en modifiant la propriété Font de notre bouton (cliquez sur le bouton pour être sur que l'inspecteur d'objets se rapporte à notre bouton puis cliquez sur les ... du bouton situé à droite de la propriété Font. modifiez la taille (par exemple 18) et mettez le en gras.

  • Nous allons placer sur notre fiche les deux Edits qui nous serviront à rentrer les nombres ainsi que l'Edit qui servira à obtenir le résultat. Pour cela, de la même façon que vous avez placé le bouton sur la fiche, vous allez cliquer dans la barre des boutons sur le bouton qui correspond au TEdit (celui qui est placé juste à droite du A dans ce morceau de capture écran : . Puis cliquez sur la fiche pour le positionner. Vous pouvez le déplacer à l'aide de la souris. Refaire de même pour les deux autres Edits.

  • Nous allons maintenant placer le signe + entre les deux premiers Edits que nous avons placés. Pour cela, nous allons utiliser un composant Label . Le composant label est le A de ce morceau de capture écran : . Opérez de la même façon que pour les Edits pour placer un label sur votre fiche.

  • Modifiez sa propriété Caption pour remplacer "Label1" par +

  • Modifiez sa propriété Font : Modifiez la taille (par exemple 18) et mettez le en gras.

  • Enfin, dans notre exemple on va placer un titre : "L'addition". Pour cela, placez un autre Label et modifier ses propriétés Caption et Font.

  • Votre fiche doit ressembler à (à la différence près qu'au lieu d'avoir 2 2 et 4 vous devez avoir respectivement Edit1, Edit2 et Edit3).

 

AFFECTATION DU CODE A L'EVENEMENT OnClick DE NOTRE BOUTON:

L'événement OnClick étant l'événement par défaut des TButton, au lieu d'opérer comme dans la leçon 1, double cliquez sur le bouton pour

faire ouvrir votre fenêtre de code et faire écrire par Delphi :

procedure TForm1.Button1Click(Sender: TObject); 
begin

end;

Vous allez placer entre le begin et le end les actions que vous souhaitez voir effectuer lorsque l'événement OnClick de votre bouton Button1 sera déclenché (lorsque l'on cliquera sur le bouton).

Ce qui apparaît dans les Edits (par défaut Edit suivi d'un numéro) est la valeur de leur propriété Text. Essayez grâce à l'inspecteur d'objet de modifier leurs valeurs et vous verrez immédiatement le résultat sur l'Edit de votre fiche (procédez de la même façon que celle utilisée pour modifier la propriété caption de votre label ). Par contre, cette valeur est un texte (string) qu'il va falloir transformer en nombre pour pouvoir opérer une addition sur cette valeur.

  • Pour transformer un texte (string) en nombre entier (integer), nous allons utiliser la fonction StrToInt (pour String To Integer). Si MonText est un texte de type string et N un nombre entier (integer) nous avons le droit d'écrire :

N:=StrToInt(MonText); // N contiendra alors la valeur de MonText
                      //mais transformée en integer.
(notez l'utilisation de := et non = tout court).

  • Il existe la fonction inverse qui transforme un entier (integer) en un texte (string) :

MonText:=IntToStr(N);

 

Complétez votre procédure TForm1.Button1Click de la façon suivante:

procedure TForm1.Button1Click(Sender: TObject);
Var
  N1:integer; // On déclare ici que N1 et N2 sont des variables 
              // de type integer (entier)
  N2:integer; // C'est à dire que N1 et N2 contiendront des données 
              // de type integer (entier)
  Resultat:integer; // même remarque que pour N1 et N2
begin
  N1:=StrToInt(Edit1.Text);// on stocke dans N1 la valeur contenu dans 
                           //la propriété Text de Label1
                           // après l'avoir transformer en integer
  N2:=StrToInt(Edit2.Text);
  Resultat:=N1+N2; // calcul du résultat
  Edit3.Text:=IntToStr(Resultat);//On stocke la valeur du résultat dans 
                                // la propriété Text de l'Edit3
                                // après l'avoir transformée en chaîne 
                                // de caractères (string)  
end;

Voilà : lancez votre programme par F9 et testez : normalement 2+2=4 !

 

 

Retour au sommaire