JEU DE BILLARD

Golog Messages postés 224 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 22 décembre 2009 - 21 juin 2004 à 18:49
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 3 juil. 2004 à 14:35

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/23865-jeu-de-billard

NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
3 juil. 2004 à 14:35

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.)

Utilisateur anonyme
28 juin 2004 à 18:34

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

Utilisateur anonyme
28 juin 2004 à 18:32

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)

cire2003 Messages postés 101 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 8 septembre 2010
28 juin 2004 à 17:05

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?

cs_Nic Messages postés 1 Date d'inscription mercredi 27 février 2002 Statut Membre Dernière intervention 25 juin 2004
25 juin 2004 à 11:11

bravo, très amusant 10/10

Utilisateur anonyme
24 juin 2004 à 14:37

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

gandalfkhorne Messages postés 70 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 1 octobre 2004
23 juin 2004 à 19:54

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.

MASTERVINCE Messages postés 33 Date d'inscription jeudi 21 août 2003 Statut Membre Dernière intervention 20 février 2010 1
23 juin 2004 à 00:01

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

Utilisateur anonyme
22 juin 2004 à 18:31

J'avoue que oui lol

NikoGJ Messages postés 13 Date d'inscription lundi 26 mai 2003 Statut Membre Dernière intervention 21 avril 2005
22 juin 2004 à 15:34

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

Utilisateur anonyme
22 juin 2004 à 01:20

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

xarier Messages postés 688 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 19 mai 2005
22 juin 2004 à 00:41

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 :)

Golog Messages postés 224 Date d'inscription jeudi 31 janvier 2002 Statut Membre Dernière intervention 22 décembre 2009
21 juin 2004 à 18:49

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

Discussions similaires

Générateur de regles de jeu...

Rebond de boule de billard

jeu solitaire avec carte

Jeu tetris-Création des pièces

Camera au dessus d'un billard et calcul de trajectoire

Votre réponse

Discussions similaires