|
|
|
.
CERCLE ET RAYON (étape 1)
(Tiré
des fiches de Mme Claudette Bélanger)
.
|
Les
deux premiers programmes utilisaient du code pour changer
les valeurs des propriétés.
Celui-ci introduit la notion de variable.
Vous
allez créer une application
qui calcule et dessine un cercle en fonction du rayon
donné par l’utilisateur.
La variable V_ray contiendra la valeur du rayon
et sera utilisée pour faire les calculs.
- Entrez
dans Visual Basic ou, si vous y êtes déjà, allez à
Fichier
et choisir Nouveau
projet.
- Commencez
par vous assurer que l’option Déclaration
des variables obligatoires
est activée. Allez au menu Outils
et
choisissez
Options.
Enfoncez l'onglet Éditeur
et cochez
Déclaration
des variables obligatoires.
Le processus est illustré dans la fiche sur les
variables.
- Donnez à la feuille les propriétés suivantes.
FEUILLE:
F_calcul
| NAME |
F_calcul |
| CAPTION |
Cercle
en fonction du rayon |
| BACKCOLOR |
À
votre choix |
| WINDOWSTATE
(État
visuel d'une feuille au moment de l'exécution) |
Maximized |
- Créez
une étiquette,
en haut à
gauche,
(on garde la partie de droite libre pour le
dessin du cercle) elle doit s’appeler ET_inst,
elle doit afficher à l’écran «Donnez
une valeur au rayon (de 20 à 300)».
Ce texte doit être centré
avec une bordure
simple.
La couleur
est à votre choix. À vous d'identifier les
propriétés qui permettent d'atteindre ce résultat
et de les modifier.
- Créez
à gauche en
bas de l’étiquette
une zone de
texte pour
capter la valeur du rayon.
Cette zone doit s’appeler
ZT_rayon,
la propriété Text
doit être vide et l'alignement
de type centré. Les polices,
couleurs
et le style
des caractères
sont à votre choix.
- À
l’aide de l’outil FORME,
créez un cercle à droite
de l’écran. Un carré apparaît. Changez les propriétés
de
cet objet comme suit.
FORME:
FO_cercle
| NAME |
FO_cercle |
| SHAPE
(Détermine
l'aspect de la forme) |
circle |
| LEFT |
3960 |
| TOP |
840 |
-
Agrandissez
la feuille si nécessaire. Avec l'outil Ligne,
dessinez un rayon
à votre cercle. Le nom de cet objet doit être LI_ligne.
Ce n'est pas
grave si le rayon n'est pas tout à fait de la bonne
longueur et s'il ne débute pas au centre du cercle!
-
Créez
3 boutons commande (toujours près du bord gauche de
la feuille). Les couleurs et les attributs de police
sont à votre goût.
-
Un
bouton pour permettre à l’utilisateur de donner
la valeur
du rayon. Son
nom est BO_capter
et il doit afficher «Nouvelle
valeur».
-
Un
bouton pour faire calculer
et dessiner
le cercle. Son
nom est BO_calcul
et doit afficher
«Dessine».
-
Un
bouton Quitter
(vous savez comment le faire).
Voici
à quoi devrait ressembler votre feuille à ce stade-ci.
-
Ajoutez
le
code dans
les boutons.
BOUTON:
BO_quitte
Sub
BO_quitte_Click()
End
End Sub |
BOUTON:
BO_capter
Sub
BO_capter_Click()
ZT_rayon.text
= ""
ZT_rayon.setfocus 'Fait afficher le curseur
dans la zone
End Sub |
BOUTON:
BO_calcul
Sub
BO_calcul_Click ()
Dim
v_RAY As Integer
'Déclaration
de variable dans la
procédure
v_RAY = Val(ZT_rayon.TEXT)
v_RAY = v_RAY * 10
FO_cercle.Height = v_RAY
* 2
'Hauteur du cercle
FO_cercle.Width = v_RAY *
2
'Largeur
du cercle
FO_cercle.top = 840
LI_LIGNE.X1 = 3960
LI_LIGNE.Y1 = 840 + v_RAY
'x1y1
(début)
LI_LIGNE.X2 = 3960 +
v_RAY
'x2y2
(fin de la ligne)
LI_LIGNE.Y2 = 840 + v_RAY
End Sub |
-
Sauvegardez
dans Vb_MODULE1.
Enregistrez-le de la façon suivante:
la feuille F_calcul
doit s’appeler
E3F1xx
(initiales) et le projet, EX3xx
(initiales).
- Exécutez
votre programme. Essayez de donner différentes
valeurs pour le rayon.
- Faites
les ajustements
et corrections,
puis sauvegardez à nouveau.
Cliquez ici pour la SUITE...
.
|
|
