Bonsoir,
Je dois faire un exos à la maison que mon prof m'a donné le souci est que j'ai beaucoup de mal. Voici l'énoncé:
Question 1 : Écrire une procédure colorierPyramide ayant comme en-tête :
Sub colorierPyramide(ByVal ligneSommet As Integer, _
ByVal colSommet As Integer, _
ByVal n As Integer, _
ByVal c As Long)
qui construit une pyramide de hauteur n et de couleur c et dont le sommet a comme coordonnées
(ligneSommet; colSommet).
voici ma réponse
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub colorierPyramide(ByVal ligneSommet As Integer, _
                     ByVal colSommet As Integer, _
                     ByVal n As Integer, _
                     ByVal C As Long)
 Dim i As Integer
 For i = 1 To n
 colorierPyramide ligneSommet + i, colSommet - i, ligneSommet + 2 * (i - 1), C
 Next i
End Sub
 
Sub colorierrectangle(ByVal i1 As Long, ByVal j1 As Long, ByVal i2 As Long, ByVal j2 As Long, ByVal C As Long)
 coloriercase i1, j1, C
 colorierrectangle i1, j1, i2, i2 + L, C
End Sub
Sub testcolorierPyramide()
colorierPyramide 5, 5, 3, rouge
End Sub
Sachant que la fonction colorierrectangle et coloriercase sont déjà definis dans notre bibliothèque. Merci pour votre aide