morpion pour 2 joueurs - tuto-informatique.seb30.overblog.com
Overblog Suivre ce blog
Editer l'article Administration Créer mon blog
tuto-informatique.seb30.overblog.com

tuto et astuce informatique,n'hesitez pas a faire un don pour le travail

morpion pour 2 joueurs

Publié le 4 Février 2013 par SEB in vb 2010

morpion pour 2 joueurs

le jeu est a telecharger a l

Public Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Label1.Text = "X" Then

Button1.Text = "X"

Label1.Text = "O"

Else

Button1.Text = "O"

Label1.Text = "X"

End If

Call Win()

Button1.Enabled = False End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If Label1.Text = "X" Then

Button2.Text = "X"

Label1.Text = "O"

Else

Button2.Text = "O"

Label1.Text = "X"

End If

Call Win()

Button2.Enabled = False

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If Label1.Text = "X" Then

Button3.Text = "X"

Label1.Text = "O"

Else

Button3.Text = "O"

Label1.Text = "X"

End If

Call Win()

Button3.Enabled = False

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If Label1.Text = "X" Then

Button4.Text = "X"

Label1.Text = "O"

Else

Button4.Text = "O"

Label1.Text = "X"

End If

Call Win()

Button4.Enabled = False

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

If Label1.Text = "X" Then

Button5.Text = "X"

Label1.Text = "O"

Else

Button5.Text = "O"

Label1.Text = "X"

End If

Call Win()

Button5.Enabled = False

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

If Label1.Text = "X" Then

Button6.Text = "X"

Label1.Text = "O"

Else

Button6.Text = "O"

Label1.Text = "X"

End If

Call Win()

Button6.Enabled = False

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

If Label1.Text = "X" Then

Button7.Text = "X"

Label1.Text = "O"

Else

Button7.Text = "O"

Label1.Text = "X"

End If

Call Win()

Button7.Enabled = False

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

If Label1.Text = "X" Then

Button8.Text = "X"

Label1.Text = "O"

Else

Button8.Text = "O"

Label1.Text = "X"

End If

Call Win()

Button8.Enabled = False

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

If Label1.Text = "X" Then

Button9.Text = "X"

Label1.Text = "O"

Else

Button9.Text = "O"

Label1.Text = "X"

End If

Call Win()

Button9.Enabled = False

End Sub

Private Sub Win()

If Button1.Text = "X" And Button2.Text = "X" And Button3.Text = "X" Then

Label2.Text = "X wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button4.Text = "X" And Button5.Text = "X" And Button6.Text = "X" Then

Label2.Text = "X wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button7.Text = "X" And Button8.Text = "X" And Button9.Text = "X" Then

Label2.Text = "X wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button1.Text = "X" And Button4.Text = "X" And Button7.Text = "X" Then

Label2.Text = "X wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button2.Text = "X" And Button5.Text = "X" And Button8.Text = "X" Then

Label2.Text = "X wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button3.Text = "X" And Button6.Text = "X" And Button9.Text = "X" Then

Label2.Text = "X wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button1.Text = "X" And Button5.Text = "X" And Button9.Text = "X" Then

Label2.Text = "X wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button3.Text = "X" And Button5.Text = "X" And Button7.Text = "X" Then

Label2.Text = "X wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button1.Text = "O" And Button2.Text = "O" And Button3.Text = "O" Then

Label2.Text = "O wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button4.Text = "O" And Button5.Text = "O" And Button6.Text = "O" Then

Label2.Text = "O wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button7.Text = "O" And Button8.Text = "O" And Button9.Text = "O" Then

Label2.Text = "O wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button1.Text = "O" And Button4.Text = "O" And Button7.Text = "O" Then

Label2.Text = "O wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button2.Text = "O" And Button5.Text = "O" And Button8.Text = "O" Then

Label2.Text = "O wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button3.Text = "O" And Button6.Text = "O" And Button9.Text = "O" Then

Label2.Text = "O wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button1.Text = "O" And Button5.Text = "O" And Button9.Text = "O" Then

Label2.Text = "O wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

If Button3.Text = "O" And Button5.Text = "O" And Button7.Text = "O" Then

Label2.Text = "O wins"

Button1.Enabled = False

Button2.Enabled = False

Button3.Enabled = False

Button4.Enabled = False

Button5.Enabled = False

Button6.Enabled = False

Button7.Enabled = False

Button8.Enabled = False

Button9.Enabled = False

End If

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

Button1.Enabled = True

Button2.Enabled = True

Button3.Enabled = True

Button4.Enabled = True

Button5.Enabled = True

Button6.Enabled = True

Button7.Enabled = True

Button8.Enabled = True

Button9.Enabled = True

Label2.Text = ""

Button1.Text = ""

Button2.Text = ""

Button3.Text = ""

Button4.Text = ""

Button5.Text = ""

Button6.Text = ""

Button7.Text = ""

Button8.Text = ""

Button9.Text = ""

End Sub

End Class

Commenter cet article