Randomize

Quand je fait :
r = Int(Rnd*255)+1

Comment empecher que r tombe 2 fois sur la même valeur ?
Par exemple r est choisit au hasard dans les 255 possibilité mais jamais une valeur est choisie deux fois de suite et donc quand r aurait fait toute les possibilité sa s'arreterai.

Y a t'il une fonction prédéfinie pour ça ou alors comment faire ?

Merci c assez urgent.

Je ne pense pas qu'il existe une fonction pour cà ! Par contre, ce que tu peux faire, c'est stocker dans un tableau les 255 valeurs, puis, à chaque fois que r tombe sur une des valeurs, tu la remplace par '0' la valeur correspondante du tableau. Ensuite, si r retombe sur cette valeur, tu ignore la valeur. Je pense pas que ce soit la meilleure solution, mais c'en est une ;-)

DarK Sidious

[Responsable de la rubrique API et responsable VB du site www.ProgOtoP.com]


-------------------------------
Réponse au message :
-------------------------------

> Quand je fait :
> r = Int(Rnd*255)+1
>
> Comment empecher que r tombe 2 fois sur la même valeur ?
> Par exemple r est choisit au hasard dans les 255 possibilité mais jamais une valeur est choisie deux fois de suite et donc quand r aurait fait toute les possibilité sa s'arreterai.
>
> Y a t'il une fonction prédéfinie pour ça ou alors comment faire ?
>
> Merci c assez urgent.

salut

deja tu peux utiliser randomize

sinon avec du code :

DIm DejaUtilisé(1 to 255) as boolean
dim result(1 to 255) as byte

randomize
cnt = 1
do
r = Int(Rnd*255)+1
if not dejautilisé(r) then
dejautilisé(r) = true
resultat(cnt) = r
cnt = cnt + 1
end if
loop CNt = 255

seulement il y a peut etre risque de boucle infinie

voila

ShareVB


-------------------------------
Réponse au message :
-------------------------------

> Quand je fait :
> r = Int(Rnd*255)+1
>
> Comment empecher que r tombe 2 fois sur la même valeur ?
> Par exemple r est choisit au hasard dans les 255 possibilité mais jamais une valeur est choisie deux fois de suite et donc quand r aurait fait toute les possibilité sa s'arreterai.
>
> Y a t'il une fonction prédéfinie pour ça ou alors comment faire ?
>
> Merci c assez urgent.

Autre possibilité utilisable unikement en VB, tu as :

Dim R as single
Dim RT as single
Dim T as Long
do
RT = int(rnd *255)+1
if not(T and RT) then
R = RT
T = T + 2^R
end if
loop while T < (<Somme des 2^x où x va de 1 à 256>)

Ceci n'est que théorique, je suis pas sur que le type long accepte un nombre de 2^256... a vérifier donc


-------------------------------
Réponse au message :
-------------------------------

> Quand je fait :
> r = Int(Rnd*255)+1
>
> Comment empecher que r tombe 2 fois sur la même valeur ?
> Par exemple r est choisit au hasard dans les 255 possibilité mais jamais une valeur est choisie deux fois de suite et donc quand r aurait fait toute les possibilité sa s'arreterai.
>
> Y a t'il une fonction prédéfinie pour ça ou alors comment faire ?
>
> Merci c assez urgent.