Exercice 1 : PREMIERS PAS

BUT : Partir à la découverte du GUI Builder en créant une fenêtre simple et en affectant un événement à une méthode. Comprendre l'ajout des librairies utiles lors de la compilation dans Object Ada.

1/ Préparation du projet

Avant toute chose, créez un dossier où vous sauverez votre projet et vos fichiers. Nommez le Exercice_GUI.

Ouvrez le GUI Builder : […\Aonix\ObjectAda\guibuild\guibuild.exe] et créez un projet : File => New Project.

La création d’un projet engendre l’ouverture automatique d’une Main Window.

Sauvez immédiatement ce projet : File => Save Project.

Vous constatez que la fenêtre est un fichier .ada. Chaque fenêtre ajoutée générera donc un fichier .ada.

 

Sauvez le projet sous […\ Exercice_GUI \Premier_Pas.gbp]

Sauvez la fenêtre (File => Save File) sous […\ Exercice_GUI \Principale.ada]

 

Visualisez votre projet :

Ouvrez le Project Manager Menu View => Project Manager ou F4.

Sélectionnez l’onglet Window.

Vous voyez l’arbre du Project Manager constitué pour le moment uniquement de votre fenêtre Principale. Arrangez vos trois fenêtres afin de pouvoir les visualiser correctement.

 

Notez que, dans le Menu Options => Project Options, dans la partie Stay-on-Top, vous pouvez contraindre les fenêtres de travail à rester au premier plan.

Vous laissez de côté votre projet et ouvrez Object Ada : […\Aonix\ObjectAda\bin\Oa.exe]

Créez un projet : File => New puis Project.

Nommez le Etape1.prj toujours sous votre dossier […\Exercice_GUI\].

Vous ajoutez votre fenêtre (Principale) au projet :

Sélectionnez le fichier (qui se trouve dans […\Exercice_GUI\] ) puis cliquez sur Add.

Vous pouvez maintenant fermer cette boîte de dialogue : bouton Close.

2/ Ajout des librairies

Il vous reste à ajouter les librairies nécessaires au GUI Builder :

Menu Project => Settings , onglet Search.

Dans la section Normal du type de lien devrait déjà figurer […\aonix\objectada\lib]

Ajoutez à l’aide du bouton Add puis de […]

[…\Aonix\ObjectAda\guibuild\lib]

[…\Aonix\ObjectAda\win32ada\Binding\lib]

Ajoutez aussi dans la section Linker Only du type de lien :

[…\Aonix\ObjectAda\apilib]

Fig. 1.1 - Voici à quoi devrait ressembler la fenêtre Project Settings du menu Project après l'ajout des librairies.

Choisissez encore sous l’onglet Link dans le menu déroulant Application type le type Windows puisque vous créez un programme avec une interface graphique, et que vous ne désirez pas une console DOS en arrière-plan.

 

Vous voilà prêt à compiler. Cela dit vous n’avez pas encore ajouté d’événement à votre fenêtre.

3/ Création d'un événement et ajout d'une méthode

Enregistrez votre projet et revenez au GUI Builder.

 

Vous allez ajouter un titre à votre page : Icône Label Control.

Vous tracez un rectangle de grandeur raisonnable avec la souris.

L’objet Label1 a été ajouté dans l’arbre Project Manager, sous l’onglet Window.

Vous vérifiez que le Label est toujours sélectionné et vous cliquez sur l’onglet Properties du Project Manager. Les propriétés de l’objet sont maintenant affichées. Vous voyez dans le menu déroulant que ce sont bien les propriétés de Window1.Label1 qui sont affichées. Vous pourrez travailler sur les autres grâce à ce menu déroulant.

 

Changez le nom de cet objet :

Sous Name écrivez Titre puis appuyez sur return ou cliquez sur l’objet.

Ecrivez maintenant votre titre : sous Caption écrivez Mon application GUI Builder puis appuyez sur return ou cliquez sur l’objet.

Sous FontName choisissez Times New Roman.

Sous FontSize choisissez 18.

Sous Alignment choisissez Center.

Sous ForeColor choisissez une couleur bleue.

Dimensionnez la taille de votre objet afin que tout apparaisse sur une seule ligne et positionnez-le au haut de la fenêtre.

Fig. 1.2 - La fenêtre principale et la fenêtre du Project Manager

N’oubliez pas de sauver de temps à autres à l’aide de l’icône standard de sauvegarde.

Ajoutez un bouton : Icône Bouton Control.

Tracez un rectangle de grandeur raisonnable avec la souris.

L’objet Bouton1 a été ajouté dans l’arbre Project Manager onglet Window.

Changez le nom de cet objet dans les propriétés de ce nouvel objet.

Sous Name écrivez Bouton_Quitter puis appuyez sur return ou cliquez sur l’objet.

Notez le texte inscrit sur le bouton.

Sous Caption écrivez Quitter puis appuyez sur return ou cliquez sur l’objet

Sous FontName choisissez Times New Roman (pour être cohérent).

Sous FontSize choisissez 12.

 

Créez une méthode pour un événement de l’objet Bouton_Quitter : View => Code Editor ou icône Code Editor ou F5 ou Project Manager onglet Window bouton Code (l’objet Bouton_Quitter doit être sélectionné sur la fenêtre ou sur l’arbre du Project Manager).

Vous voyez sous Object que c’est bien votre bouton Window1.Bouton_Quitter sur lequel vous allez travailler. Vous pourrez travailler sur les autres grâce à ce menu déroulant.

Dans le menu déroulant Code, choisissez l’événement Click.

Ajoutez la commande " Gb.endapplication; " pour quitter l’application (sans oublier les commentaires).

Ce qui vous donne :

procedure Bouton_Quitter_Click is

begin

-- Fin de l'application

Gb.endapplication;

end Bouton_Quitter_Click;

Changez le nom de l’entête de votre fenêtre : sélectionnez dans l’arbre du Project Manager la fenêtre Window1.Form.

Dans les propriétés sous Caption écrivez Accueil.

 

Voilà vous avez fini : sauvegardez et retournez sous Object Ada.

 

Compiler, construisez l’exécutable et …exécutez !

Fig. 1.3 - Et voilà, félicitations, votre premier projet est terminé !