Programmer le jeu "OTHELLO" en Visual Basic

Programmer le jeu "OTHELLO" en Visual Basic - VB/VBA/VBS - Programmation

Marsh Posté le 17-01-2007 à 18:12:09    

Bonsoir à tous,
 
 
Je dois programmer le jeu othello en utilisant le langage Visual Basic. Mon niveau n'est pas particulièrement exceptionnel mais je maîtrise plutôt bien les conditionnel et les boucles (For...next, do...while, loop...until).
 
J'ai déjà fait:
- Les déclarations de base.
- La gestion des tours de jeu (joueur 1 ou joueur 2).
- Recherche de case possible à jouer.
 
 
J'ai déjà cherché des exemples sur internet (cf: www.vbfrance.com) mais ces derniers étaient un peu trop élaboré et j'ai eu quelques problèmes de compréhension.
 
 
Je bloque un peu sur un élément essentiel de ce jeu: la gestion des pions à retourner (prenant la couleur adverse) après chaque tour.
Merci de m’apporter un peu d’aide :D
 
 
Voilà mon code:
(Pas de moqueries please ;)
 
 
LES DECLARATIONS:

Code :
  1. Option Explicit
  2. Const LargueurCote = 8
  3. 'Largueur des cotés de l'othellier
  5. TableauEtatCase(1 To LargueurCote, 1 To LargueurCote) As String
  6. 'Tableau non visible par l'utilisateur indiquant les cases vides et non vides ainsi que la couleur du pion présent
  8. Dim NumJoueur As Boolean
  9. 'Booléen gérant les joueurs(Faux = au tour du joueur 1)


 
TOUR DE JEU:

Code :
  1. Sub TourJoueur()
  3. 'Gestion des tours de jeu
  4. If NumJoueur = False Then
  5.     NumJoueur = True
  6.    
  7.     Else
  8.     NumJoueur = False
  9.    
  10. End If
  12. End Sub


 
INITIALISATION DE L'OTHELLIER:

Code :
  1. Private Sub Form_Load()
  4. 'Initialisation de l'othellier
  5. Dim i As Integer
  6. Dim j As Integer
  8. NumJoueur = False
  10. For i = 1 To LargueurCote
  11.     For j = 1 To LargueurCote
  12.         TableauEtatCase(i, j) = "vide"
  13.     Next j
  14. Next i
  16. TableauEtatCase(4, 5) = "noir"
  17. TableauEtatCase(5, 4) = "noir"
  18. TableauEtatCase(4, 4) = "blanc"
  19. TableauEtatCase(5, 5) = "blanc"
  23. End Sub


 
DEBUT DE LA PARTIE:

Code :
  1. Private Sub Command2_Click()
  4. 'Début du jeu
  5. Do
  7. abcisse = Input("Quelle est l'abcisse de la case à jouer ?", Saisie)
  8. ordonne = Input("Quelle est l'ordonnée de la case à jouer ?", Saisie)
  10. If ((abcisse >= 1) And (abcisse <= 8) And (ordonnee >= 1) And (ordonnee <= 8) And (TableauEtatCase(abcisse, ordonne) = "vide" ) And (adjacent(abcisse, ordonnee) = True)) Then
  14. '.....la suite prochainement
  17. End Sub


 
RECHERCHE D'UN PION ADVERSE ADJACENT:

Code :
  1. Function adjacent(i As Integer, j As Integer) As Boolean
  3. adjacent(i, j) = False
  5. 'Recherche d'un pion adjacent de couleur adverse
  7. 'Côté gauche
  8. If ((NumJoueur = False) And (i = 1) And (j > 1) And (j < 8)) And ((TableauEtatCase(i, j - 1) = "blanc" ) Or (TableauEtatCase(i, j + 1) = "blanc" ) Or (TableauEtatCase(i + 1, j) = "blanc" ) Or (TableauEtatCase(i + 1, j - 1) = "blanc" ) Or (TableauEtatCase(i + 1, j + 1) = "blanc" )) Then
  9.     adjacent(i, j) = True
  10.    
  11.     'Côté droit
  12.     ElseIf ((NumJoueur = False) And (i = 8) And (j > 1) And (j < 8)) And ((TableauEtatCase(i, j - 1) = "blanc" ) Or (TableauEtatCase(i, j + 1) = "blanc" ) Or (TableauEtatCase(i - 1, j) = "blanc" ) Or (TableauEtatCase(i - 1, j - 1) = "blanc" ) Or (TableauEtatCase(i - 1, j + 1) = "blanc" )) Then
  13.         adjacent(i, j) = True
  14.    
  15.     'Haut
  16.     ElseIf ((NumJoueur = False) And (j = 1) And (i > 1) And (i < 8)) And ((TableauEtatCase(i - 1, j) = "blanc" ) Or (TableauEtatCase(i + 1, j) = "blanc" ) Or (TableauEtatCase(i, j + 1) = "blanc" ) Or (TableauEtatCase(i - 1, j + 1) = "blanc" ) Or (TableauEtatCase(i + 1, j + 1) = "blanc" )) Then
  17.         adjacent(i, j) = True
  18.    
  19.     'Bas
  20.     ElseIf ((NumJoueur = False) And (j = 8) And (i > 1) And (i < 8)) And ((TableauEtatCase(i - 1, j) = "blanc" ) Or (TableauEtatCase(i + 1, j) = "blanc" ) Or (TableauEtatCase(i, j - 1) = "blanc" ) Or (TableauEtatCase(i - 1, j - 1) = "blanc" ) Or (TableauEtatCase(i + 1, j - 1) = "blanc" )) Then
  21.         adjacent(i, j) = True
  22.    
  23.     'Coin haut gauche
  24.     ElseIf ((NumJoueur = False) And (i = 1) And (j = 1)) And ((TableauEtatCase(2, 1) = "blanc" ) Or (TableauEtatCase(1, 2) = "blanc" ) Or (TableauEtatCase(2, 2) = "blanc" )) Then
  25.         adjacent(i, j) = True
  26.        
  27.     'Coin haut droit
  28.     ElseIf ((NumJoueur = False) And (i = 8) And (j = 1)) And ((TableauEtatCase(7, 1) = "blanc" ) Or (TableauEtatCase(8, 2) = "blanc" ) Or (TableauEtatCase(7, 2) = "blanc" )) Then
  29.         adjacent(i, j) = True
  30.        
  31.     'Coin bas gauche
  32.     ElseIf ((NumJoueur = False) And (i = 1) And (j = 8)) And ((TableauEtatCase(1, 7) = "blanc" ) Or (TableauEtatCase(2, 8) = "blanc" ) Or (TableauEtatCase(2, 7) = "blanc" )) Then
  33.         adjacent(i, j) = True
  34.    
  35.     'Coin bas droit
  36.     ElseIf ((NumJoueur = False) And (i = 8) And (j = 8)) And ((TableauEtatCase(8, 7) = "blanc" ) Or (TableauEtatCase(7, 8) = "blanc" ) Or (TableauEtatCase(7, 7) = "blanc" )) Then
  37.         adjacent(i, j) = True
  38.    
  39.     'Reste de l'othellier
  40.     ElseIf ((NumJoueur = False) And (i > 1) And (i < 8) And (j > 1) And (j < 8)) And ((TableauEtatCase(i - 1, j) = "blanc" ) Or (TableauEtatCase(i + 1, j) = "blanc" ) Or (TableauEtatCase(i, j - 1) = "blanc" ) Or (TableauEtatCase(i, j + 1) = "blanc" ) Or (TableauEtatCase(i - 1, j - 1) = "blanc" ) Or (TableauEtatCase(i + 1, j - 1) = "blanc" ) Or (TableauEtatCase(i - 1, j + 1) = "blanc" ) Or (TableauEtatCase(i + 1, j + 1) = "blanc" )) Then
  41.         adjacent(i, j) = True
  42.        
  43. End If
  46. 'Côté gauche
  47. If ((NumJoueur = True) And (i = 1) And (j > 1) And (j < 8)) And ((TableauEtatCase(i, j - 1) = "noir" ) Or (TableauEtatCase(i, j + 1) = "blanc" ) Or (TableauEtatCase(i + 1, j) = "noir" ) Or (TableauEtatCase(i + 1, j - 1) = "noir" ) Or (TableauEtatCase(i + 1, j + 1) = "noir" )) Then
  48.     adjacent(i, j) = True
  49.    
  50.     'Côté droit
  51.     ElseIf ((NumJoueur = True) And (i = 8) And (j > 1) And (j < 8)) And ((TableauEtatCase(i, j - 1) = "noir" ) Or (TableauEtatCase(i, j + 1) = "noir" ) Or (TableauEtatCase(i - 1, j) = "noir" ) Or (TableauEtatCase(i - 1, j - 1) = "noir" ) Or (TableauEtatCase(i - 1, j + 1) = "noir" )) Then
  52.         adjacent(i, j) = True
  53.    
  54.     'Haut
  55.     ElseIf ((NumJoueur = True) And (j = 1) And (i > 1) And (i < 8)) And ((TableauEtatCase(i - 1, j) = "noir" ) Or (TableauEtatCase(i + 1, j) = "noir" ) Or (TableauEtatCase(i, j + 1) = "noir" ) Or (TableauEtatCase(i - 1, j + 1) = "noir" ) Or (TableauEtatCase(i + 1, j + 1) = "noir" )) Then
  56.         adjacent(i, j) = True
  57.    
  58.     'Bas
  59.     ElseIf ((NumJoueur = True) And (j = 8) And (i > 1) And (i < 8)) And ((TableauEtatCase(i - 1, j) = "noir" ) Or (TableauEtatCase(i + 1, j) = "noir" ) Or (TableauEtatCase(i, j - 1) = "noir" ) Or (TableauEtatCase(i - 1, j - 1) = "noir" ) Or (TableauEtatCase(i + 1, j - 1) = "noir" )) Then
  60.         adjacent(i, j) = True
  61.    
  62.     'Coin haut gauche
  63.     ElseIf ((NumJoueur = True) And (i = 1) And (j = 1)) And ((TableauEtatCase(2, 1) = "noir" ) Or (TableauEtatCase(1, 2) = "noir" ) Or (TableauEtatCase(2, 2) = "noir" )) Then
  64.         adjacent(i, j) = True
  65.        
  66.     'Coin haut droit
  67.     ElseIf ((NumJoueur = True) And (i = 8) And (j = 1)) And ((TableauEtatCase(7, 1) = "noir" ) Or (TableauEtatCase(8, 2) = "noir" ) Or (TableauEtatCase(7, 2) = "noir" )) Then
  68.         adjacent(i, j) = True
  69.        
  70.     'Coin bas gauche
  71.     ElseIf ((NumJoueur = True) And (i = 1) And (j = 8)) And ((TableauEtatCase(1, 7) = "noir" ) Or (TableauEtatCase(2, 8) = "noir" ) Or (TableauEtatCase(2, 7) = "noir" )) Then
  72.         adjacent(i, j) = True
  73.    
  74.     'Coin bas droit
  75.     ElseIf ((NumJoueur = True) And (i = 8) And (j = 8)) And ((TableauEtatCase(8, 7) = "noir" ) Or (TableauEtatCase(7, 8) = "noir" ) Or (TableauEtatCase(7, 7) = "noir" )) Then
  76.         adjacent(i, j) = True
  77.    
  78.    
  79.     'Reste de l'othellier
  80.     ElseIf ((NumJoueur = True) And (i > 1) And (i < 8) And (j > 1) And (j < 8)) And ((TableauEtatCase(i - 1, j) = "noir" ) Or (TableauEtatCase(i + 1, j) = "noir" ) Or (TableauEtatCase(i, j - 1) = "noir" ) Or (TableauEtatCase(i, j + 1) = "noir" ) Or (TableauEtatCase(i - 1, j - 1) = "noir" ) Or (TableauEtatCase(i + 1, j - 1) = "noir" ) Or (TableauEtatCase(i - 1, j + 1) = "noir" ) Or (TableauEtatCase(i + 1, j + 1) = "noir" )) Then
  81.         adjacent(i, j) = True
  82.        
  83. End If
  85. End Function


Message édité par mauriiiiiice le 17-01-2007 à 18:15:46
Reply

Marsh Posté le 17-01-2007 à 18:12:09   

Reply

Marsh Posté le 17-01-2007 à 18:15:45    

Mon dieu ca commence bien  [:red faction]  
 
 
la derniere fois que jai vu ce genre de code cetait .... aussi en vb! (decidement vb = debutant de lextreme??)

Reply

Marsh Posté le 17-01-2007 à 18:17:33    

Citation :

Mon dieu ca commence bien


Mon code est si naze que ça ?
 
:(

Reply

Marsh Posté le 17-01-2007 à 18:49:24    

est ce que ta vu la longeur du truc juste pour obtenir le pion adjacent!???
 
timagine la longeur de ton prog si tu devait y rajouter une IA?
 
code long =
   -relecture difficile
   -apparation de bug  
   -difficulte a maintenir le code, rajouter des "features"
   -en general plus lent
   -... bref c jamais bien
   
 
puis bon des strings pour comparer le type des  pieces , c pas genial
d'un autre cote si tu debute c normal , mais il vaudrait mieux corriger tout ca alors avant de faire la suite....
 
tu programmes depuis longtemps?


Message édité par red faction le 17-01-2007 à 18:49:35
Reply

Marsh Posté le 17-01-2007 à 20:10:52    

:hello:  
 
Le code n'est pas si long que ça. Il est propre. Il est commenté. C'est très bien.
 
Mais, il existe des astuces pour écrire quelque chose de plus simple :
 
- Transformer le plateau de jeu en 2D en un plateau de jeu en une seule dimension. Comme cela, il ne faut gérer qu'un seul indice au lieu d'en gérer deux (i et j).
 
- Avoir une rangée de cases "plouf dans l'eau" tout autour de l'othellier. Comme cela, au lieu de tester si on a atteint le bord, on teste si la case est une case "plouf", ce qui est plus facile.
 
Bon courage.

Message cité 1 fois
Reply

Marsh Posté le 17-01-2007 à 20:54:03    

Citation :

timagine la longeur de ton prog si tu devait y rajouter une IA?


Si tu as une meilleure solution pour programmer un Othello en Visual Basic, je suis preneur  :)  
 
 

Citation :

- Transformer le plateau de jeu en 2D en un plateau de jeu en une seule dimension. Comme cela, il ne faut gérer qu'un seul indice au lieu d'en gérer deux (i et j).


Avec des Text(i).Text, j'y avais pensé mais cela m'aurait poser un problème d'affichage pour les pions de couleur...
 
 

Citation :

Bon courage.


Merci.

Message cité 1 fois
Reply

Marsh Posté le 17-01-2007 à 22:48:14    

olivthill a écrit :

:hello:  
 
Le code n'est pas si long que ça. Il est propre. Il est commenté. C'est très bien.
 
Mais, il existe des astuces pour écrire quelque chose de plus simple :
 
- Transformer le plateau de jeu en 2D en un plateau de jeu en une seule dimension. Comme cela, il ne faut gérer qu'un seul indice au lieu d'en gérer deux (i et j).
 
- Avoir une rangée de cases "plouf dans l'eau" tout autour de l'othellier. Comme cela, au lieu de tester si on a atteint le bord, on teste si la case est une case "plouf", ce qui est plus facile.
 
Bon courage.


 
-meme si tranformer le tableau en une dimension apporte des avantages, pour certaines operation ca devient plus complique, pour le moment laisse comme ca
-faire un tableau plus grand  pour ne pas tester les bord nest pas une mauvaise idée , mais il y a moyen de faire plus simple:
 il suffit de faire une fonction  
 
   getCase (dim i as, dim j as){
      if(i< & j ....
         getCase= valeur;
     else  
         getCase= -1 //ou constante PION_INVALIDE
   }
apres au lieu de faire des tableau[i][j] tu fait directement appel a getCase , deplus si limplementation de ton tableau change ca reste toujours valable (il suffit de changer la fonction getcase et non tout le programme)
 
 

mauriiiiiice a écrit :

Citation :

timagine la longeur de ton prog si tu devait y rajouter une IA?


Si tu as une meilleure solution pour programmer un Othello en Visual Basic, je suis preneur  :)  
 


 
 
 
-sortir les if(NumJoueur = False) des if, virer les test i,j  
 
- changer les ="blanc" par une constante BLANC (string "blanc" = gaspillage de memoire, deplus tu peut te tromper "blamc" compilera qd mm, et pour finir c plus lent )


Message édité par red faction le 17-01-2007 à 22:49:08
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed