
Envoyé par
tomsss
Bonjour tout le monde,
J'essaie de programmer othello sur VBA et je n'arrive pas à faire la partie pour la recherche de pions adjacents.
J'ai déjà créer le plateau, le restart, et le fait que les pions ne peuvent être placer en dehors du damier.
Il me reste à faire :
A chaque déplacement dans la recherche, il faut insérer un décalage
-le Nord, le décalage ligne -1 colonne 0
-le Nord Est, le décalage ligne -1 colonne +1
- l'Est, le décalage ligne 0 colonne +1
-le Sud Est, le décalage ligne +1 colonne +1
-le Sud, le décalage ligne +1 colonne 0
-le Sud Ouest, le décalage ligne +1 colonne -1
-l'Ouest, le décalage ligne colonne -1
-le Nord Ouest, le décalage ligne -1 colonne -1
A chaque décalage il faut tester:
-d'une part si la cellule testée est toujours comprise dans le damier, sinon on sort ou on passe au test suivant.
-on de déplace dans une direction à la recherche du pion de la même couleur que celui qui vient d'être placé, si ce pion n'existe pas on sort ou on passe au test suivant, par contre si ce pion de la même couleur existe, alors 2 possibilités:
-s'il se trouve à dans une des cellules qui touche celle où le pion vient d'être placé, alors on sort ou on passe au test suivant.
-sinon, on refait le même cheminement et on inverse la couleur de tous les pions intermédiaires.
Et refait ce cycle pour toutes les directions.
A chaque fois, il faut vérifier qu'on est bien dans les limites du damier.
Après plusieurs tentatives infructueuses je commence à désespérer...
serait-il possible de m'aider juste sur une direction ?
En vous remerciant d'avance pour votre aide.
Partager