Random

Commenter

Contenu du snippet

La fonction Rnd donne souvent les mêmes nombres. Avec ce code c'est des nombres différents

Source / Exemple : 


Function rndd(jusqa)
    'jusqua veut dire que le nombre retourné peut être entre 0 et jusqua

Dim Heure , Min , Sec , tmp

    Heure = Hour(Time)   'L'heure actuelle
    Min = Minute(Time)  'Minute actuelle
    Sec = Second(Time)  'Seconde actuelle
    
    'Ça pourrait être plus court, mais ça donne un nombre plus random
    tmp = (Sec + Min + Min) * (Heure * Min / (Min + Sec) + (Heure - Sec * Min)) * -1
    
    tmp = tmp Mod jusqa + 1 'Modulo
    tmp = Abs(tmp)  'Donne un nombre absolu
    
    rndd = tmp  'retourne le nombre
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_jp50)