Morpion (2 joueurs 1 pc)

Télécharger le projet
Commenter

Description

voici le code d'un jeu de morpion tout simple se jouant à 2 (y a pas d'intelligence artificielle) sur un PC

Source / Exemple : 


dans module.bas

Public tour As Boolean
Public sym As String
Public gagnelig As String
Public gagnecol As String
Public sol As String
Public i As Integer

Public Sub testgagner()
gagnelig = ""
gagnecol = ""
sol = IIf(sym = "X", "XXX", "OOO")
i = 0
Do While gagnelig <> sol And gagnecol <> sol And i < 3
gagnelig = main.c(3 * i).Caption + main.c(3 * i + 1).Caption + main.c(3 * i + 2).Caption
gagnecol = main.c(i).Caption + main.c(3 + i).Caption + main.c(6 + i).Caption
i = i + 1
Loop

If gagnelig <> sol And gagnecol <> sol Then
    gagnelig = main.c(0).Caption + main.c(4).Caption + main.c(8).Caption
    gagnecol = main.c(2).Caption + main.c(4).Caption + main.c(6).Caption
End If

If gagnelig = sol Or gagnecol = sol Then
    MsgBox "Vous avez gagné", vbInformation, "Bravo"
    If sym = "X" Then
        main.Text1.Text = Str$(Int(main.Text1.Text) + 1)
    Else
        main.Text2.Text = Str$(Int(main.Text1.Text) + 1)
    End If
    Call nouveau
End If

tour = Not tour
If tour = False Then
    Call tourordi
End If
End Sub

Public Sub nouveau()
For i = 0 To 8
    main.c(i).Caption = ""
    main.c(i).Enabled = True
Next
End Sub

dans morp.frm

Private Sub c_Click(Index As Integer)
    sym = IIf(tour = True, "X", "O")
    c(Index).Caption = sym
    c(Index).Enabled = False
    Call testgagner
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub new_Click()
Call nouveau
End Sub

Private Sub quit_Click()
End
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.