Ask_For
Classes simples typées permettant une saisie simple de données.
Version: 1.1
Date: Le 6 août 1997
Rédaction: Jocelyn Houle
Direction: Jean Vaucher
Introduction
Il existe un Ask_For pour chaque type en Simula.
Ask_For_Char, Ask_For_Text,
Ask_For_Int, Ask_For_Real et
Ask_For_Bool. Leur fonctionnement est indentique: une
fenêtre apparaît au-dessus de la fenêtre parente et demande
une information typée à l'aide d'une phrase simple.
(Si l'on veut demander plus qu'une information, il serait peut-être
mieux de considérer les ItemWindows.)
Code
BEGIN
EXTERNAL CLASS WindowTools;
INSPECT NEW MainWindow("Ask_For") DO
BEGIN
SetSize(200, 150);
Show;
OutText(Ask_For_Text("Nom")); OutImage;
OutInt(Ask_For_Int("Age"), 0); OutImage;
OutFix(Ask_For_Real("Taille"), 2, 0); OutImage;
OutChar(Ask_For_Char("Une lettre, S.V.P.")); OutImage;
IF Ask_For_Bool("Etait-ce instructif?") THEN OutText("Oui")
ELSE OutText("Non");
END;
END;
On a tout simplement affiché directement les valeurs retournées
par chacun des Ask_for.
Informations sur les classes Ask_For
Chaque Ask_For retourne une valeur du type du
Ask_For.
Ainsi, on a:
- character procedure Ask_For_Char(question); text question;
- text procedure Ask_For_Text(question); text question;
- integer procedure Ask_For_Int(question); text question;
- real procedure Ask_For_Real(question); text question;
- boolean procedure Ask_For_Bool(question); text question;
où chaque fonction créera un ItemWindow
correspondant pour l'entrée et retournera la valeur
spécifiée par l'usager.
Exemples de programmes
[Retour à l'index de WindowTools...]