Morpion
Description
Voici mon premier code source qui est un jeu de morpion que j'ai réaliser dans le cadre de mes études d'informatique de Gestion.
Des mises a jours sont a venir comme une IA pour jouer contre l'ordinateur
Source / Exemple :
Dim joueur1 As String Dim joueur2 As String Dim verif(9) As Boolean Dim play As Boolean Dim tour As Integer Dim verifwin(9) As String Dim temps As Long Private Sub case1_Click(Index As Integer) If verif(1) = False Then tour = tour + 1 verif(1) = True If play = True Then verifwin(1) = O case1(0).Picture = O.Picture Else verifwin(1) = X case1(0).Picture = X.Picture End If Else Label3.Caption = "Vous ne pouvez pas jouer dans cette case" End If End Sub Private Sub case2_Click(Index As Integer) If verif(2) = False Then tour = tour + 1 verif(2) = True If play = True Then verifwin(2) = O case2(1).Picture = O.Picture Else verifwin(2) = X case2(1).Picture = X.Picture End If Else Label3.Caption = "Vous ne pouvez pas jouer dans cette case" End If End Sub Private Sub case3_Click(Index As Integer) If verif(3) = False Then tour = tour + 1 verif(3) = True If play = True Then verifwin(3) = O case3(2).Picture = O.Picture Else verifwin(3) = X case3(2).Picture = X.Picture End If Else Label3.Caption = "Vous ne pouvez pas jouer dans cette case" End If End Sub Private Sub case4_Click(Index As Integer) If verif(4) = False Then tour = tour + 1 verif(4) = True If play = True Then verifwin(4) = O case4(3).Picture = O.Picture Else verifwin(4) = X case4(3).Picture = X.Picture End If Else Label3.Caption = "Vous ne pouvez pas jouer dans cette case" End If End Sub Private Sub case5_Click(Index As Integer) If verif(5) = False Then tour = tour + 1 verif(5) = True If play = True Then verifwin(5) = O case5(4).Picture = O.Picture Else verifwin(5) = X case5(4).Picture = X.Picture End If Else Label3.Caption = "Vous ne pouvez pas jouer dans cette case" End If End Sub Private Sub case6_Click(Index As Integer) If verif(6) = False Then tour = tour + 1 verif(6) = True If play = True Then verifwin(6) = O case6(5).Picture = O.Picture Else verifwin(6) = X case6(5).Picture = X.Picture End If Else Label3.Caption = "Vous ne pouvez pas jouer dans cette case" End If End Sub Private Sub case7_Click(Index As Integer) If verif(7) = False Then tour = tour + 1 verif(7) = True If play = True Then verifwin(7) = O case7(6).Picture = O.Picture Else verifwin(7) = X case7(6).Picture = X.Picture End If Else Label3.Caption = "Vous ne pouvez pas jouer dans cette case" End If End Sub Private Sub case8_Click(Index As Integer) If verif(8) = False Then tour = tour + 1 verif(8) = True If play = True Then verifwin(8) = O case8(7).Picture = O.Picture Else verifwin(8) = X case8(7).Picture = X.Picture End If Else Label3.Caption = "Vous ne pouvez pas jouer dans cette case" End If End Sub Private Sub case9_Click(Index As Integer) If verif(9) = False Then tour = tour + 1 verif(9) = True If play = True Then verifwin(9) = O case9(8).Picture = O.Picture Else verifwin(9) = X case9(8).Picture = X.Picture End If Else Label3.Caption = "Vous ne pouvez pas jouer dans cette case" End If End Sub Private Sub Command1_Click() End End Sub Private Sub Form_Load() tour = 1 temps = 0 joueur2 = Text3.Text joueur1 = Text2(1).Text 'Case ligne 1 verif(1) = False 'Case1 verif(2) = False 'Case2 verif(3) = False 'Case3 'Case ligne 2 verif(4) = False 'Case4 verif(5) = False 'Case5 verif(6) = False 'Case6 'Case ligne 3 verif(7) = False 'Case7 verif(8) = False 'Case8 verif(9) = False 'Case9 joueur = 0 End Sub Private Sub Timer1_Timer() joueur1 = Text2(1).Text joueur2 = Text3.Text If (tour = 2) Or (tour = 4) Or (tour = 6) Or (tour = 8) Then play = True Else If (tour = 1) Or (tour = 3) Or (tour = 5) Or (tour = 7) Or (tour = 9) Then play = False End If End If If verifwin(1) = X And verifwin(2) = X And verifwin(3) = X Then Label3.Caption = "C'est " & joueur1 & " qui gagne!!!!" X.Picture = win.Picture O.Picture = loose.Picture Else If verifwin(1) = O And verifwin(2) = O And verifwin(3) = O Then Label3.Caption = "C'est " & joueur2 & " qui gagne!!!!" O.Picture = win.Picture X.Picture = loose.Picture Else If verifwin(1) = X And verifwin(5) = X And verifwin(9) = X Then Label3.Caption = "C'est " & joueur1 & " qui gagne!!!!" X.Picture = win.Picture O.Picture = loose.Picture Else If verifwin(1) = O And verifwin(5) = O And verifwin(9) = O Then Label3.Caption = "C'est " & joueur2 & " qui gagne!!!!" O.Picture = win.Picture X.Picture = loose.Picture Else If verifwin(4) = X And verifwin(5) = X And verifwin(6) = X Then Label3.Caption = "C'est " & joueur1 & " qui gagne!!!!" X.Picture = win.Picture O.Picture = loose.Picture Else If verifwin(4) = O And verifwin(5) = O And verifwin(6) = O Then Label3.Caption = "C'est " & joueur2 & " qui gagne!!!!" O.Picture = win.Picture X.Picture = loose.Picture Else If verifwin(7) = X And verifwin(8) = X And verifwin(9) = X Then Label3.Caption = "C'est " & joueur1 & " qui gagne!!!!" X.Picture = win.Picture O.Picture = loose.Picture Else If verifwin(7) = O And verifwin(8) = O And verifwin(9) = O Then Label3.Caption = "C'est " & joueur2 & " qui gagne!!!!" O.Picture = win.Picture X.Picture = loose.Picture Else If verifwin(1) = X And verifwin(4) = X And verifwin(7) = X Then Label3.Caption = "C'est " & joueur1 & " qui gagne!!!!" X.Picture = win.Picture O.Picture = loose.Picture Else If verifwin(1) = O And verifwin(4) = O And verifwin(7) = O Then Label3.Caption = "C'est " & joueur2 & " qui gagne!!!!" O.Picture = win.Picture X.Picture = loose.Picture Else If verifwin(2) = X And verifwin(5) = X And verifwin(8) = X Then Label3.Caption = "C'est " & joueur1 & " qui gagne!!!!" X.Picture = win.Picture O.Picture = loose.Picture Else If verifwin(2) = O And verifwin(5) = O And verifwin(8) = O Then Label3.Caption = "C'est " & joueur2 & " qui gagne!!!!" O.Picture = win.Picture X.Picture = loose.Picture Else If verifwin(3) = X And verifwin(6) = X And verifwin(9) = X Then Label3.Caption = "C'est " & joueur1 & " qui gagne!!!!" X.Picture = win.Picture O.Picture = loose.Picture Else If verifwin(3) = O And verifwin(6) = O And verifwin(9) = O Then Label3.Caption = "C'est " & joueur2 & " qui gagne!!!!" O.Picture = win.Picture X.Picture = loose.Picture Else If verifwin(3) = X And verifwin(5) = X And verifwin(7) = X Then Label3.Caption = "C'est " & joueur1 & " qui gagne!!!!" X.Picture = win.Picture O.Picture = loose.Picture Else If verifwin(3) = O And verifwin(5) = O And verifwin(7) = O Then Label3.Caption = "C'est " & joueur2 & " qui gagne!!!!" O.Picture = win.Picture X.Picture = loose.Picture Else If tour = 10 Then Label3.Caption = "La partie est terminée il n'y a pas de vainqueur!!" X.Picture = loose.Picture O.Picture = loose.Picture End If Label4.Caption = "C'est le " & tour - 1 & " tour(s)" End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End If End Sub
Conclusion :
Des mises a jours sont a venir comme une IA pour jouer contre l'ordinateur
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.