Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 16 00:01:35

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

TIKETAKETOE

Information sur la source

Note :

9,00 / 10

Catégorie :Jeux Niveau :Débutant Date de création :20/05/2003 Date de mise à jour :20/05/2003 02:28:24 Vu / téléchargé :2 009 / 107

Auteur : SamuelCadieux

Ecrire un message privé

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

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

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

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

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

tictactoe
- Form1.frm 9 212 octets
- Projet1.vbp 698 octets
- Projet1.vbw 49 octets
- tic tac toe.exe20 480 octets
- tic tac toe.jpg 24 928 octets

Télécharger le zip

Sources du même auteur

CRONO :CON MAIS PEU ÊTRE UTILE

Toutes les sources de SamuelCadieux

Sources de la même categorie

JEU DE MÉMOIRE CLASSIQUE par raffika

DES CHIFFRES ET DES LETTRES par ShayW

FAIRE REBONDIR PLUSIEURS BALLES par pierreh51

JE DES BRIQUES MOUVANTES par alpha5

TOWER BATTLE 2 par Softmama

Toutes les sources de la catégorie Jeux

Commentaires et avis

Commentaire de jotrash le 20/05/2003 12:27:49

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

Commentaire de SamuelCadieux le 20/05/2003 13:51:05

: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

Commentaire de Weado le 20/05/2003 23:44:22

bon potentiel pour un débutant
8/10

Commentaire de abronsius le 27/05/2003 08:09:38

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.

Ajouter un commentaire

Nos sponsors

Derniers Blogs

GESTION D'EXCEPTION AVEC LES TASKS par richardc

DéMARRONS AVEC LES TASKS par richardc

SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

Forum

RE : PROBLèME VéRIFICATION MD5 DEPUIS UN ENCLENCHEMENT DE BOUTON. par NHenry

RE : OUVRIR PLUSIEURS FICHIERS EXCEL EN MêME AVEC VB par ossama261988

ACCES ODBC par yannickcottin

RE : PROBLEME PROCEDURE FERMETURE FORM par thomasaurelien

RE : PROBLEME PROCEDURE FERMETURE FORM par ShayW

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Finalisation site d-encheres au centime
Budget : 2 800€
Recherche expert webmarketing
Budget : 3 000€
Republication - fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System