une Base Solide en Programmation

C++/Java/Delphi/Assembleur
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 Second programme : l'addition

Aller en bas 
AuteurMessage
SERSSERI ABDELHAK
Administrateur
Administrateur
avatar

Masculin
Nombre de messages : 92
Age : 30
Localisation : Chlef
Loisirs : aaa
Date d'inscription : 14/03/2007

MessageSujet: Second programme : l'addition   Dim 18 Mar - 20:54

Nous allons faire une application capable de faire une addition !

Font




COMPOSITION DE LA FICHE:

· Notre application comprend un bouton. Placez un bouton sur la fiche

· Modifier sa propriété caption en remplaçant "Button1" par "=".

· 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.
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, double cliquez sur le bouton pour
faire ouvrir votre fenêtre de code et faire écrire par Delphi :
Code:

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 :
Code:
N:=StrToInt(MonText); // N contiendra alors la valeur de MonText mais transformer 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:
Code:

procedure TForm1.Button1Click(Sender: TObject);
Var N1,N2:integer; // On déclare ici que N1 et N2 sont des variables 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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://hbpcclub.forumactif.fr
 
Second programme : l'addition
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Intégrer une page HTML dans son programme ?
» Bloquer son programme au bout de X joures ??
» Tray Programme dans la zone de notification 'a cote de lhorl
» tester un programme et pouvoir l’arrêter.
» Programme TV

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
une Base Solide en Programmation :: HBPCCLUB ACADEMY :: delphi-
Sauter vers: