begin process at 2012 02 10 21:22:21
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Jeux

 > JEU DE BILLARD

JEU DE BILLARD


 Information sur la source

Note :
8,13 / 10 - par 8 personnes
8,13 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Jeux Niveau :Débutant Date de création :21/06/2004 Vu / téléchargé :3 692 / 622
Auteur : cire2003

Ecrire un message privé
Site perso
Commentaire sur cette source (13)
Ajouter un commentaire et/ou une note

 Description

Ce jeu est un simple jeu de billard ayant 3 tables différentes avec différents obstacles sur 2 d'entre elles. On peut jouer à la fois tout seul ou à deux. Ce jeu a été fait dans le cadre d'un cour et est, d'après moi, une parfaite réussite pour mon niveau. Je l'ai fait avec un ami donc le code n'est pas entièrement de moi.


 Conclusion

Bon, il n'y a qu'un seul bug connu. Les angles ne sont parfois pas les bons. Si quelqu'un c comment je pourrais les arranger, je lui serait sincèrement reconnaissant. Merci

 Fichier Zip

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

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture HTML EDITOR
Source avec Zip PONG
Source avec Zip JEU DE PENDU
Source avec Zip TIC-TAC-TOE
Toutes les sources de cire2003

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) DES CHIFFRES ET DES LETTRES par ShayW
Source avec Zip Source avec une capture FAIRE REBONDIR PLUSIEURS BALLES par pierreh51
Source avec Zip Source .NET (Dotnet) JE DES BRIQUES MOUVANTES par alpha5
Source avec Zip Source avec une capture TOWER BATTLE 2 par Softmama
JEU D'ADRESSE ,JEU DE TIR À LA SOURIS par yvesdudu
Toutes les sources de la catégorie Jeux

Commentaires et avis

Commentaire de Golog le 21/06/2004 18:49:31

bravo , 10/10 , sauf que c impeu sacadé chez moi^^

Commentaire de xarier le 22/06/2004 00:41:04

salut premirerement je voudrait t'encourager et te dir bravooo!!
voila je me presente je suis un  devloper c++ mais qui proguer en vb mais ta source et vraiment superbe tu gere bien le teste de collusion mais ce que j'aurais preferait c que tu mette de plus zoli images et que tu essay de le rendre plus rapide mais bravooo.

autre chose tu peut me filler un cours sur comment creé un jeu de billard :)

Commentaire de Huugooo le 22/06/2004 01:20:35

Pas mal du tout !!! C'est bien fait. Continue !

Commentaire de NikoGJ le 22/06/2004 15:34:52

Excellent ce p'tit jeu! A quand le passage à la 3D?
(PS: les commentaires sont trop forts...)

Commentaire de Huugooo le 22/06/2004 18:31:44

J'avoue que oui lol

Commentaire de MASTERVINCE le 23/06/2004 00:01:59

Bravo à toi, il n y a pas beaucoup de jeu de billard et l idée du billard futuriste devrait inspiré bon nombre d entre nous. Concernant les angles ton probleme et surtout present lorsque l angle approche les 90°. J ai trouve deux trois truc qui demanderai à etre retoucher en cours de partie si tu rentre la noir rien, et à la fin tu te retrouve avec une blanche seul sur la table ( details....) il serait interressant de pousser plus loin en esperant voir une nouvelle version bientot.
Encor bravo

Commentaire de gandalfkhorne le 23/06/2004 19:54:59

Le jeu à l'air bien, nivo billard et tt et tt, mais le A propos, il faut le rectifier, cette gestion est excuse moi le terme, mais je la trouve affreuse :

Private Sub Timer1_Timer()

'animation du texte
If seb.Caption = "" Then
    seb.Caption = "S"
    eric.Caption = "E"
    et.Caption = "e"
Else
    If seb.Caption = "S" Then
        seb.Caption = "Sé"
        eric.Caption = "Er"
        et.Caption = "et"
    Else
        If seb.Caption = "Sé" Then
            seb.Caption = "Séb"
            eric.Caption = "Eri"
        Else
            If seb.Caption = "Séb" Then
                seb.Caption = "Séba"
                eric.Caption = "Eric"
            Else
                If seb.Caption = "Séba" Then
                    seb.Caption = "Sébas"
                    eric.Caption = "Eric "
                Else
                    If seb.Caption = "Sébas" Then
                        seb.Caption = "Sébast"
                        eric.Caption = "Eric B"
                    Else
                        If seb.Caption = "Sébast" Then
                            seb.Caption = "Sébasti"
                            eric.Caption = "Eric Bé"
                        Else
                            If seb.Caption = "Sébasti" Then
                                seb.Caption = "Sébastie"
                                eric.Caption = "Eric Bé"
                            Else
                                If seb.Caption = "Sébastie" Then
                                    seb.Caption = "Sébastien"
                                    eric.Caption = "Eric Bél"
                                Else
                                    If seb.Caption = "Sébastien" Then
                                        seb.Caption = "Sébastien "
                                        eric.Caption = "Eric Béla"
                                    Else
                                        If seb.Caption = "Sébastien " Then
                                            seb.Caption = "Sébastien L"
                                            eric.Caption = "Eric Bélan"
                                        Else
                                            If seb.Caption = "Sébastien L" Then
                                                seb.Caption = "Sébastien Lo"
                                                eric.Caption = "Eric Bélang"
                                            Else
                                                If seb.Caption = "Sébastien Lo" Then
                                                    seb.Caption = "Sébastien Lor"
                                                    eric.Caption = "Eric Bélange"
                                                Else
                                                    If seb.Caption = "Sébastien Lor" Then
                                                        seb.Caption = "Sébastien Lora"
                                                        eric.Caption = "Eric Bélanger"
                                                    Else
                                                        If seb.Caption = "Sébastien Lora" Then
                                                            seb.Caption = "Sébastien Loran"
                                                            eric.Caption = "Eric Bélanger "
                                                        Else
                                                            If seb.Caption = "Sébastien Lora" Then
                                                                seb.Caption = "Sébastien Loran"
                                                                eric.Caption = "Eric Bélanger "
                                                            Else
                                                                If seb.Caption = "Sébastien Loran" Then
                                                                    seb.Caption = "Sébastien Lorang"
                                                                    eric.Caption = "Eric Bélanger L"
                                                                Else
                                                                    If seb.Caption = "Sébastien Lorang" Then
                                                                        seb.Caption = "Sébastien Lorange"
                                                                        eric.Caption = "Eric Bélanger La"
                                                                    Else
                                                                        If seb.Caption = "Sébastien Lorange" Then
                                                                            seb.Caption = "Sébastien Loranger"
                                                                            eric.Caption = "Eric Bélanger Laf"
                                                                        Else
                                                                            If eric.Caption = "Eric Bélanger Laf" Then
                                                                                eric.Caption = "Eric Bélanger Lafl"
                                                                                version.Caption = "1"
                                                                            Else
                                                                                If eric.Caption = "Eric Bélanger Lafl" Then
                                                                                    eric.Caption = "Eric Bélanger Lafla"
                                                                                    version.Caption = "1."
                                                                                Else
                                                                                    If eric.Caption = "Eric Bélanger Lafla" Then
                                                                                        eric.Caption = "Eric Bélanger Laflam"
                                                                                        version.Caption = "1.0"
                                                                                    Else
                                                                                        If eric.Caption = "Eric Bélanger Laflam" Then
                                                                                            eric.Caption = "Eric Bélanger Laflamm"
                                                                                            version.Caption = "1.0."
                                                                                        Else
                                                                                            If eric.Caption = "Eric Bélanger Laflamm" Then
                                                                                                eric.Caption = "Eric Bélanger Laflamme"
                                                                                                version.Caption = "1.0.1"
                                                                                                update.Caption = "Dernière mise à jour: 29 mai 2004"
                                                                                            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 If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

End Sub

Vous auriez pu raccourcir.

Commentaire de Huugooo le 24/06/2004 14:37:27

C'est vrai que ça aurait pu tenir en 7 ou 8 lignes

Commentaire de Nic le 25/06/2004 11:11:37

bravo, très amusant 10/10

Commentaire de cire2003 le 28/06/2004 17:05:04

merci pour tout. Bon, c la première année que je fait du vb donc, pour le passaga a la 3D :S:S:S... Si quelqu'un dassé bon en 3D pouvait me montré comment, je suis pas contre. jaimerais bien ca.

Aussi, si quelqu'un pouvait me dire comment jaurais pu réduire ca en 7 ou 8 ligne svp. Est-ce avec Elseif?

Commentaire de Huugooo le 28/06/2004 18:32:14

Voila comment faire :

Static Compteur As Integer
Compteur = Compteur + 1
seb.Caption = Left("Eric Bélanger Laflamme", Compteur)
eric.Caption = Left("Sébastien Loranger", Compteur)
et.Caption = Left("et", Compteur)

C'est tout =)

PS : Integer peut stoker des nombres jusque 32000 et quelques, donc tu peux tester pour voir si le compteur ne dépasse pas ou arréter le timer à la fin pour pas que ça plante avec un dépassement de capacité. (cas où les gens restent longtemps sur la fenêtre)

Commentaire de Huugooo le 28/06/2004 18:34:17

J'ai oublé version et update mais c'est le même fonctionnement !

Commentaire de NHenry le 03/07/2004 14:35:58 administrateur CS

il me semble que les boules peuvent sortir parfois, (Il me semble que 2 fois la noire sur 2 parties, vitesse peut-être?) ou elles vont tellement vite qu'on ne les voient pas bouger et rentre immédiatement dans un trou. Pour la canne, ce n'est pas très intuitif, fait plutot plus on appui longtemp, plus on tire fort. Sinon bonne source (le jeu ssurtout j'ai pas trop regarder le code.)

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


iPod touch 3rd Generation (64 Go)
Entre 374€ et 379€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Beautiful woman in a bikini meditating on the beachPhoto Single Large Rock Formation in Monument Valley
Photo Renewable Energy is Within Reach 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 2,402 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)