Discussion :

[Dlieu]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

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

[DavidDeharbe]

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

[Dlieu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Steki-kun]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[InOCamlWeTrust]

Bien vu !

[Dlieu]

merci de l'aide