Nombre aléatoire

rvanbellingen Messages postés 5 Date d'inscription jeudi 4 avril 2002 Statut Membre Dernière intervention 1 mai 2007 - 7 nov. 2004 à 17:02
cboulas Messages postés 2641 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 8 janvier 2014 - 7 nov. 2004 à 18:20
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

cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 21
7 nov. 2004 à 17:19
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
0
cboulas Messages postés 2641 Date d'inscription mercredi 2 juin 2004 Statut Membre Dernière intervention 8 janvier 2014 16
7 nov. 2004 à 18:20
'--- 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]
0
Rejoignez-nous