Programmer le jeu "OTHELLO" en Visual Basic

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Programmer le jeu "OTHELLO" en Visual Basic

mauriiiiiice

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 mapporter un peu daide

Voilà mon code:
(Pas de moqueries please

LES DECLARATIONS:

Code :

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

TOUR DE JEU:

Code :

Sub TourJoueur()
'Gestion des tours de jeu
If NumJoueur = False Then
NumJoueur = True
Else
NumJoueur = False
End If
End Sub

INITIALISATION DE L'OTHELLIER:

Code :

Private Sub Form_Load()
'Initialisation de l'othellier
Dim i As Integer
Dim j As Integer
NumJoueur = False
For i = 1 To LargueurCote
For j = 1 To LargueurCote
TableauEtatCase(i, j) = "vide"
Next j
Next i
TableauEtatCase(4, 5) = "noir"
TableauEtatCase(5, 4) = "noir"
TableauEtatCase(4, 4) = "blanc"
TableauEtatCase(5, 5) = "blanc"
End Sub

DEBUT DE LA PARTIE:

Code :

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

RECHERCHE D'UN PION ADVERSE ADJACENT:

Code :

Function adjacent(i As Integer, j As Integer) As Boolean
adjacent(i, j) = False
'Recherche d'un pion adjacent de couleur adverse
'Côté gauche
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
adjacent(i, j) = True
'Côté droit
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
adjacent(i, j) = True
'Haut
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
adjacent(i, j) = True
'Bas
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
adjacent(i, j) = True
'Coin haut gauche
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
adjacent(i, j) = True
'Coin haut droit
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
adjacent(i, j) = True
'Coin bas gauche
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
adjacent(i, j) = True
'Coin bas droit
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
adjacent(i, j) = True
'Reste de l'othellier
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
adjacent(i, j) = True
End If
'Côté gauche
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
adjacent(i, j) = True
'Côté droit
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
adjacent(i, j) = True
'Haut
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
adjacent(i, j) = True
'Bas
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
adjacent(i, j) = True
'Coin haut gauche
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
adjacent(i, j) = True
'Coin haut droit
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
adjacent(i, j) = True
'Coin bas gauche
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
adjacent(i, j) = True
'Coin bas droit
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
adjacent(i, j) = True
'Reste de l'othellier
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
adjacent(i, j) = True
End If
End Function

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

Publicité

red faction

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??)

mauriiiiiice

Citation :

Mon dieu ca commence bien

Mon code est si naze que ça ?

red faction

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

olivthill

: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

mauriiiiiice

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

red faction

olivthill a écrit :

-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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Programmer le jeu "OTHELLO" en Visual Basic

Sujets relatifs
Programmer un system d'exploitation en C ? ou C++ ou ASM ? ou quoi ?	Problème de compilation sous Visual Studio
Probleme basic pour lister un tableau !	jeu en visual basic.. svp !!
compilateur Basic pour PIC	aide pour programmer une carte quickusb
utiliser svn de maniére intégré dans visual c++ express	programmer pour combustion
Point de départ pour programmer un lecteur multimedia ?
Plus de sujets relatifs à : Programmer le jeu "OTHELLO" en Visual Basic

Page générée en 0.106 secondes