Probleme de Key event sur le module Graphique

Bonjour, j'ai un probleme par rapport au module graphique, alors voila la fonction

Code:

---

1 2 3 4 5 6 7 8 9 10

let jeux lu hu k= let i=ref (wait_next_event [ Poll; Key_pressed]) in while !i.key<>'p' do begin read_key(); Thread.delay 0.5; jeux2 lu hu k end done;;

---

et voici mon probleme,
Enfete je voulais que le programme fasse un tour de boucle toutes les 0.5 secondes (ca marche) mais je voulais qu'il s'arrete de tourner si l'utilisateur presse 'p' dans la fenetre graphique, mais ca marche pas (ca tourne a l'infini sans jamais prendre en compte la touche de clavier pressé apparement) :cry:

j'ai essayé pas mal de combinaisons mais sans succes, donc si vous pouvez m'aider un peu ca serait simpa merci

Un "if" à la place du "while" ne fait pas l'affaire?

Citation:

---

Envoyé par DavidDeharbe

Un "if" à la place du "while" ne fait pas l'affaire?

---

alors j'ai tenté en recursif mais ca change pas trop le probleme :

Code:

---

1 2 3 4 5 6 7 8

let rec test lu hu k= let i=(wait_next_event [ Key_pressed; Poll]) in if not(i.key='p') then begin Thread.delay 0.5; truc lu hu k; test lu hu k end;;

---

le probleme :
- que j'appuie ou non sur 'p' ca change rien



Je sais que la syntaxe n'est pas tres optimale pour Ocaml mais j'aimerai savoir comment on fait pour que

Code:

---

1 2 3 4

tant que utilisateur appuie pas sur 'p' alors Thread.delay 0.5 (= c'est pour avoir une pause) instruction fin tant que

---

bref j'arrive pas a trouver mon erreur :(
pour je penses pas faire de betise en utilisant les fonctions du module graphique Cf http://caml.inria.fr/pub/docs/manual.../Graphics.html


EDIT : Bon bin j'ai toujours pas trouvé la solution, par contre c'est possible de reinitialiser read_key () quand celui-ci prend une valeur fixe ?? (c'est a dire quand il la garde apres la fin d'une certaine fonction car j'arrive pas a la changer apres cette etape) merci :aie:

Citation:

---

Envoyé par Dlieu

Bonjour, j'ai un probleme par rapport au module graphique, alors voila la fonction

Code:

---

1 2 3 4 5 6 7 8 9 10

let jeux lu hu k= let i=ref (wait_next_event [ Poll; Key_pressed]) in while !i.key<>'p' do begin read_key(); Thread.delay 0.5; jeux2 lu hu k end done;;

---

---

Salut, ton code me semble assez douteux : tu récupères l'état courant au début de ta fonction (par wait_next_event associé à Poll) puis tu le teste ensuite en boucle alors que rien ne vient le changer. Dans ce programme, passé la deuxième ligne, !i.key sera une constante donc c'est logique que le programme boucle infiniment. En d'autres termes : tu testes systématiquement l'état initial que tu avais sauvé dans i.

La fonction read_key attend un caractère et le renvoie (elle est de type unit -> char), or tu l'appelles et tu ne fais rien avec le caractère qu'elle renvoie (NB : Caml dois te donner un warning ici => les warnings sont IMPORTANTS en général). Ce que tu voudrais faire, c'est plutôt du genre

Code:

---

1 2	while read_key () <> 'p'

---

Et si tu voulais que la boucle s'effectue sans s'arrêter pour attendre une touche, mais jusqu'à ce que tu tapes "p", il faudrait rajouter dans le corps de boucle un polling du statut courant du clavier :

Code:

---

1 2 3 4 5

while !i.key<>'p' do ... i := wait_next_event [ Poll; Key_pressed] done;;

---

J'espère que ca répondra à ton problème,

SK

Bien vu !

merci de l'aide