CALCULATRICE WINDOWS
Alextr2003fr
Messages postés
12
Date d'inscription
samedi 30 août 2003
Statut
Membre
Dernière intervention
12 mai 2006
-
17 nov. 2003 à 19:49
Gwennie28 Messages postés 23 Date d'inscription jeudi 13 avril 2006 Statut Membre Dernière intervention 24 mai 2006 - 13 avril 2006 à 23:53
Gwennie28 Messages postés 23 Date d'inscription jeudi 13 avril 2006 Statut Membre Dernière intervention 24 mai 2006 - 13 avril 2006 à 23:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/17999-calculatrice-windows
https://codes-sources.commentcamarche.net/source/17999-calculatrice-windows
13 avril 2006 à 23:53
Mais j'ai une question,je n'arrive pas à comprendre la procedure de controleAffichage et la procedure de intialise? Comment arriver vous a le rejouter?
Merci pr votre aide
20 nov. 2003 à 17:31
Une astuce en passant :
Tes procédures contrôlant l'appui sur les boutons 0 à 9 peuvent
être remplacées par une seule :
procedure TForm1.Button0Click(Sender: TObject);
begin
controleAffichage();
Ecran.text:=concat(Ecran.Text,(Sender as TButton).Caption);
end;
je m'explique : la valeur attribuée au bouton se trouve dans sa
propriété Caption, le paramètre Sender de la procédure pointe sur le
composant appelant, ce qui permet de récupérer le contenu de la propriété
voulue.
On écrit (Sender as TButton) pour préciser le type de composant, pour
pouvoir trouver Caption à la bonne place.
Donc les procédures ...Button1Click à ...Button9Click peuvent être
hardiment supprimées.
Mais il faut, au niveau de l'évènement OnClick de chaque bouton, le
faire pointer sur Button0Click.
On aurait aurait également pu utiliser la propriété Tag en y mettant
la valeur du boutton, mais au niveau du programme, cela obligeait
à convertir cette valeur numérique en alpha.
N'oublions pas qu'un bon programmeur est un programmeur fainéant...
enfin...c'est mon avis et je le partage, depuis 33 ans.
PS. J'espère avoir été assez clair dans mes explicures, sinon, faut
pas hésiter... :-D
17 nov. 2003 à 19:49