Ressources
Chaque programme Interface a acces a un certain nombre d objets, appeles ressources. Ces ressources contiennent un ensemble d images utilisees pour les effets d arriere-plan, ainsi qu une liste de messages pour les titres ou boutons interactifs. Un editeur de ressources se trouve sur la disquette Accessory, qui peut etre installe dans une banque memoire permanente pour un usage immediat. Par defaut, l interface utilise les ressources internes attribuees a l editeur, permettant d utiliser directement toute une gamme d images utiles dans vos programmes. Les ressources sont detaillees dans le Chapitre 9.4.
Appeler un programme Interface AMOS Professional
DIALOG BOX
fonction : afficher une boite de dialogue a l ecran
bouton = Dialog Box(Interface$)
bouton = Dialog Box(Interface$,valeur,parametre$,x,y)
Pour afficher une boite de dialogue (ou "requester"), la fonction DIALOG BOX est utilisee pour executer les commandes Interface provenant de la chaine Interface$. Cette boite de dialogue attend qu un bouton soit selectionne ou qu un delai specifique soit atteint. Le systeme retourne ensuite au programme principal AMOS Professional en renvoyant la valeur du bouton. Il est possible de quitter la boite de dialogue a tout moment en appuyant sur [Ctrl]+[C]. Dans ce cas, une valeur de zero est retournee.
Le parametre Interface$ est une chaine AMOS Professional standard, contenant le programme Interface. Cette chaine peut etre suivie par plusieurs parametres optionnels :
- Le parametre valeur est charge directement dans le tableau interne de variables. Il peut ensuite etre utilise via la fonction VA dans la boite de dialogue.
- Le parametre$ est une chaine optionnelle transmise au programme Interface. Elle est stockee dans l element 1 du tableau de variables (1 VA).
- Enfin, les coordonnees x,y peuvent etre precisees pour positionner la boite de dialogue sur l ecran. Ces coordonnees peuvent etre ignorees si le programme Interface contient une commande BAse (expliquee plus tard).
Voici quelques exemples :
E> A$=A$+"SetVar 1,'The answer is', set variable one to a message" A$=A$+"SetVar0,42; variable zero is loaded with forty two" A$=A$+"PRint 0,100,1 VA,2; print the message" A$=A$+"PRint 0,110,0 VA #,2; print the answer" A$=A$+"EXit; leave the interface program" Print Dialog Box(A$) B$=B$+"PRint 0,0,1 VA,2; PRint 0,10,0 VA #,2; EXit;" D=Dialog Box(B$,42,"The Answer") D=Dialog Box(B$,42,"The Answer",100,100)