Aide pour un programme en Axe Parser

[Excale]

J'en ai une de 83+ si tu veux..

Chut!

Raconte !

[Loulou 54]

Merci grand fou, mais c'est pas la peine

Ok ^^ en tout cas j'aime bien ta signature !

[jacques]

Merci grand fou, mais c'est pas la peine

Ok ^^ en tout cas j'aime bien ta signature !

Moi aussi.

[Wellen]

Merci les gens ^^
Et pour mon problème ?

[kindermoumoute]

Pour choisir un nombre aléatoire, c'est la commande rand qui fait le boulot : elle sort un nombre entre 0 et 65535 (2 octets) :

Code: Select all

:rand=A

Donc grâce à notre super modulo, on peut choisir un "maximum" imposé, par exemple 9 :

Code: Select all

:rand^10=A
:.Un nombre positif divisé par 10 aura, avec la division euclidienne, un reste entre 0 et 9 !

Maintenant regardons nos touches sur le clavier de la calculatrice :

• F4 correspond à la touche 50
• F3 correspond à la touche 51
• F2 correspond à la touche 52
• F1 correspond à la touche 53

(Voir l'image keycode dans le zip)

Avant j'aurais fait :

Code: Select all

:rand^4+50=A
:If getKey=B=A
:.C'est bon, la touche correspond !
:End

Mais avec la dernière version du compilateur, ce code devrait fonctionner :

Code: Select all

:rand^4+50=A
:If getKey(A)
:.C'est bon, la touche correspond !
:End

Je te laisse méditer la dessus.

[tama]

à noter que faire un modulo n avec un rand ne donne pas quelque chose d'équiprobable (comprendre chaque événement (ici un nombre) n'a pas la même probabilité d'apparition), par exemple 65535%9 = 6, ce qui veut dire que les chiffres 0 à 5 auront théoriquement légèrement plus de chance d'apparaitre, mais ça se joue sûrement à 0.01% voire 0.001% (en fait c'est les nombres 65529 à 65535 qui "posent problème" mais chacun d'entre eux a 1/65536 d'apparaitre....)
enfin bref, c'est carrément négligeable dans ce cas, mais pour des champs plus larges (par exemple un nombre aléatoire de 0 à 10000) ça peut éventuellement jouer.

[Wellen]

Oui merci^^
mais moi c'est pour l'apparition du message que j'avais problème

J'aimerais que le message apparaisse à des moment espacés aléatoirement.. c'est là le problème

Pour le getkey j'étais tombé sur un code similaire donc rassuré merci kindermoumoute *j'avais justement pris les F.. parce que leur codetouch étaient "regroupés"*

Sur ce bonne nuit

[kindermoumoute]

Je n'ai pas tout compris de ton problème, mais si tu veux il y a la commande Pause qui permet de faire une pause en un temps donné en ms. Ou sinon, si ta boucle principale est un peu grande, tu peux utiliser astucieusement une condition DS pour exécuter un code au bout d'un certain temps... aléatoire.

[tama]

dans ce cas, il faut faire un "timer", un compte à rebours que t'initialises au hasard au début de la boucle et que tu décrémentes à l'intérieur de la boucle à intervalles réguliers, ce qui donnerait un truc du genre : (je ne connais pas l'axe, mais c'est pour montrer le principe général)

rand^100+50=A
Repeat B70

// boucle principale

...

// Décrémente A quelque part dans la boucle
A-1=A
If A=0
Then
// Timer écoulé, faire ce qu'il y a à faire (affichage ...)
...
// Génère un nouveau timer
rand^100+50=A
End
End


EDIT : kindermoumoutePause doit être bloquant je suppose, même si ce n'est pas dérangeant ici.

[kindermoumoute]

Oui, il n'y a pas de fonction pour repérer le temps très clairement, dommage.
Mais ton algorithme me semble bon :

Code: Select all

:0=A
:Repeat getKey(15)
:.Boucle principale
:...
:DS(A,rand^100+50)
:.Fait ce qu'il faut faire
:End
:End

Voili voiloù !