Tiketaketoe

Soyez le premier à donner votre avis sur cette source.

Vue 2 841 fois - Téléchargée 155 fois

Description

héhé le fameux jeux, bien le voici mais jorais voulu ke mettre en «multiplayer» mais je navais pas les conaissanses D:.
Alors si vous voulez participer pour le rendre, nésitez pas ;D.
Mouais il nes pas tres optimiser,je le sais.

Source / Exemple :


Dim couleur As Boolean
Private Sub Form_Load()
couleur = True
End Sub

Private Sub recommencer_Click()
For i = tictac.LBound To tictac.UBound
    tictac(i).Enabled = True
    tictac(i).BackColor = RGB(192, 192, 192)
    couleur = True
    ki.Caption = "C'est aux rouges de jouer!"
    winner.Caption = ""
Next i
End Sub

Private Sub tictac_Click(index As Integer)
If couleur = True Then
    tictac(index).BackColor = RGB(255, 0, 0)
    couleur = False
    tictac(index).Enabled = False
    testr (index)
    ki.Caption = "C'est aux verts de jouer!"
Else
    tictac(index).BackColor = RGB(0, 255, 0)
    couleur = True
    tictac(index).Enabled = False
    testv (index)
    ki.Caption = "C'est aux rouges de jouer!"
End If
End Sub
Public Sub testr(index)
If tictac(1).BackColor = tictac(2).BackColor And tictac(2).BackColor = tictac(3).BackColor And tictac(3).BackColor = RGB(255, 0, 0) Or _
    tictac(1).BackColor = tictac(4).BackColor And tictac(4).BackColor = tictac(7).BackColor And tictac(7).BackColor = RGB(255, 0, 0) Or _
    tictac(1).BackColor = tictac(5).BackColor And tictac(5).BackColor = tictac(9).BackColor And tictac(9).BackColor = RGB(255, 0, 0) Or _
    tictac(2).BackColor = tictac(5).BackColor And tictac(5).BackColor = tictac(8).BackColor And tictac(8).BackColor = RGB(255, 0, 0) Or _
    tictac(3).BackColor = tictac(6).BackColor And tictac(6).BackColor = tictac(9).BackColor And tictac(9).BackColor = RGB(255, 0, 0) Or _
    tictac(3).BackColor = tictac(5).BackColor And tictac(5).BackColor = tictac(7).BackColor And tictac(7).BackColor = RGB(255, 0, 0) Or _
    tictac(4).BackColor = tictac(5).BackColor And tictac(5).BackColor = tictac(6).BackColor And tictac(6).BackColor = RGB(255, 0, 0) Or _
    tictac(7).BackColor = tictac(8).BackColor And tictac(8).BackColor = tictac(9).BackColor And tictac(9).BackColor = RGB(255, 0, 0) Then
        If tictac(index).BackColor = RGB(255, 0, 0) Then
            winner.Caption = "Les rouges ont gangé!"
            ki.Caption = "Cliquez sur recommencer pour jouer une autre partie!"
        End If
    For i = tictac.LBound To tictac.UBound
        tictac(i).Enabled = False
    Next i
ElseIf tictac(1).Enabled = False And tictac(2).Enabled = False And tictac(3).Enabled = False And tictac(4).Enabled = False And tictac(5).Enabled = False And tictac(6).Enabled = False And tictac(7).Enabled = False And tictac(8).Enabled = False And tictac(9).Enabled = False Then
    ki.Caption = "Cliquez sur recommencer pour jouer une autre partie!"
    winner.Caption = "Partie null!"
End If
End Sub
Public Sub testv(index)
If tictac(1).BackColor = tictac(2).BackColor And tictac(2).BackColor = tictac(3).BackColor And tictac(3).BackColor = RGB(0, 255, 0) Or _
    tictac(1).BackColor = tictac(4).BackColor And tictac(4).BackColor = tictac(7).BackColor And tictac(7).BackColor = RGB(0, 255, 0) Or _
    tictac(1).BackColor = tictac(5).BackColor And tictac(5).BackColor = tictac(9).BackColor And tictac(9).BackColor = RGB(0, 255, 0) Or _
    tictac(2).BackColor = tictac(5).BackColor And tictac(5).BackColor = tictac(8).BackColor And tictac(8).BackColor = RGB(0, 255, 0) Or _
    tictac(3).BackColor = tictac(6).BackColor And tictac(6).BackColor = tictac(9).BackColor And tictac(9).BackColor = RGB(0, 255, 0) Or _
    tictac(3).BackColor = tictac(5).BackColor And tictac(5).BackColor = tictac(7).BackColor And tictac(7).BackColor = RGB(0, 255, 0) Or _
    tictac(4).BackColor = tictac(5).BackColor And tictac(5).BackColor = tictac(6).BackColor And tictac(6).BackColor = RGB(0, 255, 0) Or _
    tictac(7).BackColor = tictac(8).BackColor And tictac(8).BackColor = tictac(9).BackColor And tictac(9).BackColor = RGB(0, 255, 0) Then
        If tictac(index).BackColor = RGB(0, 255, 0) Then
            winner.Caption = "Les verts ont gangé!"
            ki.Caption = "Cliquez sur recommencer pour jouer une autre partie!"
        End If
    For i = tictac.LBound To tictac.UBound
        tictac(i).Enabled = False
    Next i
ElseIf tictac(1).Enabled = False And tictac(2).Enabled = False And tictac(3).Enabled = False And tictac(4).Enabled = False And tictac(5).Enabled = False And tictac(6).Enabled = False And tictac(7).Enabled = False And tictac(8).Enabled = False And tictac(9).Enabled = False Then
    ki.Caption = "Cliquez sur recommencer pour jouer une autre partie!"
    winner.Caption = "Partie null!"
End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
19
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
26 novembre 2007

Mon Dieu, les rouges ont gangé !! Ca devait finir par arriver... pour info, y avait, à l'époque, le TIC TAC TOE 3D totalement écrit en Gwbasic qui faisait du 4x4x4... pourquoi pas remettre ca à la mode.
Messages postés
119
Date d'inscription
mercredi 19 juin 2002
Statut
Membre
Dernière intervention
21 avril 2009

bon potentiel pour un débutant
8/10
Messages postés
31
Date d'inscription
dimanche 8 septembre 2002
Statut
Membre
Dernière intervention
20 juin 2003

:D héhé j'avoue, mais je projette d'en faire un jouant en tridimensionnel, en d'autre mots 3 feuilles le tic tac toe qui donneront limpression d'être en 3d. bha c a suivre
Messages postés
373
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
19 juin 2007

pa mal 8/10 mais ca serait bien de revoir l'aspect graphique lol

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.