Salut a tous,

Je cherche a faire un petit jeu de carte dans lequel on effectue une distribution aleatoire sur un jeu de 32 cartes
J'ai essayé d'utiliser un tableau que je redimensionne a chaque tirage mais a l'affichage il ne m'apparait qu'une ou deux cartes sur les 8
Voici la gueule de mon algorithme

For i = 1 To 8

c =

CInt(Rnd() * 32 + 1 - i)

If c < 0 Then

c = c + 10

j1(i) = carte(c)

For t = 1 To c - 1

carte(t) = carte(t)

Next

For t = c To 32 - i

carte(t) = carte(t + 1)

Next

ReDimPreserve carte(32 - i)

EndIf

Next

Ensuite j'affiche le resultat dans des labels.
Pouvez vous me dire ce qu'il ne va pas dans mon algorithme et dans le meilleur des cas pouvez vous me
 transmettre un algorithme type de tirage de carte ecrit en VB2006 voire en VB2008.
J'espere avoir des reponses bientot.
Merci a vous 

Salut,

Salut
En fait cette expression for i=1 to c-1
                                   carte(t)=carte(t)
me sert a remplir mon tableau avec les cartes restantes mais vu ta reaction je pense que je vais le supprimer
Depuis j'ai trouvé mon erreur qui etait un end if mal placé.
Maintenant ca marche(apres quelques modif bien sur )
Pour tout dire je me suis apercu de mon erreur en cliquant sur envoyer lorsque j'ai posté le message.
Ironie quand tu nous tient.......
Merci pour la reponse
A plus

Salut,

Salut,
Oui a effet tu as raison.
J'ai supprime cette partie du programme et ca n'a rien changé
Merci pour ce conseil d'optimisation qui reduit gentillement mon code.
Maintenant mon programme distribue les cartes et les range selon leur valeur.
Il ne me reste plus qu'a trouvé un truc sympa a faire avec ca.........
Imagination is a gift from god.
Tchoooooo