Distribution de carte en VB
BroodLulu
Messages postés
15
Date d'inscription
lundi 14 juillet 2003
Statut
Membre
Dernière intervention
19 septembre 2004
-
2 sept. 2004 à 14:57
BroodLulu Messages postés 15 Date d'inscription lundi 14 juillet 2003 Statut Membre Dernière intervention 19 septembre 2004 - 2 sept. 2004 à 15:20
BroodLulu Messages postés 15 Date d'inscription lundi 14 juillet 2003 Statut Membre Dernière intervention 19 septembre 2004 - 2 sept. 2004 à 15:20
2 réponses
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
2 sept. 2004 à 15:17
2 sept. 2004 à 15:17
Lol super le nom du jeu j'aurais pas trouvé mieu... ;)
Pour ton tris c'est assez simple tu crée d'abord ta collection de carte :
Dim Deck As New Collection
puis tu ajoute toute les cartes imaginon 52 :
Dim i as long
For i= 1 to 52
Deck.Add i
next
puis tu crée ta fonction de distribution :
Dim Joueur(2) as new collection
Dim j as long
Dim k as long
Do while Deck.count
For j = 1 to (1+Ubound(Joueur))
'tire une carte au hazard
k = int(rnd * Deck.Count)
'donne la carte
Joueur(j).Add Deck(k)
'enleve la carte du sabot
Deck.remove k
'passe au joueur suivant
next
loop
@+
Pour ton tris c'est assez simple tu crée d'abord ta collection de carte :
Dim Deck As New Collection
puis tu ajoute toute les cartes imaginon 52 :
Dim i as long
For i= 1 to 52
Deck.Add i
next
puis tu crée ta fonction de distribution :
Dim Joueur(2) as new collection
Dim j as long
Dim k as long
Do while Deck.count
For j = 1 to (1+Ubound(Joueur))
'tire une carte au hazard
k = int(rnd * Deck.Count)
'donne la carte
Joueur(j).Add Deck(k)
'enleve la carte du sabot
Deck.remove k
'passe au joueur suivant
next
loop
@+
E.B.
BroodLulu
Messages postés
15
Date d'inscription
lundi 14 juillet 2003
Statut
Membre
Dernière intervention
19 septembre 2004
2 sept. 2004 à 15:20
2 sept. 2004 à 15:20
Ce n'est moi qui ai inventé ce nom !!! :-)
C'est un jeu assez répandu d'ailleurs ^^
En tout cas merci pour ta réponse mais tu auras surement encore de mes nouvelles d'ici peu, en espérant que ça ne t'embetera pas trop..
@+
C'est un jeu assez répandu d'ailleurs ^^
En tout cas merci pour ta réponse mais tu auras surement encore de mes nouvelles d'ici peu, en espérant que ça ne t'embetera pas trop..
@+
