Afficher les résultats d'une recherche

**baouk2000** · 01/03/2009, 17h40

salut, j'ai essayé d'ecrire la fonction de recherche afin d'afficher les resultats d'une recherche a partir d'un mot introduit par l'utilisateur mais il m'affiche l'erreur suivante :

ERROR: '$c_call_prolog'/0: Undefined procedure: recherche/2

j'ai ecrit mon programm sous cette forme

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
:- use_module(library(pce)).
 
 
system(moteur).
 
system(frein).
 
system(carrosserie).
 
 
 
fault('fuite carburant') :- system(moteur).
 
fault('le moteur ne demarre pas') :- system(moteur).
 
fault('le moteur ne developpe pas la puissance necessaire') :- system(moteur).
 
 
 
fault('fuite hydraulique') :- system(frein).
 
fault('disque frein usé') :- system(frein).
 
fault('verin bloqué') :- system(frein).
 
 
 
fault('etanchieté') :- system(carrosserie).
 
fault('corrosion') :- system(carrosserie).
 
 
 
 
 
 
procedure(procedure11):-fault('fuite carburant').
 
procedure(procedure12):-fault('le moteur ne demarre pas').
 
procedure(procedure13):-fault('le moteur ne developpe pas la puissance necessaire').
 
procedure(procedure21):-fault('fuite hydraulique').
 
procedure(procedure22):-fault('disque frein usé').
 
procedure(procedure23):-fault('verin bloqué').
 
procedure(procedure31):-fault('etanchieté').
 
procedure(procedure32):-fault('corrosion').
 
 
 
 
 
tool(tool11):-fault('fuite carburant').
 
tool(tool12):-fault('le moteur ne demarre pas').
 
tool(tool13):-fault('le moteur ne developpe pas la puissance necessaire').
 
tool(tool21):-fault('fuite hydraulique').
 
tool(tool22):-fault('disque frein usé').
 
tool(tool23):-fault('verin bloqué').
 
tool(tool31):-fault('etanchieté').
 
tool(tool32):-fault('corrosion').
 
 
 
 
 
dialog('Recherche',
       [ object        :=
	   Recherche,
	 parts         :=
	   [ Recherche := dialog('Recherche'),
	     OK        := button('OK'),
	     Text_item := text_item(text_item),
	     Annuler   := button(annuler),
	     Name      := label(name, ''),
	     List      := list_browser(@default, 37, 6)
	   ],
	 modifications :=
	   [ Text_item := [ label  := 'Mot de Recherche',
			    length := 32
			  ],
	     Annuler   := [ default_button := @on
			  ],
	     List      := [ name       := list,
			    show_label := @on,
			    label      := 'Liste des résultats'
			  ]
	   ],
	 layout        :=
	   [ area(OK,
		  area(50, 230, 80, 24)),
	     area(Text_item,
		  area(42, 51, 264, 24)),
	     area(Annuler,
		  area(230, 230, 80, 24)),
	     area(Name,
		  area(36, 92, 184, 18)),
	     area(List,
		  area(43, 96, 271, 112))
	   ],
 
	behaviour     :=
	   [ OK      := [ message := message(@prolog,
					     recherche,
					     Text_item?selection,
					     List?dict)
			],
	     Annuler := [ message := message(Recherche, destroy)
			]
	   ]
       ]).
 
affichage :-
	make_dialog(F, 'Recherche'),
	send(F,open).
 
 
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
% ici je veux que le terme ecrit par l'utilisateur soit pris comme une string puis comparé 
%  à la phrase ds l'atome  du predicat fault pour afficher enfin les resultats dans l'editeur de texte!!!( ex : mot de recherche = 'fuite'  
% les resultats sont:
%  fuite carburant
%  fuite hydraulique)
 
recherche(Text_item?selection,List?dict) :- member(A=Text_item?selection,S),
						assert(fault(F),
						(intersection(S,F,Result),
						(
						forall(fault(Result),write(Result));
						write('Pas de resultat pour votre recherche').

**Trap D** · 02/03/2009, 01h22

Tu avais une erreur de syntaxe dans recherche :

Code :

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

1
2
3
4
5
6
recherche(Text_item?selection,List?dict) :- 
	member(A=Text_item?selection,S),
	assert(fault(F)),
	(intersection(S,F,Result),
	 (forall(fault(Result),write(Result));
	 write('Pas de resultat pour votre recherche'))).

J'ai corrigé mais comme il y a beaucoup de parenthèses, je ne sais pas si c'est correct.

**baouk2000** · 02/03/2009, 14h17

salut, j'ai corrigé la fonction de recherche comme vous l'avez indiqué, l'erreur a disparu mais il y a rien d'affiché ni sur la fenetre ni sur la page de prolog meme pas le msg par defaut, je crois qu'il me manque qcq chose au niveau de la fonction recherche mais je sais pas ce que c'est.

**baouk2000** · 02/03/2009, 19h06

salut, j'ai essayé d'adopter une approche un peu differente des choses en posant en intermidiare un fichier txt, mais tjrs sans resultat!!

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
:- use_module(library(pce)).
 
 
 
:- dynamic system/1.
:- dynamic fault/1.
:- dynamic procedure/1.
:- dynamic tool/1.
 
system(moteur).
 
system(frein).
 
system(carrosserie).
 
 
 
fault('fuite carburant') :- system(moteur).
 
fault('le moteur ne demarre pas') :- system(moteur).
 
fault('le moteur ne developpe pas la puissance necessaire') :- system(moteur).
 
 
 
fault('fuite hydraulique') :- system(frein).
 
fault('disque frein usé') :- system(frein).
 
fault('verin bloqué') :- system(frein).
 
 
 
fault('etanchieté') :- system(carrosserie).
 
fault('corrosion') :- system(carrosserie).
 
 
 
 
 
 
procedure(procedure11):-fault('fuite carburant').
 
procedure(procedure12):-fault('le moteur ne demarre pas').
 
procedure(procedure13):-fault('le moteur ne developpe pas la puissance necessaire').
 
procedure(procedure21):-fault('fuite hydraulique').
 
procedure(procedure22):-fault('disque frein usé').
 
procedure(procedure23):-fault('verin bloqué').
 
procedure(procedure31):-fault('etanchieté').
 
procedure(procedure32):-fault('corrosion').
 
 
 
 
 
tool(tool11):-fault('fuite carburant').
 
tool(tool12):-fault('le moteur ne demarre pas').
 
tool(tool13):-fault('le moteur ne developpe pas la puissance necessaire').
 
tool(tool21):-fault('fuite hydraulique').
 
tool(tool22):-fault('disque frein usé').
 
tool(tool23):-fault('verin bloqué').
 
tool(tool31):-fault('etanchieté').
 
tool(tool32):-fault('corrosion').
 
 
 
 
 
%%%%%%%%%%%%%%%
 
 
 
:- %Creation de la boite de dialogue
	new(D, dialog('Menu des Pannes')),
	send(D, size, size(500,550)),
 
	%new(Text_A, text_item('mot de recherche', message(@prolog,recherche))),
	send(D, display, new(Text_A,text_item), point(10,10)),
	send(D, display, new(Ed,editor), point(50,50)),
 
	%creation du bouton	
	new(Btn_Ta, button(valider, message(Ed, load, 'd:/recherche.txt'))),
	send(D, display, Btn_Ta, point(100,450)),
	new(Btn_Q, button(quitter, message(D, destroy))),
	send(D, display, Btn_Q, point(400,450)),
	send(D, open).
 
 
 
 
recherche:- recherche(Text_A?selection,Ed?load).
 
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
% ici je veux que le terme ecrit par l'utilisateur soit pris comme une string puis comparé 
%  à la phrase ds l'atome  du predicat fault pour ecrire les resultats ds un fichier txt puis
%  afficher enfin les resultats dans l'editeur de texte!!!( ex : mot de recherche = 'fuite'  
% les resultats sont:
%  fuite carburant
%  fuite hydraulique)
 
recherche(Text_A?selection,Ed?load) :- 
	member(A=Text_A?selection,S),
	assert(fault(F)),tell('d:/recherche.txt'),
	(	
		intersection(S,F,Result),
	 	(	
			forall(fault(Result),(write(Result),nl)));
			 write('Pas de resultat pour votre recherche')
		)
	),
	told.

**Trap D** · 02/03/2009, 23h02

Salut

Ceci me paraît utile même si j'ai l'impression que ce n'est pas vraiment ce que tu recherches, ce que tu veux faire est un peu plus compliqué (et je n'ai pas le temps actuellement

)

Ce quer fait mon programme : on saisit une faute et on obtient comme réponse un système, je te laisse compléter éventuellement pour la procédure et l'outil.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
:- use_module(library(pce)).
 
:- dynamic system/1.
:- dynamic fault/1.
:- dynamic procedure/1.
:- dynamic tool/1.
 
%system(moteur).
 
%system(frein).
 
%system(carrosserie).
 
 
 
system(moteur) :- fault('fuite carburant').
 
system(moteur) :- fault('le moteur ne demarre pas').
 
system(moteur) :- fault('le moteur ne developpe pas la puissance necessaire').
 
 
 
system(frein) :- fault('fuite hydraulique').
 
system(frein) :- fault('disque frein usé').
 
system(frein) :- fault('verin bloqué').
 
 
 
system(carrosserie) :- fault('étanchéité').
 
system(carrosserie) :- fault('corrosion').
 
 
 
 
 
 
procedure(procedure11):-fault('fuite carburant').
 
procedure(procedure12):-fault('le moteur ne demarre pas').
 
procedure(procedure13):-fault('le moteur ne developpe pas la puissance necessaire').
 
procedure(procedure21):-fault('fuite hydraulique').
 
procedure(procedure22):-fault('disque frein usé').
 
procedure(procedure23):-fault('verin bloqué').
 
procedure(procedure31):-fault('etanchieté').
 
procedure(procedure32):-fault('corrosion').
 
 
 
 
 
tool(tool11):-fault('fuite carburant').
 
tool(tool12):-fault('le moteur ne demarre pas').
 
tool(tool13):-fault('le moteur ne developpe pas la puissance necessaire').
 
tool(tool21):-fault('fuite hydraulique').
 
tool(tool22):-fault('disque frein usé').
 
tool(tool23):-fault('verin bloqué').
 
tool(tool31):-fault('etanchieté').
 
tool(tool32):-fault('corrosion').
 
 
 
 
 
%%%%%%%%%%%%%%%
 
 
 
go :- %Creation de la boite de dialogue
	new(D, dialog('Menu des Pannes')),
	send(D, size, size(500,550)),
 
	%new(Text_A, text_item('mot de recherche', message(@prolog,recherche))),
	send(D, display, new(Text_A,text_item), point(10,10)),
	send(D, display, new(Ed,editor), point(50,50)),
 
	%creation du bouton	
	new(Btn_Ta, button(valider, message(@prolog, recherche, Text_A?selection, Ed))),
	send(D, display, Btn_Ta, point(100,450)),
	new(Btn_Q, button(quitter, message(D, destroy))),
	send(D, display, Btn_Q, point(400,450)),
	send(D, open).
 
 
 
 
% recherche:- recherche(Text_A?selection,Ed?load).
 
 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
% ici je veux que le terme ecrit par l'utilisateur soit pris comme une string puis comparé 
%  à la phrase ds l'atome  du predicat fault pour ecrire les resultats ds un fichier txt puis
%  afficher enfin les resultats dans l'editeur de texte!!!( ex : mot de recherche = 'fuite'  
% les resultats sont:
%  fuite carburant
%  fuite hydraulique)
 
recherche(Selection,Ed) :- 
	retractall(fault(_)),
	send(Ed, clear),
	% member(Selection,S),
	assert(fault(Selection)),
	bagof(Y,  system(Y), L),
	forall(member(X, L),
	      (	  send_list(Ed, append, [X, '\n']))).

**baouk2000** · 03/03/2009, 00h20

merci pour ce programm cela m a donné au moins une alternative de recherche par mots clés. on peut utiliser un autre predicat "mot_cle" dans lequel on introduira les mots clés et et le lier a "fault". j espere que vous accorderez une autre chance a ma question une fois vous aurez le temps et merci encore.

**Trap D** · 03/03/2009, 10h07

Je crois que j'ai un début de réponse :
Crée une base de faits de ce style

Code :

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

1
2
3
liste_mot_cle([fuite, carburant], 'fuite carburant').
liste_mot_cle([fuite, hydraulique], 'fuite hydraulique') .
...

Ta règle mot clé sera de cette forme

Code :

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

1
2
3
4
mot_cle(Selection,Ed) :- 
	send(Ed, clear),
	forall(liste_mot_cle(X, Y),
	      (	  member(Selection, X), send_list(Ed, append, [Y, '\n']))).

Ce n'est pas testé, mais l'idée est là.

**baouk2000** · 03/03/2009, 12h07

merci Trap D, je crois que cela me va tres bien

Afficher les résultats d'une recherche

Prolog

Discussions similaires

Partager

Partager