Discussion :

[mimi6060]

bonjour ,

j'ai le code suivant :

Code :

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

1
2
 
send(@g10, recogniser,click_gesture(left, '', double, message(@g10, fill_pattern, colour(green)))),

qui fonctionne trés bien mon problème j'aimerais renvoyer a une fonction la postiton g - 10 comment faire ?

[Trap D]

On peut obtenir les coordonnées d'un objet par get(@g10,x X), get(@g10, y, Y) ou get(@g10, position, Point)

[mimi6060]

merci pour ta réponse je me suis mal exprimer désoler

je voudrais s'avoir comment faire la chose suivante

Code :

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

1
2
3
4
5
6
 
 
 
send(@g10, recogniser,click_gesture(left, '', double, message(@g10, getClick(@g10,g,10): ))),
 
getClick(Objet,COlone,Ligne):- send(Objet, fill_pattern, colour(red)),write('colone :'),write(COlone),write(' ligne : '),write(Ligne),nl.

souci il me dis que getClick n'existe pas

[Trap D]

Essaye :

Code :

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

send(@g10, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,g,10) ))),

[mimi6060]

Un grand merci ,

une dernière petite question comment remplacer mon

Code :

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

1
2
 
   read(Couleur-PositionC-PositionL),

par le fet

Code :

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

1
2
3
4
 
getClick(Objet,COlone,Ligne):- send(Objet, fill_pattern, colour(red)),write('colone :'),write(COlone),write(' ligne : '),write(Ligne),nl.
 
send(@g10, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,g,10) )),

merci d'avance

j'ai un peu de mal avec :

http://jfoutelet.developpez.com/arti...e=page_4#LIV-I

[Trap D]

j'ai un peu de mal avec :

http://jfoutelet.developpez.com/arti...e=page_4#LIV-I

Oui ce n'est pas facile d'utilisation, moi je ne m'en sers jamais. Je l'avais indiqué car ça existe mais c'est tout !
Je n'ai pas compris la première question

[mimi6060]

j'ai un programme prolog avec un read

Code :

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

 read(Couleur-PositionC-PositionL),

j'aimerais remplace ce read par une instruction qui dis attend un des clique suivant avant de continuer +- comme cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
attendreClick(Ligne,Colone,j):-
                  send(@e7, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,e,7) )),
		  send(@e8, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,e,8) )),
		  send(@e9, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,e,9) )),
		  send(@e10, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,e,10) )),
 
		  send(@f1, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,1) )),
		  send(@f2, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,2) )),
		  send(@f3, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,3) )),
		  send(@f4, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,4) )),
		  send(@f5, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,5) ))
                 getClick(Objet,Ligne,Colone).
 
 
getClick(Objet,COlone,Ligne):- send(Objet, fill_pattern, colour(red)),write('colone :'),write(COlone),write(' ligne : '),write(Ligne),nl.

[Trap D]

Je ne suis pas sur d'avoir bien compris ce que tu recherches, tu veux remplacer toute ta suite de send par une seule instruction qui regrouperait tout ?

[mimi6060]

c'est un puissance 4 je veux surtout que le programme attendent que un des send se déclenche avant que l'ordinateur joue son tour
avec le read il attendais que je rentre au clavier avant de continuer a jouer son pion ici je veux pareil avec les send

[Trap D]

Je crois que je commence à comprendre...
Il faut declarer une classe d'objet, en l'occurence dans ton cas, une classe "cell" qui réagira au clic de souris. Tu crées ton plateau de puissance 4 en créant tout une suite de cell.
Inspire toi de ce code : http://www.rosettacode.org/wiki/Honeycombs#Prolog, celui qui commence à
:- pce_begin_class(cell, path, "The honneycomb cell").

[mimi6060]

quel sont les instruction qui dise attendre le clique ?
et comment les recurer a partir du click

comment faire que le code suivant fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
attendreClick(Ligne,Colone,j):-
                  send(@e7, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,e,7) )),
		  send(@e8, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,e,8) )),
		  send(@e9, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,e,9) )),
		  send(@e10, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,e,10) )),
 
		  send(@f1, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,1) )),
		  send(@f2, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,2) )),
		  send(@f3, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,3) )),
		  send(@f4, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,4) )),
		  send(@f5, recogniser,click_gesture(left, '', double, message(@prolog, getClick, @receiver,f,5) ))
                 getClick(Objet,Ligne,Colone),send(Objet, fill_pattern, colour(yellow)).

car la j'ai le message :
getClick(_G3616, _G3617, _G3618)贠贀贿贀贠贀
ERROR: '$c_call_prolog'/0: Undefined procedure: getClick/

[Trap D]

Bonjour
Voici ce qui peut-être fait pour simplifier la gestion des send :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
:- pce_begin_class(cell, circle, "cellule de puissance 4").
variable(status, object, both, "clicked/unclicked").
 
initialise(P) :->
	send_super(P, initialise, 50),
	send(P, slot,  status, unclicked),
	send(P, fill_pattern, white),
	send(P, recogniser,
	     click_gesture(left, '', single, message(P, click))).
 
 
unlink(P) :->
	send(P, send_super, unlink).
 
 
% message processed when the cell is clicked
% or when the letter is pressed on the keyboard
click(P) :->
	% test if the cell has already been clicked
	% succeed when the the status is 'unclicked'
	get(P, slot, status, unclicked),
	% change the status
	send(P, slot, status, clicked),
	% change the color
	send(P, fill_pattern, red).
:- pce_end_class(cell).

Un click permet de changer la couleur de cellule.

Exemple d'utilisation dans l'affichage :

Code :

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

1
2
3
4
5
6
7
 
afficher:-new(D,dialog('Puissance 4')),
		  send(D, size, size(430,600)),
		  send(D, background, colour(mediumpurple)),
		  new(B, cell),
		  send(D, display, B, point(25,135)),
		  send(D, open).

Pour memoriser toutes les cellules, les objets "chain" sont très utiles.

[mimi6060]

j'ai le message d'erreur suivant qui s'affiche lors de l'exécution de ta solution :

[PCE: error: white: Cannot find. Path = ".:bitmaps:~/lib/bitmaps:$PCEHOME/bitmaps:/usr/include/X11/bitmaps"]

[Trap D]

Oui, c'est une question de choix de nom de couleur, en général j'utilise les définitions de la classe colour (ou color ?)

[mimi6060]

le souci c'est que a la méthode quand je click je dois passer des varibles comme la Grille et la liste de coup

[Trap D]

On peyt les mettre en variables globales à l'aide des assert/retract.

[mimi6060]

un grand merci pour toute vos reponces vous m'avez bien aider