Gambas France BETA


Pas de compte ? Incription

Générer des nombres aléatoires!

1
AuteurMessages
jeanyvon#1 Posté le 13/4/2010 à 12:11:00
Gambas? Ma! Et gustoHello!
c'est Foromus qui m'avait agacé et qui finalement m'a poussé à donner naissance à ce générateur de nombres aléatoires et pourtant moins réptitif que RND.
Public Function Alea() As Variant '
Dim k As Integer, i As Integer, TempAlea As String, StartTime As Float, Calctemp As Float
TempAlea = "0,"
For k = 0 To 9 'il y a 10 décimales '
StartTime = Timer
Randomize
For i = 0 To 100000 * Rnd '
Next
Calctemp = (Timer - StartTime) / 1000 'Un temps d'execution qui sera toujours différent
Randomize '
TempAlea = TempAlea & Mid$(CStr(Calctemp), Int(Rnd * 10) + 3, 1)
Next

Return TempAlea
End ' Gambas class file

Je crois qu'en GB2 ou en GB3 ça doit marcher. Moi je l'ai mis dans une class, mais c'est une fonction
A+
JY
Vieillir? On peut retarder mais pas y échapper!
spheris#2 Posté le 13/4/2010 à 13:25:00
StartTime = Timer


Comment fonctionne cette classe ?
Est ce que cela veut dire qu'un Timer doit être présent sur ma form ?
merci pour ta réponse.

;)
www.gambaslinux.fr
jeanyvon#3 Posté le 13/4/2010 à 15:42:00
Gambas? Ma! Et gustoVoui!
Ce n'est pas un objet, c'est le chrono-système.
voir cette page
c'est beaucoup plus explicite que tout ce que je saurais dire!
A+
JY :drunken:
Edition
Si c'est en GB2 il y a une variable qui fera des misères, Mais si la fonction "return" un string on peut facilement avoir un float pour les calculs....
Je viens d'essayer en 2 pas de problème.
Vieillir? On peut retarder mais pas y échapper!
gambix#4 Posté le 14/4/2010 à 23:18:00
Faire simple !http://gambasdoc.org/help/lang/randomize?fr
Moins de texte dans une signature c'est agrandir son espace.
1