PureBasic

Salut.

imgnum.i pas .l sur du x64 sinon il reste en 4octets.

Long .l 4 octets -2147483648 à +2147483647
Integer .i 4 octets (avec compilateur 32-bit) -2147483648 à +2147483647
Integer .i 8 octets (avec compilateur 64-bit) -9223372036854775808 à +9223372036854775807

Merci pour ce partage. Je testerai à l'occasion.

J'ai testé ton code j'ai un

Y'en a pas mal de différents. En voilà un de Ts-Soft
;======================================================================
; Module: Registry.pbi
;
; Author: Thomas (ts-soft) Schulz
; Date: Jun 27, 2014
; Version: 1.4.2
; Target Compiler: PureBasic 5.2+
; Target OS: Windows
; License ...

C'est très fluide bravo.

Salut,
Poste un code sommaire de ton soucis.

Bravo à toi.
C'est toujours sympa de voir un projet aboutir. Le plus dur étant souvent de finir
Bonne chance pour la suite.

J'avoue que pour l'éphéméride c'est top. Merci.

C'est très chouette. Je suis en 6.20
Par contre les déplacements souris + fleches me font vite tourner la tête, et je n'arrive pas à l'expliquer car j'ai quand même pas mal l'habitude de la 3D

Top !
Merci MindPhaser et merci falsam du coup.

Du lancement de thread dans une procedure je trouve ça étrange. C'est GPT qui t'a fait ça non ?
Petit exemple de Falsam ici : viewtopic.php?t=11872

Il ne faut pas oublier qu'il y a, avec le cumule de dès (2 pour l'exemple), plus de chance de faire des 7 que des 2 par exemple.
7 tu peux l'obtenir avec 1,6 avec 2,5 avec 3,4 et 4,3 etc...
Alors que 2 tu dois faire 1 et 1 épicétout... Pareil pour 12
Tu auras donc env 16% de faire un 7 en jetant 2 ...

Une version un peu plus condensée.
lancer = 9999

Dim resultat(lancer)
Dim stat(18)

For i = 0 To lancer - 1
rez = 0
For nb = 1 To 3
jet = Random(6, 1)
rez + jet
Next
resultat(i) = rez
stat(rez) + 1
Next

Debug "Voici les stats sur " + Str(lancer) + " lancés de 3 dés"
Debug ""

For i = 3 To ...

@Shadow @sph @venom @Mindphazer
On arrête là les débats stériles s'il vous plait. On parle code.

SPH a écrit : mar. 06/mai/2025 23:12 J'avais bien dit à l'avance (par 2 fois) : "excuse moi a l'avance"

Je l'avais vu sinon je t'aurai viré ton com' illico. je me suis cantonné à un "tu abuses"
Et sinon ton site HS ?