Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 07:23:33

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : SIMULER CTRL+A PUIS CTRL+C NE MARCHE PAS TOUT LE TEMPS .. POURQUOI ? par jeremiesauve

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

+ de logiciels à télécharger

1 465 014 membres
64 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 049 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

GÉNÉRER UN NOMBRE VRAIMENT ALÉATOIRE

Information sur la source

Catégorie :Maths Niveau : Débutant Date de création : 18/01/2004 Date de mise à jour : 18/01/2004 19:45:32 Vu / téléchargé: 3 487 / 529

Auteur : Niconapo

Site perso

Ecrire un message privé

Note :

4,25 / 10

Commentaire sur cette source (15)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Ce code génère un nombre aléatoire.
Certes il n'est pas de moi, je l'ai modifié quelque peu pour le rendre le PLUS SIMPLE possible.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form1.frm 1 319 octets
Projet1.vbp 670 octets
Projet1.vbw 52 octets

Télécharger le zip

Sources de la même categorie

MINIMISATION DE FONCTIONS BOOLÉENNES par ChristophePel

EQUATION DIOPHANTIENNE DU 1ER DEGRÉ (MÉTHODE D'EULER) par apexinfo

LECTEUR DE PENSÉE .NET par Appil

MATHÉMATIQUESARAB par azelham

TABLES DE MULTIPLICATION par Caracal43

Toutes les sources de la catégorie Maths

Commentaires et avis

Commentaire de Renfield le 18/01/2004 12:51:40 administrateur CS

Qu'as tu contre un simple a = Int (5000 * rnd )

Commentaire de pcpunch le 18/01/2004 12:52:40

Oui c bien, mais un peu long pour si peu!!!
Je te le fait en 2 lignes!!!!

Randomize
Text4 = Fix(Rnd * 99999)

++

Commentaire de pcpunch le 18/01/2004 12:53:41

DSl Renfield, en mm tps lol!!! ++ :)

Commentaire de guifr le 18/01/2004 19:10:19

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...

Commentaire de Niconapo le 18/01/2004 19:41:16

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 )

Commentaire de Niconapo le 18/01/2004 19:42:51

Pour pcpunch hihi oui exact cela fonctionne ;)
Je vais éditer la source et mettre ce code qui est encore moins long et plus simple..

Commentaire de pcpunch le 18/01/2004 19:46:43

Guifr---> comme j'etais septique!!! g fais ce petit test avec 3 listbox

List1.Clear
'1er cycle
For i = 0 To 1000
Randomize
List1.AddItem Fix(Rnd * 99999)
Next i
List2.Clear
'2eme cycle
For i = 0 To 1000
Randomize
List2.AddItem Fix(Rnd * 99999)
Next i
List3.Clear
'Verification
For i = 0 To 100
    For a = 0 To 100
    If List1.List(i) = List2.List(a) Then List3.AddItem a
    Next a
Next i

ça donne 2 cycle de 1000 nombres aléatoire stocké dans list1 et list2
Le 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!!!!

Commentaire de pcpunch le 18/01/2004 19:52:30

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!!!

Randomize
a = Int(5000 * Rnd)
List1.AddItem a

Commentaire de pcpunch le 18/01/2004 20:02:00

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 " & Date

Sympa non ????

Commentaire de guifr le 18/01/2004 22:10:30

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...

Commentaire de Patrice99 le 19/01/2004 08:38:16

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.

Commentaire de Niconapo le 21/01/2004 11:44:58

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..

Commentaire de clad87 le 16/06/2005 01:20:31

Fix(Rnd * 99999) pcpunch, meerci xD

Commentaire de Mac2550 le 11/09/2005 18:34:12

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?

Commentaire de Julien39 le 05/05/2006 19:08:36

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