Discussion :

[toufik.dija]

Bonjour,

J’essaye de faire un petit programme dans le quel j'aurai la possibilité de changer l'affichage (contenu du text_item) au fur et à mesure de l’exécution du programme.
Mais je n'est pas réussi!!!!!!

Par exemple dans cette fenêtre:



Changer à la place de "hello" mettre par exemple "TEST"
Ou afficher le contenu d'un fichier texte dans la partie "Affiche_ici"

Voici le code:

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
 
mon_premier_program :-
 
 
	% on crée la fenêtre
	new(D, dialog('Ma première fenêtre')),
	new(Etiq, label(nombre,'System expert')),
	new(T, text_item(hello)),
	new(Text1, text_item(afficher_ici)),
 
	% on crée un composant texte,
 
	send(D, append,Etiq),
	send(D, append, T),
	send(D, append, Text1),
	send(D, append, button(ok,
	message(@prolog, regle, T   ))),
	send(D, append, button(affiche,
	message(@prolog, affiche, Text1))),
	send(D, append, button( cancel,
	message(@prolog, end,	D)  ) ),
	send(D, open).
 
%! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% ! %%%     %fonction d lecture        %%%%%%%%%%%%
my_read(Str, L) :-
%	send(Text1, selection, ""),
	read_line_to_codes(Str, T),
	(   T  = end_of_file -> L = [];
	atom_codes(T1, T),
	my_read(Str, L1), L = [T1 | L1]).
 
 
%!	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
affiche(Text):-
open('C:/Users/...../System/cc.txt',read,Str),
       my_read(Str,CC1),
       close(Str),
       writeln(CC1),nl,
       send(Text,selection ,CC1).
 
regle(T):- get(T, value, Text), writeln(Text).
 
end(D):- send(D, destroy).
%!	%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

[Trap D]

Bonjour

Pour la première question : au lieu de new(T, text_item(hello)),, faire new(T, text_item(test)),
Pour afficher un fichier, il faut donner le répertoire d'accès complet au fichier ce qui n'est pas du tout le cas ici : open('C:/Users/...../System/cc.txt',read,Str),
Il faudrait par exemple open('C:/Users/Utilisateur/Documents/Prolog/cc.txt',read,Str),

Au passage, les problèmes de liaisons Prolog <-> Java sont-ils résolus ?

[toufik.dija]

Bonjour

Pour la première question : au lieu de new(T, text_item(hello)),, faire new(T, text_item(test)),
Pour afficher un fichier, il faut donner le répertoire d'accès complet au fichier ce qui n'est pas du tout le cas ici : open('C:/Users/...../System/cc.txt',read,Str),
Il faudrait par exemple open('C:/Users/Utilisateur/Documents/Prolog/cc.txt',read,Str),

Au passage, les problèmes de liaisons Prolog <-> Java sont-ils résolus ?

Bonjour Trap D,

Merci pour la réponse, concernant le problème de liaison il persiste toujours, j'avais suivi les étapes que tu m'avais donné mais rien!!!!!!!

pour ma première question
Pour la première question : au lieu de new(T, text_item(hello)),, faire new(T, text_item(test)),
je ne comprend pas la différence entre le mot "hello" et le mot "test"? (ce n'est pas une variable),

moi ce que je veux c'est pendant l’exécution du programme, changer le contenu du text_item; je m'explique mieux; je veux que à la place du mot 'hello' dans la fenêtre qui s'affiche, afficher un autre mot peut importe.

Pour ma deuxième question, en mettant le chemin du fichier texte "cc.txt", ce dernier ne s'affiche pas dans la fenêtre, il s'affiche dans la console Prolog.
En effet, est ce possible de faire une condition d'affichage
par exemple:
si a>b alors afficher sinon faire une autre chose

Merci .

[Trap D]

je ne comprend pas la différence entre le mot "hello" et le mot "test"? (ce n'est pas une variable),

"Test" est simplement le "label" du text_item, c'est tout, tu peux y mettre ce que tu veux. Je ne comprends pas bien ce que tu veux ici.


Pour le rest, j'ai un peu regardé et je te propose ceci comme solution :

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
mon_premier_program :-
 
 
	% on crée la fenêtre
	new(D, dialog('Ma première fenêtre')),
	new(Etiq, label(nombre,'System expert')),
	new(T, text_item(test)),
	%new(Text1, text_item(afficher_ici)),
	new(Text1, editor),
	send(Text1, label, 'afficher ici'),
	% on crée un composant texte,
 
	send(D, append,Etiq),
	send(D, append, T),
	send(D, append, Text1),
	send(D, append, button(ok, message(@prolog, regle, T   ))),
	send(D, append, button(affiche, message(@prolog, affiche, Text1))),
	send(D, append, button( cancel,	message(@prolog, end,	D)  ) ),
	send(D, open).
 
% le code de la regle pour afficher
affiche(Text):-
        send(Text,load, 'C:/Users/Utilisateur/Documents/Prolog/test.pl').

Pour afficher un très long texte, il vaut mieux utiliser un "editor".

[toufik.dija]

Mille Merci pour l'aide!!!!!!!!
C'est exactement je ce que j'ai voulu