PureBasic

Code : Tout sélectionner

;-PureBasic pour les GROS NULS : Programmer une fenêtre simple

;-Qu'est-ce qu'une fenêtre?
; Une fenêtre, c'est simplement une interface entre l'utilisateur et le programme.
; C'est à partir de là que l'utilisateur pourra lancer certaines fonctions du
; programme, saisir des données, etc...
; PureBasic inclu des commandes simplifiées pour créer les fenêtres.
;
;-De quoi est composé une fenêtre ?
;   - La barre de titre:
;   - Les bordures
;   - La zone client
;
;   - La barre de titre : Elle se trouve en haut de la fenêtre. C'est ici que 
;                         s'affichent le titre de la fenêtre, l'icône, et les trois  
;                         boutons systeme permettant de l'agrandir, de la minimiser, 
;                         et de la fermer. La barre de titre sert également à déplacer 
;                         la fenêtre, et à modifier sa taille
;
;   - Les bordures      : Elles sont placées de chaque côté de la fenêtre, et en bas.
;                         Elles permettent de modifier la taille de la fenêtre.
;
;   - La zone client    : C'est la zone située à l'intérieur de la fenêtre. C'est ici
;                         que s'affichent les boutons, les zones de saisie, etc...
;                         C'est la zone utile de la fenêtre.
;
;-Que doit-on fournir, quand on veut créer une fenêtre?
;   - Sa taille
;   - Sa position à l'écran
;   - Son titre
;   - Les boutons systeme dont on a besoin
;
;-Que doit-on savoir avant de commencer?
;/Chaque composant de l'interface, que ce soit les boutons, les zones de texte,
;/les champs de saisie, ainsi, évidemment que les fenêtres, doit pouvoir être
;/identifié par le systeme.
; Il faut donc leur attribuer un nom, ou plutôt un numéro.

;/Une fenêtre ne reste pas ouverte si on ne lui demande pas de le faire.
; On doit créer une boucle qui va tester, à intervalle régulier, tous les 
; évènements qui surviennent sur la fenêtre. 

;- Allez !. On commence!
; Sa taille   : 400 x 250
; Sa position : En haut, à gauche de l'écran
; Son titre   : Fenêtre simple en PureBasic
; Les boutons : Minimiser, Agrandir, Fermer
;
;
If OpenWindow(0,0,0,400,250,#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget,"Fenêtre simple en PureBasic")
  Repeat
    Event = WaitWindowEvent()
    If Event = #PB_Event_CloseWindow
      quit = 1
    EndIf
  Until quit = 1
  End
EndIf

;- Explication :
; OpenWindow(               : Fonction permettant de demander l'ouverture de la fenêtre.
; 0 (le 1er)                : C'est le n° de la fenêtre. PureBasic compte à partir de 0,
;                             et il n'y a pas de fenêtre avant, alors on la numérote "0"
; 0 (Le 2eme)               : C'est la position X de la fenêtre sur l'écran, c'est à dire
;                             sa position Horizontale.
; 0 (Le 3eme)               : C'est la position Y de la fenêtre sur l'écran, c'est à dire 
;                             sa position Verticale.
; 400                       : C'est la largeur de la fenêtre.
; 250                       : C'est la hauteur de la fenêtre
; #PB_Window_SystemMenu     : La barre de titre est une barre comportant le bouton
;                             "Fermer", (la croix), ainsi qu'un menu accessible en
;                             cliquant avec le bouton droit sur l'icone à gauche.
; #PB_Window_MinimizeGadget : Permet d'ajouter le bouton "Minimiser"
; #PB_Window_MaximizeGadget : Permet d'ajouter le bouton "Maximiser"
; "Fenêtre simple... "      : C'est le titre de la fenêtre. Il faut fournir une chaine de
;                             caractères, on mets donc le titre entre guillemets.
;
; Repeat (répète)           : Début de la boucle des évènements. Cette boucle se répètera
;                             jusqu'à (Until) ce que la condition de sortie soit vérifiée.
;                             A partir de là, tous les évènements survenant sur la fenêtre
;                             seront détectés dans cette boucle.
; Event = WaitWindowEvent() : Event est une variable, elle n'a, au départ, aucune valeur propre.
;                             La valeur lui sera attribuée par la commande WaitWindowEvent(),
;                             qui détecte tous les évenement de la fenêtre. Chaque évènement
;                             ayant une valeur différente, la variable "Event" prendra donc
;                             une valeur différente à chaque évènement. C'est cette valeur qui
;                             sera détectée dans le test suivant, permettant de terminer le 
;                             programme.
; If Event = #PB_Event_CloseWindow :
;                             Le test If, (Si), sert à tester si une condition est vrai, ou fausse.
;                             #PB_Event_CloseWindow, est une constante, c'est à dire que sa valeur
;                             a été définie une fois pour toute.
;                             Chaque évènement est symbolisé par une constante ayant donc une valeur
;                             différente. #PB_Event_CloseWindow a pour valeur 16. C'est cette valeur
;                             qui permet de détecter que l'utilisateur à cliqué sur la croix dans la
;                             barre de titre, et a donc demandé la fermeture de la fenêtre.
;                             Le test vérifie donc que Event à pour valeur 16.
; quit = 1                    La variable "quit" est mise à 1, puisque Event est égal à 16.
;                             (voir au dessus)
;                             Le nom de la variable n'a aucune importance, on peut mettre ce que l'on
;                             veut, ce qui importe, c'est sa valeur.
; Endif                       Cette commande sert à marquer la fin d'une condition If.
;                             (Concernant l'utilisation de If/Else/Endif, n'importe quel manuel de
;                             programmation disponible sur internet fera l'affaire)
; Until quit = 1            : Jusqu'à ce que "quit" = 1. La boucle se répète jusqu'à ce que "quit"
;                             prenne la valeur de 1, puis elle passe à l'instruction suivante : "End"