Nombre aléatoire

Signaler
Messages postés
5
Date d'inscription
jeudi 4 avril 2002
Statut
Membre
Dernière intervention
1 mai 2007
-
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
-
Je cherche une manière de créer un nombre aléatoire et de vérifier que celui-ci est différent de certain autres et si il est identique aux autres rechercher un autre nombre.

Exemple : La fonction Rnd renvoi le nombre 5 comme 5 n'est pas dans la liste des nombres déja occuper il est enregistrer dans un variable.

La fonction Rnd renvoi le nombre 3 comme 3 est dans la liste des nombres déja occuper il en cherche un nombre qui n''est pas dans la liste.

Merci de m'aider

Rod :blush)

2 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
16
Salut, c quoi ta liste de nombres ? un tableau ?, une table dans une bdd ? une string ?
et tes nombres, c de 0 à 9 ou sinon quelle plage ?

Cordialement, CanisLupus
Messages postés
2641
Date d'inscription
mercredi 2 juin 2004
Statut
Membre
Dernière intervention
8 janvier 2014
16
'--- Dans Général
dim p, lastp as integer


Randomize
etq:
p=int((rnd*10)+1)  'Choisi aléatoirement un chiffre entre 1 et 10
if p=lastp then goto etq   'Test si p est identique au précédent
lastp=p   'Enregistre p dans lastp, lastp qui contient le chiffre précédent
msgbox "le nombre est : " & p


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]