A voir également:
- Tirer aléatoirement en VB
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Les fonctionnalités suivantes ne peuvent pas être enregistrées projet vb ✓ - Forum Excel
- Excel tirer une formule jusqu'en bas ✓ - Forum Excel
7 réponses
nautilus1995
Messages postés
250
Date d'inscription
vendredi 31 juillet 2009
Statut
Membre
Dernière intervention
9 novembre 2009
564
18 oct. 2009 à 14:34
18 oct. 2009 à 14:34
tu fait un codage pour une séléction aléatoire et ensuite tu l'applique à tes lettres de scrabble !
progggg
Messages postés
296
Date d'inscription
vendredi 6 juin 2008
Statut
Membre
Dernière intervention
11 septembre 2010
23
18 oct. 2009 à 15:30
18 oct. 2009 à 15:30
System.Random ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
progggg
Messages postés
296
Date d'inscription
vendredi 6 juin 2008
Statut
Membre
Dernière intervention
11 septembre 2010
23
18 oct. 2009 à 16:28
18 oct. 2009 à 16:28
Donc tu extrait des lettres de quel type de tableau ?
moiced59
Messages postés
1145
Date d'inscription
samedi 15 novembre 2008
Statut
Membre
Dernière intervention
18 août 2014
60
18 oct. 2009 à 16:39
18 oct. 2009 à 16:39
bonjour
tu peux utiliser une requete qui range aleatoirement toutes t letttre et toi tu vas chercher les 7 premieres
tu peux utiliser une requete qui range aleatoirement toutes t letttre et toi tu vas chercher les 7 premieres
Très cher ami ami, voici la solution à ton pb:
Dim t() As Char = {"E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "A", "A", "A", "A", "A", "A", "A", "A", "A", "I", "I", "I", "I", "I", "I", "I", "I", "N", "N", "N", "N", "N", "N", "O", "O", "O", "O", "O", "O", "R", "R", "R", "R", "R", "R", "S", "S", "S", "S", "S", "S", "T", "T", "T", "T", "T", "T", "U", "U", "U", "U", "U", "U", "L", "L", "L", "L", "L", "D", "D", "D", "G", "G", "M", "M", "M", "B", "B", "C", "C", "P", "P", "F", "F", "H", "H", "V", "V", "J", "Q", "K", "W", "X", "Y", "Z"}
Dim o, k, x, i As Byte
'Pour piocher 7 lettres dans le tableau t() et les écrire dans une textbox appelée lettre1
For x = 1 To 7
i = Int((100 * Rnd()))
If t(i) >= "A" And t(i) <= "Z" Then
lettre1.text += t(i)
t(i) = "-"
End If
Next
'ou alors, parce que'au fur et à mesure que tu pioches, il y a des lettres et "-"
For x = 1 To 7
Do
i = Int((100 * Rnd()))
Loop Until t(i) >= "A" And t(i) <= "Z" 'on est sûrs de ne pas tomber sur les "-", et risquer d'avoir moins de sept lettres
lettre1.Text += t(i)
t(i) = "-"
Next
Je pense que tu n'auras plus de pb après ça ;)
Dim t() As Char = {"E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "E", "A", "A", "A", "A", "A", "A", "A", "A", "A", "I", "I", "I", "I", "I", "I", "I", "I", "N", "N", "N", "N", "N", "N", "O", "O", "O", "O", "O", "O", "R", "R", "R", "R", "R", "R", "S", "S", "S", "S", "S", "S", "T", "T", "T", "T", "T", "T", "U", "U", "U", "U", "U", "U", "L", "L", "L", "L", "L", "D", "D", "D", "G", "G", "M", "M", "M", "B", "B", "C", "C", "P", "P", "F", "F", "H", "H", "V", "V", "J", "Q", "K", "W", "X", "Y", "Z"}
Dim o, k, x, i As Byte
'Pour piocher 7 lettres dans le tableau t() et les écrire dans une textbox appelée lettre1
For x = 1 To 7
i = Int((100 * Rnd()))
If t(i) >= "A" And t(i) <= "Z" Then
lettre1.text += t(i)
t(i) = "-"
End If
Next
'ou alors, parce que'au fur et à mesure que tu pioches, il y a des lettres et "-"
For x = 1 To 7
Do
i = Int((100 * Rnd()))
Loop Until t(i) >= "A" And t(i) <= "Z" 'on est sûrs de ne pas tomber sur les "-", et risquer d'avoir moins de sept lettres
lettre1.Text += t(i)
t(i) = "-"
Next
Je pense que tu n'auras plus de pb après ça ;)
