PureBasic

une petite amélioration sur cette fonction :
Dice = Random(5)
Ici, on va donc avoir les nombres suivants: 0,1,2,3,4,5

Par contre, si on n'a pas besoin de "0" : on utilise +1
Dice = Random(5) + 1 ; Renvoie une valeur entre 1 et 6
du coup, les chiffres sont les suivants: 1,2,3,4,5,6

Mais si je veux un chiffre supérieur à 0 et inférieur/égal à 5, je dois faire quelques adaptations.

L'idée est la suivante random(1 to 5) comme ça: j'ai directement les bons chiffres. J'ai regardé du coté du c/c++ pour comparer :
http://www.cplusplus.com/reference/clib ... dlib/rand/

Aussi, j'ai besoin de chiffres négatifs: j'ai testé la fonction pour voir ce qui se passerait:
a.l
For t=1 To 20
a=Random(-20)
Debug a
Next t
End

J'obtiens des resultats faux ( c'est normal la fonction n'est pas prévue)

A l'arrache :

Code : Tout sélectionner

For i = 1 To 5
  EssayeEncore:
  R = Random(i)
  If R = 0
    Goto EssayeEncore
  EndIf
  
  neg = Random(1)
  If neg = 0
    R - (2*R) 
  EndIf
  
  Debug R
  
Next

Code : Tout sélectionner

For i = 1 To 5
  EssayeEncore:
  R = Random(i)
  If R = 0
    Goto EssayeEncore
  EndIf

Quelle horreur

Pourquoi pas simplement
R = Random(4) + 1 ?

Code : Tout sélectionner

 neg = Random(1)
  If neg = 0
    R - (2*R)
  EndIf
 
  Debug R

Pour un nombre négatif compris entre -20 et -1
R = -1 - Random(19)

Comme je l'ai dit, "fait à l'arrache"

Code : Tout sélectionner

For i = 1 To 20
	R = Random(20)+1
		
	neg = -R
		
	Debug R
	Debug neg
Next

Fonctionnement normal d'une fonction de "Random" et identique au lien que tu fournis "Jerexgrz".

EDIT : Je déverrouille le sujet, suite aux remarques justifiées de certains d'entre vous ; j'avoue que ma parano de voir un post devenir comme ceux de Dayvid/Brayan m'a conduit à la précipitation.

Je vais être plus posé pour les prochaines modérations, je vais m'auto-modérer

il est vrais qu'en Purebasic , on n'a pas de fonction qui permet de choisir un chiffre au hasard parmis une liste de chiffres positif ou négatif (mélangé)

voici une fonction qui permet de choisir un chiffre aleatoire
parmis une liste de chiffre positif ou negatif

cette liste partira du parametre "a" jusqu'au parametre "b"
pour l'exemple de -10 a 10

Code : Tout sélectionner

Declare  rando(a,b)

debug rando(-10,10) ; ici on va choisir parmis une liste qui va de -10 a 10  ;o)

procedure rando(a,b)
	; By Dobro
	; info : la valeur du parametre "a" doit etre inferieur a "b"
	; ****
	; prepare la liste de numéros voulue
	for x=a to b
		liste.s=liste.s+str(x)+","
	next x
	calldebugger
	; maintenant on choisi une valeur de cette liste au hasard
	pos=random(CountString(liste.s,","))-1 ; on recup le nombre de virgules (donc le nombre de chiffre de la chaine-1...la virgule de fin)..et on tire un element au hasard
	valeur.s=stringfield(liste.s,pos,",") ; on extrait de la chaine la valeur tiré au hasard
	ProcedureReturn val(valeur)
endprocedure

; EPB

autre fonction , qui retourne un chiffre au hasard ,(positif ou negatif) mais sans plage

Code : Tout sélectionner

Declare  rando2(a)

for i=1 to 10 ; on va tirer 10 chiffre au hasard
	debug rando2(10) ;
next i
procedure rando2(a)
	; By Dobro
	; retourne un chiffre aleatoire positif ou negatif
	x=random(a) ; le chiffre qu'on tire au hasard
	de=random(1) ; le dé qui sert a choisir aleatoirement si ça va etre positif ou négatif
	if de=0 ; le chiffre sera négatif
		x=-x
	endif
	ProcedureReturn x
endprocedure
; 

; EPB

Cool !
Je regardais pour choisir un nombre aléatoire le plus vite possible ! en faisant le - d'instructions !
Et avec l'exemple de Taznormand, on a le resultat négatif rapidement !

EDIT : Je déverrouille le sujet, suite aux remarques justifiées de certains d'entre vous ; j'avoue que ma parano de voir un post devenir comme ceux de Dayvid/Brayan m'a conduit à la précipitation.

Je vais être plus posé pour les prochaines modérations, je vais m'auto-modérer

Laisse-moi poser mes questions TazNormande, j'ai compris mon erreur, je recommencerais pas

Tu locke mes sujet alors même que je fais rien de mal !

Locke si je fais n'importe quoi ou si tu penses que vraiment là j'exagère
car tu abuse pour moi de ta fonction et ça c’est mal à mon sens !

Façon je posterais qu’en cas de gros problème et puis c’est tous !

Un modérateur dois absolument rester neutre ce que tu ne fais pas (je pense)
Tu vaux mieux que ça à mon sens !

On a tous le droit à une deuxième chance, le tout est que cella servent de leçon !
Et c'est le cas pour moi crois-moi !

D’ailleur le Dayvid est comme mort, Brayan est une autre chance et je sais que je n’en aurais pas d’autre !

Je ne suis pas irrécupérable comme tu là dis car la mon bannissement a été un véritable électrochoc pour moi !
c'est une bonne façon de repartir à zéro !

Je sais que tu me déteste tous comme Dobro et G-Rom !

J’ai compris, ce n’est pas la peine de tous locker, regarde, j’ai tous changer mais l’or de ma présentation, ont ma reconnue et je me suis demander comment ils avaient fait, mais j’ai rien dis, je n’ai pas répliqué !

Par contre pour mon orthographe, je ne peux pas faire énormément plus !
Tu ne crois pas en moi, c’est ton choix mais d’autre si !

Merci, Cordialement !

Brayan a écrit : Je sais que tu me déteste tous comme Dobro et G-Rom !

Qui tu est pour dire ce que je pense ? Personne ! Je ne te déteste pas, je t'ai juste catalogué en cafard , casos , nobrain ,insecte rampant , qui n'a rien à faire parmi nous, c'est tout. de toute manière ton ip va être tricard...
tu ne respectes pas le forum , alors je te renvois cet irrespect par le biais de mes messages. Pour moi , tu n'est qu'un tocard , ce faire passer pour un enfant de 12 ans frise la folie...
Ici , quoi que tu en penses , personne n'est ton pote , j'ai beau connaître Dobro depuis 10 ans , je m'entends bien avec lui , ca ne fait pas de moi son pote , et vice versa.
je ne suis pas là pour me faire "des potes" ni pour raconté ma vie... Sort de chez toi & va voir une pute pour te faire dépuceler...

Brayan a écrit :
EDIT : Je déverrouille le sujet, suite aux remarques justifiées de certains d'entre vous ; j'avoue que ma parano de voir un post devenir comme ceux de Dayvid/Brayan m'a conduit à la précipitation.

Je vais être plus posé pour les prochaines modérations, je vais m'auto-modérer

Laisse-moi poser mes questions TazNormande, j'ai compris mon erreur, je recommencerais pas
Tu locke mes sujet alors même que je fais rien de mal !

Locke si je fais n'importe quoi ou si tu penses que vraiment là j'exagère
car tu abuse pour moi de ta fonction et ça c’est mal à mon sens !

Façon je posterais qu’en cas de gros problème et puis c’est tous !

Un modérateur dois absolument rester neutre ce que tu ne fais pas (je pense)
Tu vaux mieux que ça à mon sens !

On a tous le droit à une deuxième chance, le tout est que cella servent de leçon !
Et c'est le cas pour moi crois-moi !

D’ailleur le Dayvid est comme mort, Brayan est une autre chance et je sais que je n’en aurais pas d’autre !

Je ne suis pas irrécupérable comme tu là dis car la mon bannissement a été un véritable électrochoc pour moi !
c'est une bonne façon de repartir à zéro !

Je sais que tu me déteste tous comme Dobro et G-Rom !

J’ai compris, ce n’est pas la peine de tous locker, regarde, j’ai tous changer mais l’or de ma présentation, ont ma reconnue et je me suis demander comment ils avaient fait, mais j’ai rien dis, je n’ai pas répliqué !

Par contre pour mon orthographe, je ne peux pas faire énormément plus !
Tu ne crois pas en moi, c’est ton choix mais d’autre si !

Merci, Cordialement !

Ecoutes David, je pense qu'il est bon de clarifier un peu les choses :
- 1° merci d'orthographier les pseudos/noms des membres correctement
- 2° je ne te déteste pas, je ne te connais pas personnellement et je n'ai pas pour habitude de juger les gens sans les connaître un minimum DANS LA VRAIE VIE, mais il est vrai que tu ne m'incites pas à faire ta connaissance.
- 3° Je reste aussi neutre que possible, et c'est même moi qui ait demandé à Fred et Atlante que tu aies une ultime chance, que malheureusement tu as grillé très/trop rapidement.
4° Tu es irrécupérable dans le sens que ton comportement est immature : je rejoins G-Rom sur ton usurpation (se faire passer pour un gamin de 12 ans !), et que tu n'as fait et ne fais toujours pas d'effort pour changer.

Maintenant, ton pseudo a été signalé pour BAN à Fred, libre à lui de te bannir de nouveau ou non. S'il estime que tu mérites une TROISIÈME chance, c'est lui l'admin, alors il le fera, et peut-être te le signifiera t'il par MP.

Comme le dit G-Rom, on est pas là pour se faire des potes, ouvres les yeux : tu es sur un forum, qui plus est technique.

Sans aller aussi loin que G-Rom, il a toutefois raison en te conseillant de sortir et te faire de vrais amis, de sortir en boîte, de partager quelque chose avec tes collègues de boulot, de trouver un boulot si t'en as pas...

Sur ce, si ce topic repart en quenouille, je le verrouillerai à moins d'être devancé par un autre Modo ou par Fred.

Sort de chez toi & va voir une pute pour te faire dépuceler.

la fameuse , la légendaire , délicatesse de G-Rom

yeeeehaaaa ! "on va vous les garder vos betes a cornes"

G-Rom a écrit :
Brayan a écrit : Je sais que tu me déteste tous comme Dobro et G-Rom !
Qui tu est pour dire ce que je pense ? Personne ! Je ne te déteste pas, je t'ai juste catalogué en cafard , casos , nobrain ,insecte rampant , qui n'a rien à faire parmi nous, c'est tout. de toute manière ton ip va être tricard...
tu ne respectes pas le forum , alors je te renvois cet irrespect par le biais de mes messages. Pour moi , tu n'est qu'un tocard , ce faire passer pour un enfant de 12 ans frise la folie...
Ici , quoi que tu en penses , personne n'est ton pote , j'ai beau connaître Dobro depuis 10 ans , je m'entends bien avec lui , ca ne fait pas de moi son pote , et vice versa.
je ne suis pas là pour me faire "des potes" ni pour raconté ma vie... Sort de chez toi & va voir une pute pour te faire dépuceler...

Qui tu est toi pour dire ce que je je suis ? Personne !

T'es insultes tu est prier s'il te plait de te les garder pour toi, merci, je ne te manque pas de respect moi !
Voici encore des insultes gratos et personne ne vois rien à y redire:

Cafard, tocard, casos, nobrain, insecte rampant

Pour se qui est du conseil d'aller me faire dépuceler, encore une fois, qui es-tu pour me juger de la sorte, encore de l'irrespect a foison !
Mais oui, mon IP va être tricard comme tu dis mais si Fred aime les gents méchant comme toi, arrogant et plus si infinité, c'est lui que ça regarde, certes je fais un peut n'importe quoi parfois mais je ne suis je pense pas aussi irritant que tu l'es envers moi !

Quoi que tu en penses toi, personne n'est ton pote aussi

Pour moi, tu es grossier, méchant, insultant, méprisant, vexant mais tu es fors oui ça c'est certain

Donc parce que tu es fors, tu a le droit de tous faire quitte a épier certain membre comme moi !
Tu es dur et inflexible, tu te crois supérieur a autrui, tu te permet de me juger alors je te juge de la sorte !

Je ne pense pas que tu aimerais être épier comme tu le fais avec moi, insulter de:
Boulet, cafard, tocard, casos, nobrain, insecte rampant

Que tu aimerais que les gents te parle de la sorte !

Mais Fred je pense, lui ne te dis rien car tu es très fors en programmation et du moment qu'on est un membre soit disant irremplaçable
ont à le droit de tous faire, personne ne dira rien et si jamais des gents me parle et partage avec moi, alors ils ne valent pas mieux que moi, c'est se qu'on se dis surement !

Mais continue-ont !

Je remercie tous les membres qui ont cru en moi et qui m’ont aider, quand aux autre, que dieux est pitié de leurs âmes, amen !

Cordialement.

http://www.youtube.com/watch?v=7SSkObIf9Ic

Brayan a écrit :
Qui tu est toi pour dire ce que je je suis ? Personne !

T'es insultes tu est prier s'il te plait de te les garder pour toi, merci, je ne te manque pas de respect moi !
Voici encore des insultes gratos et personne ne vois rien à y redire:

Cafard, tocard, casos, nobrain, insecte rampant

Pour se qui est du conseil d'aller me faire dépuceler, encore une fois, qui es-tu pour me juger de la sorte, encore de l'irrespect a foison !
Mais oui, mon IP va être tricard comme tu dis mais si Fred aime les gents méchant comme toi, arrogant et plus si infinité, c'est lui que ça regarde, certes je fais un peut n'importe quoi parfois mais je ne suis je pense pas aussi irritant que tu l'es envers moi !

Quoi que tu en penses toi, personne n'est ton pote aussi
Pour moi, tu es grossier, méchant, insultant, méprisant, vexant mais tu es fors oui ça c'est certain

Donc parce que tu es fors, tu a le droit de tous faire quitte a épier certain membre comme moi !
Tu es dur et inflexible, tu te crois supérieur a autrui, tu te permet de me juger alors je te juge de la sorte !

Je ne pense pas que tu aimerais être épier comme tu le fais avec moi, insulter de:
Boulet, cafard, tocard, casos, nobrain, insecte rampant

Que tu aimerais que les gents te parle de la sorte !

Mais Fred je pense, lui ne te dis rien car tu es très fors en programmation et du moment qu'on est un membre soit disant irremplaçable
ont à le droit de tous faire, personne ne dira rien et si jamais des gents me parle et partage avec moi, alors ils ne valent pas mieux que moi, c'est se qu'on se dis surement !

Mais continue-ont !

Je remercie tous les membres qui ont cru en moi et qui m’ont aider, quand aux autre, que dieux est pitié de leurs âmes, amen !

Cordialement.

bla bla bla bla ....
bon tu peux verrouiller maintenant

ça n'a plus de rapport avec le sujet

PureBasic

[LOCKED suite à intervention "polluante"] random

[LOCKED suite à intervention "polluante"] random

Re: random

Re: random

Re: random

Re: random

Re: random

Re: random

Re: random

Re: random

Re: random

Re: random

Re: random

Re: random

Re: random

Re: random