Tableau de position de shape

Question

Bonjour a tous, je suis donc entrain de programmer un tétris en vb. Jj'utilise donc des shapes, tout ce qui est en rapport avec les pieces fonctionnent. J'ai donc 2 tableaux de booléen, l'un qui permet de savoir la position des pieces, et l'autres pour savoir quand arreter les pieces, si elle peuvent encore descendre etc... Mon pb vient de mon tableau de position qui déconne( enfin c'est surtout moi qui galere a le faire marche lol ) Donc qd une piece descend le tableau de position doit afficher des 1 ou des 0, il m'affiche bien ses chiffres la mais pas comme je le voudrai ( a la forme de la piece ). 360 = taille du carré, 720 au left du cadre, 480 au top du cadre. Je vous donne des info suplementaire sur le cadre width=3615 For k = Carre To Carre + 3 For j = 0 To 13 'colonne For i = 0 To 9 'ligne If ((Carre1(k).Left >= (i * 360) + 720)) And (Carre1(k).Left <= (((i + 1) * 360) + 720)) Then 'test la ligne If (Carre1(k).Top >= (480 + (j * 360))) And (Carre1(k).Top <= (480 + ((j + 1) * 360))) Then ' Test la Colonne Pos(j, i) = True Else Pos(j, i) = False End If End If Next i Next j Next k Voila moi j'ai eu cette idée la pour verifier comment était pris en compte mes shapes en les affichant dans une textbox : Text1 = "" Text2 = "" Text3 = "" For i = 0 To 13 For j = 0 To 9 If Pos(i, j) = True Then Text1 = Text1 + "1" Else Text1 = Text1 + "0" End If If Carrevisi(i, j) = True Then Text2 = Text2 + "1" Else Text2 = Text2 + "0" End If If Tetris(i, j) = True Then Text3 = Text3 + "1" Else Text3 = Text3 + "0" End If Next j Text1 = Text1 + vbCrLf Text2 = Text2 + vbCrLf Text3 = Text3 + vbCrLf Next i Esqu'il y aurait un autre moyen de tester les shapes quand je parcours le tableau de position?si vous avez des idées faites le moi savoir car la je galere a fond. Merci bcp Breton.

elbertondu62 · Answer

j'ai oublier de vous dire que carre correspond a l'index du shape. C'est a dire au Num&#233;ro du carr&#233;.
wazaaa breton

Tableau de position de shape

1 réponse

Discussions similaires