Télécharger le zip
Qu'as tu contre un simple a = Int (5000 * rnd )
Oui c bien, mais un peu long pour si peu!!!Je te le fait en 2 lignes!!!!RandomizeText4 = Fix(Rnd * 99999)++
DSl Renfield, en mm tps lol!!! ++ :)
Le rnd c'est bien, mais c'est pas suffisant, si vous avez créé des programmes ayant très (trop ?) souvent recours à rnd, vous vous rendrez vite compte que comme générateur de nombre pseudo aléatoire on peut mieux faire, et rnd se montre en fait relativement cyclique (donc pour le hasard, c'est un peu nul)...J'ai pas encore testé ton code dans ce genre de programme... à voir...
Pour répondre à Renfield et bien je vais tout simplement te dire ..Le nombre créer n'est pas réelement aléatoire..Tu obtiendra absolument à la première exécution du code ses nombres :3527,2667,2897 etc etc..Voilà tout le problème du 'simple' a = Int (5000 * rnd )
Pour pcpunch hihi oui exact cela fonctionne ;)Je vais éditer la source et mettre ce code qui est encore moins long et plus simple..
Guifr---> comme j'etais septique!!! g fais ce petit test avec 3 listboxList1.Clear'1er cycleFor i = 0 To 1000RandomizeList1.AddItem Fix(Rnd * 99999)Next iList2.Clear'2eme cycleFor i = 0 To 1000RandomizeList2.AddItem Fix(Rnd * 99999)Next iList3.Clear'VerificationFor i = 0 To 100 For a = 0 To 100 If List1.List(i) = List2.List(a) Then List3.AddItem a Next aNext iça donne 2 cycle de 1000 nombres aléatoire stocké dans list1 et list2Le list3 reprend les nombres tirer dans les 2 listes!!!Sur plusieurs tirage succesif, aucun nombre en commun dans les 2 listes, ni aucun nombre identique dans les listes donc je me dit que c pas si pseudo alétoire que ça!!!!
Niconapo--->c'est vrai mais pas si tu place un Randomize avant, il doit certainement s'agir d'un oubli de la part de reinfield le connaissant!!!Randomizea = Int(5000 * Rnd)List1.AddItem a
Niconapo, j 'avais pas vu que c'etait ta Src!!! tu trouve pas que poser un Zip pour 2 lignes qui de surcroit ne sont pas de toi, et en plus d'une simplicité enfantine!!! c'est un peu Naze!!!Enfin j'vai bientot poster une nouvelle source(Zip+Capture) :MsgBox "Nous sommes le " & DateSympa non ????
pcpunch --> Certes, j'avais dû utiliser la fonction Rnd() pour créer un générateur de labyrinthe, or, dans ce cas je ne me base pas sur la totalité des décimales, vu que je n'ai à faire le choix qu'entre 4 directions... Et là, le résultat était flagrant, c'était cyclique, dommage que je ne puisse insérer une image, ce serait flagrant...En ce qui concerne le programme de Niconapo (puisque c'est de celà qu'il s'agit), bon il ne s'agit vraiment pas d'une méthode "originale" de générer une série de nombre pseudo-aléatoires, elle ne fait que reprendre la fonction originale, n'ajoute rien, voir enlève des trucs vu qu'il y a moins de décimales...
Pour faire un peu plus aléatoire, il faut par exemple utiliser un timer et faire une boucle d'attente en attendant que l'on presse une touche, et se servir alors de cette temporisation pour initialiser le générateur pseudo aléatoire.
Au début quand j'ai commencé a developper.. j'aurais aimé avoir des sources de ce genre mais malheureusement il n'y en avait pas et c'etait beaucoup plus dur de s'y mettre.Si vous n'êtes pas content libre à vous mais je suis sur de faire des heureux avec ça..
Fix(Rnd * 99999) pcpunch, meerci xD
L'aléatoire c'est la mutliplication de l'heure, de la minute et de la seconde actuelle, diviser par son numéro IP fois un nombre pseudo aléatoire tiré avec "rnd", et tout ceci coupé en 4 caractères pris au hasard dans la chaîne...En gros pour être vraiment aléatoirement, l'utilisation de l'heure actuelle (heure, minute, seconde) est pratiquement obligatoire, et pourquoi pas la date non plus?
pour le code c'est vraimant le minimum."diviser par son numéro IP fois un nombre pseudo aléatoire tiré avec "rnd", et tout ceci coupé en 4 caractères pris au hasard dans la chaîne"Cette opération ne rend surment pas un nombre aléatoire car le nombre sorti avec le générateur pseudo aléatoire est prévisible, l'IP de meme.5/10
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 888 membres 169 nouveaux aujourd'hui 16 151 membres club