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: 14929
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 22 mai 2022

- 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: 14929
Date d'inscription: vendredi 14 mars 2003
Statut: Modérateur
Dernière intervention: 22 mai 2022

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

Huugooo

Messages postés: 122
Date d'inscription: mercredi 25 février 2004
Statut: Membre
Dernière intervention: 2 juillet 2014

28 juin 2004 à 18:34

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

Huugooo

Messages postés: 122
Date d'inscription: mercredi 25 février 2004
Statut: Membre
Dernière intervention: 2 juillet 2014

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

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.

Afficher les 13 commentaires