Premier Programme
From PilibWiki
Retour au sommaire | | Section Suivante : Les Objets
Afin de commencer sur de bonnes bases, il est normal de commencer par quelque chose de simple. Nous allons donc tout d’abord créer une simple fenêtre et essayer de la compiler sans bavures.
Pour commencer, lancez votre éditeur de texte préféré, et copiez y ce qui suit, les explications suivent après : (ce code est similaire celui donné dans la documentation originale de PILIB).
(Remarque : les lignes suivient d'un point d'exclamation sont essentielles, elles devront toujours paraitre dans vos futures programmes avec PILIB.)
program example
use pimod ! (1)
implicit none
integer(kind=kptr) :: Win,Text,iclos
call piinit ! (2)
call gkwindow(c('pilib example'), 25,0,Win,iclos) ! (3)
call gktext(c('Hello World'),Text) ! (4)
call gkput(0,0,-1,-1,Win,Text) ! (5)
call gkshow(Win) ! (6)
do while(iclos.eq.0) ! (7)
call gkproc !
end do !
call gkdestroy(Win) ! (8)
end program example
Explications :
Tout d'abord, nous devons appeler le module Fortran 9x pilib nommé pimod. Ici, il s'agit de la commande (1). Veuillez noter que les fichiers modules vont êtres installés dans le répertoire « include » de votre système. (e.g. /usr/local/include on Unix/Linux). Vous devez le spécifier a votre compilateur ou pour certains compilateurs, copier ou linker les fichiers dans votre répertoire source. Ensuite, les librairies vont doivent être initialisée (2), cette étape est nécessaire pour l'utilisation des fonctions de librairies. La suite est nettement plus intuitive :
On crée tout d'abord une fenêtre GTK+ avec gkwindow (3) que l'on nomme 'ihwin', et qui affiche 'Pilib example' dans l'entête. Pour plus d'informations sur la création des fenêtres, veuillez vous referez la section « Fenêtres ».
Veuillez juste noter (au passage) que nous utilisons des instruction de translation : c('pilib example') (passage d’un type texte fortran en type texte c) et ihwin (le terme ih avant chaque nom est essentiel pour passer en integer).
Cela est du au fait qu'une fenêtre GTK+ n'est pas un objet de fortran, mais de GTK+. « Sans blagues me direz vous », mais c'est ainsi, et il faut donc transformer notre texte de fortran en type(string). Cette opération est très simple, ne vous inquiétez pas. Pour plus d'informations, reportez vous la section « Conversions ».
Ensuite, nous créons un objet texte, un gktext, nommé 'ihtext' et de valeur 'hello world' (4), et nous l'ajoutons dans la fenêtre créé précédemment. (5)
Remarquez que le système PILIB est très simple, puisqu'il utilise la hiérarchie pour classer ses objets. Je m'explique : vous voulez afficher un texte et un bouton dans une fenêtre. Vous créez votre fenêtre, votre bouton, votre texte, et un container. Vous mettez le texte et le bouton dans le container, puis le container dans la fenêtre. La fenêtre est donc le père du container, qui est lui même le père du bouton et du texte. Attention : la destruction d'un père entraîne généralement la destruction de ses fils. Laissons là les histoires de familles, pour plus de détails, referez vous a la section « Organiser sa fenêtre ».
Donc, pour en revenir au programme, nous ajoutons le texte dans la fenêtre avec la commande gtkput.(5)
Pour finir, nous affichons la fenêtre avec gkshow (6), et dans le but de rafraîchir l'affichage, nous ajoutons une boucle (7). N'oubliez pas cette boucle en fin de votre programme !!.
Enfin, une fois que l'utilisateur clique sur fermer, on tue la fenêtre et ses enfants avec gkdestroy (8), histoire de libérer la mémoire.
Félicitations, vous avez fini votre premier programme fortran utilisant PILIB. Toujours en vie ?
Nous sauvons le fichier sous 'example.f95'.
L'étape suivante consiste a compiler votre programme. Actuellement, nous supposerons que vous utiliser G95 ou F95.
Ouvrez une console, et naviguer jusque dans le répertoire ou se trouve votre fichier 'example.f95'.
Ensuite, dans votre compilateur, tapez :
g95 fenetre.f95 -lpilib -lpilibf Ou pour f95 : f95 fenetre.f95 -lpilib -lpilibf
Les commandes -lpilib et -lpilibf demandent au compilateur d'utiliser PILIB. Tapez ./a.out pour lancer votre programme, et le tour et joué (enfin, en principe). Voici qu'apparais majestueusement votre première fenêtre PILIB fortran.
Prêtez attention au fait que tous les éléments que nous avons écrit au préalable sont présents. Vous pouvez maintenant modifier votre programme "example" afin de voir les différents résultats, ou bien passer au second chapitre de ce tutorial.
