Vous avez une idée pour améliorer ou modifier PureBasic ? N'hésitez pas à la proposer.
-
Mytic
- Messages : 466
- Inscription : mer. 25/juil./2007 0:13
Message
par Mytic »
Pourquoi ne pas appeler Random , Rnd ?
C’est plus pratique ! non ?
-
Backup
- Messages : 14526
- Inscription : lun. 26/avr./2004 0:40
Message
par Backup »
Mytic a écrit :Pourquoi ne pas appeler Random , Rnd ?
C’est plus pratique ! non ?
facile
tu compille ça :
Code : Tout sélectionner
ProcedureDLL rnd(x)
d=Random(x)
ProcedureReturn d
EndProcedure
avec taillebite , et voila une nouvelle fonction Purebasic
-
Mytic
- Messages : 466
- Inscription : mer. 25/juil./2007 0:13
Message
par Mytic »
Et ça ne diminue pas la vitesse ? (Remplacer une commande par 3) ?
-
Backup
- Messages : 14526
- Inscription : lun. 26/avr./2004 0:40
Message
par Backup »
Mytic a écrit :Et ça ne diminue pas la vitesse ? (Remplacer une commande par 3) ?
je pense que c'est plus que tres négligeable !!
mais bon faudrai l'avis de Denis ou Dri ou quelqu'un qui pourrai répondre
-
Mytic
- Messages : 466
- Inscription : mer. 25/juil./2007 0:13
Message
par Mytic »
Ok je lance un avis de recherche !!
Wanted !!!
Cherche Denis ou Dri
Pour répondre à la question
Prime : 0000000$
-
Fortix
- Messages : 559
- Inscription : mar. 30/mai/2006 17:03
Message
par Fortix »
AH le bon vieux RND*x,
-
ATHOW
- Messages : 226
- Inscription : mer. 29/déc./2004 16:54
Message
par ATHOW »
Dr. Dri a écrit :Code : Tout sélectionner
Macro Rnd
Random
EndMacro
For i = 1 To 10
Debug Rnd(100)
Next i
Dri
Ce qui est certain, c'est qu'à l'éxécution, ceci est aussi efficace/performant que le random original !
-
djes
- Messages : 4252
- Inscription : ven. 11/févr./2005 17:34
- Localisation : Arras, France
Message
par djes »
Je crois que la raison vient du fait que traditionnellement, "rnd" devrait renvoyer un nombre flottant entre 0 et 1.
-
Dr. Dri
- Messages : 2527
- Inscription : ven. 23/janv./2004 18:10
Message
par Dr. Dri »
djes a écrit :Je crois que la raison vient du fait que traditionnellement, "rnd" devrait renvoyer un nombre réel entre 0 et 1.
Code : Tout sélectionner
#Random_Max = $7FFFFFFF
Macro Rnd()
(0.0 + Random(#Random_Max) / #Random_Max)
EndMacro
For i = 1 To 20
Debug Rnd()
Next i
Dri