rnd speciale

bonjour,
voila je me demandais un petit truc sur lequelle je bloque j'aimerais faire un jeu basic de bataille (le jeu de carte) j'ai les carte une idee du code a mettre mais j'ai jamais fait de rnd enfin si un mais vraiment naze en gros j'aimerais que quand l'utilisateur comme l'ordi pioche ce soit une carte aleatior genre sa tire un nombre aleatoire entre 1 et 52 si ses la 1 bah sa sort exemple l'as de pique mais une fois que cette carte est tiree je ne veut plus qu'elle puisse etre prise donc comment faire exemple un rnd qui ferais un random entre 1 et 52 puis si exemple il tire la 47 bah au random futur (dans ce programme par pour toujour ^^) il ne puisse plus tirer la 47 donc il ferais un random sur tt les nombre entre 1 et 52 sauf la 47 etc par apres donc apres y tire la 42 bah au trage d'apres y pourra pas prendre ni la 47 ni la 42 etc etc vous voyez ce que je veux dire ? enfin voila et je trouve pas comment faire :s ses le seul truc qui me bloque ses ce **** de random (rnd) donc si pouviez me pondre un chtit code ou me conseiller ou autre enfin pour que j'arrive a avoir cette routine se serais bien sympa (pour ceux comme dans mes anciens post qui vienne dire ohhhh le noob , ohhh le chiant etc passer votre chemin je suis ici pour apprendre et non pour embeter mon monde ...)
donc voila je suis ouvert a tous (sauf insultes etc ^^)
merci d'avance
Diablaman

ps: pour ceux qui voudrais m'aider personnellement pour que je comprenne mieux voila mon MSN diablaman@hotmail.com
encore merci d'avance ^^

Salut

Les cartes sont un type ou une string, tu fais comme tu veux.

Utilises une collection avec toutes les cartes dedans.

Au depart tu as 52 cartes.

Ton random tu ne fais sur l'index de ta carte et le max c'est le nombre de cartes dans la collection.

Exemple :
il y a 32 cartes dans la collection

Le random te donne 1
Alors tu prends la carte dont l'index est 1
Et par exemple ta carte est 10 trefle

Tu supprimes la carte de la collection

(la collection bouche le trou toute seule)

Tu veux remettre la carte le 10 trefle change d'index il prendra l'index 31 (base0)



(quand tu la rajoutes du la mets a la fin)

Normalement ca fonctionne.


Voila

Violent Ken

Oui, la suggestion de us_30 n'est pas mauvaise non plus.

Par contre, dans ma source (plus haut),

    If Res > 0 Then
        'alors c'est pas bon
        a = a
    Else

peut être remplacé par

    If Res > 0 Then
        'alors c'est pas bon
    Else

La ligne a=a est évidement inutile, c'était juste pour les tests...
@+

Bonjour,
Comment détruire définitivement en bloc la collection ?
Pas d'autre solution que de "Remove" chaque élément dans une boucle ?
Merci.

Salut

Regardes si

set macol = nothing fonctionne.

Sinon

Set macol =new collection

Efface les données ;-)

merci merci j'adore vos reponse elle sont bien etc ^^ la je suis super malade donc je ne sais pas tester dans l'imediat (tt le temp clouer au lit :s) mais sinon je v tous les essayer et voir lequelles me convient le mieux ensuite je valide les reponse ^^ sa devrais pas tarder je pense tester sa demain ou se soit (samedi soir grand max ^^) sinon en faite j'aurais voulu un truc hyper simple mais vraiment simple de simple que meme un demeurer avec des moufles puisse comprendre genre :
private sub command1_click()
dim carte(52) as integer
randomize
nb = Int(Rnd * 52) + 1
if carte(1) then
sa tire la carte
sa l'efface et donc ne permet plus de la tirer donc la vire du rnd
end if
if carte(2) then
sa tire la carte
sa l'efface et donc ne permet plus de la tirer donc la vire du rnd
end if
end sub

voyez un truc super simple quoi ^^ que je peux parametrer et changer comme je veux du genre si du jour au lendemain je met plus 52 mais 67 bah je peux le faire et peux reparametrer le tt enfin vous voyez ce que je veux dire ^^ enfin je v tester vos reponse puis je valide celle qui me convient le mieux sinon si vous trouvez plus simple (car moi je suis vachement noob en random etc :s) bah poster allez y meme si y a 20 code je les essayerais en plus sa peut tjrs servir aux autres ^^ (a moi aussi en meme temp evidement ^^)

merci d'avance ;-)

a oui petite precision car je vient de tester les code ^^ j'arrive pas a les comment dire "modifier" je veux dire tant que le numero de la carte apparait en msgbox donc le nb ou le nbre sa depend des deux code bah le rnd est parfait (j'ai passer mon temp a faire des grille sur papier a compter le tirage barrer le chiffre etc) mais si je modifie exemple pour ken :
MsgBox Nbre  'display le resultat
par
label1.caption = Nbre  'display le resultat
ou pour us_30 :
MsgBox "Votre n° de carte : " & nb
par
label1.caption = "Votre n° de carte : " & nb
bah alors la au bout de +- en general 16 tirage bah la y redonne des chiffre qu'il a deja donner pour ken il me redonnais en general 3/4 fois 49 et pour us il me donnais en general 3/4 fois 11 et 16
enfin voila comment adapter sa a un label et non a un msgbox (car je vois mal tt les tour dire au joueur vous avez tirer sa avec un msgbox puis dire l'adversaire a tirer sa encor epar msgbox ...mais plutot p

mais plutot par label exuser moi j'ai mal clicker ^^ (raccourci clavier enfoncer sans faire expres ^^)