julienen
Messages postés9Date d'inscriptiondimanche 24 février 2008StatutMembreDernière intervention16 mars 2008
-
29 févr. 2008 à 20:50
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
2 mars 2008 à 12:01
Bonjour
je cherche a faire un losangeet un sablier à partir de pyramides comme dessiné plus haut sur vba donc j'ai d'abord fait deux procedures :
La premiere j'obtiens une pyramide donc le sommet est dirigé vers le haut :
Sub colorierPyramide(ByVal ligneSommet As Integer, _
ByVal colSommet As Integer, _
ByVal n As Integer, _
ByVal c As Long)
Dim x As Integer
x = 0
Do Until x = n - 1
colorierSegment ligneSommet + x, colSommet - x, 2 * x + 1, c
x = x + 1
Loop
End Sub
et la deuxieme dont le sommet est dirigé vers le bas :
Sub colorierPyramideBas(ByVal ligneSommet As Integer, _
ByVal colSommet As Integer, _
ByVal n As Integer, _
ByVal c As Long)
Dim x As Integer
x = 0
Do Until x = n + 1
colorierSegment ligneSommet - x, colSommet - x, 2 * x + 1, c
x = x + 1
Loop
End Sub
Le problème c'est que je n'arrive pas à superposer les deux pyramides pour obtenir un sablier et un losange ?
julienen
Messages postés9Date d'inscriptiondimanche 24 février 2008StatutMembreDernière intervention16 mars 2008 2 mars 2008 à 09:52
j'ai oublié de mentionner la fonction "non fournie"
Sub colorierSegment(ByVal ligne As Integer, _
ByVal colonne As Integer, ByVal l As Integer, ByVal c As Long)
colorierRectangle ligne, colonne, ligne, colonne + l - 1, c
End Sub
(une fonction qui colorie un segment ie une ligne de case )
le hic est que mes deux fonctions ne me renvoient pas un sablier ni un losange