* SÉRIE 3 *

.
FORMES GRAPHIQUES ET ANIMATIONS
(Inspiré des fiches de Mme Claudette Bélanger)

Ouvrez une nouvelle application. Donnez la feuille F_graph1 les propriétés suivantes.

FEUILLE: F_Graph1

NAME	F_Graph1
CAPTION	Formes graphiques et animations
WINDOWSTATE	Maximized

A l’aide de la fenêtre Création de menus, créez un menu structuré de la manière suivante. Donnez des noms (NAME) qui commencent par MN_ (ex: MN_ligne pour Lignes du menu Figures et MN_Aligne pour Ligne du menu Animations). Attention de ne pas utiliser le même nom pour deux sous-menus! Ajoutez aussi tout de suite le code permettant de quitter avec confirmation.

Figures	Animations	Quitter
Cercles	Ligne
Lignes	Cercle
Rectangles	Rectangle
Triangles
Ellipses
Arcs
Pointes

Dans le général de la feuille, créez une procédure P_cercle et écrivez le code suivant.

Sub P_cercle ()
   Cls
   Circle (2000, 1000), 200, RGB(45, 39, 200)
   Circle (6000, 4000), 400, QBColor(Int(Rnd * 15))    'Couleur au hasard
   FillStyle = 2                                              'Rayures horizontales
FillColor = QBColor(4)                            'Rouge
   Circle (2000, 4000), 300, QBColor(9)     'Bleu
   DrawWidth = 3
   FillStyle = 0
   FillColor = QBColor(5)                            'Mauve
   Circle (5000, 1500), 1000, QBColor(2)      'Vert
End Sub

Dans le code de Cercles du menu Figures, faites l’appel de la procédure P_cercle.
Faites exécuter votre programme. Modifiez des paramètres dans le code de votre procédure et vérifiez l’effet sur les cercles.
Toujours dans le général de la feuille, créez une procédure P_Ligne et écrivez le code suivant.

Sub P_Ligne ()
   Cls                      'Vide l'écran
   DrawWidth = 3
   Line (300, 100)-(300, 3000), QBColor(3)       'Bleu pâle
   DrawWidth = 2
   Line (1000, 300)-(3000, 3000), QBColor(2)
   Line -(4000, 500), QBColor(4)         'Rouge
   DrawWidth = 1
   Line -(9000, 6000)                'Aucune couleur
End Sub

Ajoutez l’appel de la procédure dans Lignes du menu Figures. Faites exécuter. Changez des paramètres et observez les résultats.
Créez la procédure P_rect dont vous trouverez le code ci-dessous (--> = même ligne). Faites l’appel de la procédure dans Rectangles du menu Figures.

Sub P_rect()
    Cls
    Fillstyle=0
    Line (1100,200)-step (3000,500), QBColor(4),BF
    Fillstyle = 4
    Line (3000,2000)-step ( 1000,2000),RGB (10,100,100), BF
    FillStyle = 1
    Line (6000,1000)-step (500,500), , B      'Carré vide - ,, avant le B --> indique aucune couleur
End Sub

Testez votre programme. Sauvegardez sous les noms E13F1xx.FRM et EX13xx.VBP.

Cliquez ici pour la SUITE...