FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Calculatrice
par papydall Hier à 22:54

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Mer 19 Sep 2018 - 15:58

» Planétarium virtuel.
par Pedro Alvarez Mer 19 Sep 2018 - 9:28

» Demande pour Jack concernant PanExpress
par Marc Mar 18 Sep 2018 - 23:56

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Panoramix - l'expert en Panoramic !

Aller en bas 
AuteurMessage
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 18:14

J'ai fait un jeu d'intelligence artificielle. Il s'appelle Panoramix pour Expert en Panoramic.

Vous lui posez une question en français normal, et il vous donnera une réponse. Il faut que la question concerne Panoramic et soit bien structurée.

Il travaille avec une série de fichiers *.txt pour le vocabulaire. Vous pouvez adapter ces fichiers à votre guise. Une précaution: 3 de ces fichiers vontr ensemble, doivent avir le même nombre de lignes, et une ligne dans un de ces fichiers correspond à la même ligne dans les deux autres. Ce sont les fichiers cod.txt, article.txt et indefini.txt. Dans article.txt, les articles "le" at "la" doivent être suivi d'un espace, la séquence "l'" doit être sans espace à la fin.

Je donne le programme que chacun peut adapter à sa guise, et une liste de l'ensemble des fichiers texte - il faut l'éclater dans ces fichiers respectifs. La variable repert$ au début contient le répertoire pour ces fichiers - attention, la terminer avec un backslash !

Code:
' Expert en Panoramic

label repondre, eclater,trouver_objet

dim num_sujets%, num_aux%, num_action%, num_cod%, num_attribut%, num_question%
dim num_article%, num_indefini%, rep$
dim repert$
dim question$, i%, j%, k%, nseg%, quest$(50), type_question%, objet$, objet%

num_sujets% = 101 : num_aux% = 102 : num_action% = 103 : num_cod% = 104
num_attribut% = 105 : num_question% = 106 : num_article% = 107 : num_indefini% = 108
caption 0,"Panoramix - Spécialiste en Panoramic"
repert$ = "C:\Documents and Settings\Klaus\Mes documents\Mes projets Panoramic\Panoramix"

alpha 1 : top 1,10 : left 1,10 : caption 1,"Pose-moi une question sur un problème en Panoramic:"
edit 2 : top 2,40 : left 2,10 : width 2,550
button 3 : top 3,70 : left 3,220 : caption 3,"Répondre..." : on_click 3,repondre

dlist num_sujets%: dlist num_aux% : dlist num_action% : dlist num_cod%
dlist num_attribut% : dlist num_question% : dlist num_article% : dlist num_indefini%
file_load num_sujets%,repert$+"sujets.txt"
file_load num_aux%,repert$+"auxiliaire.txt"
file_load num_action%,repert$+"action.txt"
file_load num_cod%,repert$+"cod.txt"
file_load num_attribut%,repert$+"attribut.txt"
file_load num_question%,repert$+"question.txt"
file_load num_article%,repert$+"article.txt"
file_load num_indefini%,repert$+"indefini.txt"

memo 20 : top 20,120 : left 20,10 : width 20,550 : height 20,200

end


repondre:
    question$ = trim$(text$(2))
    if len(question$)=0
        i% = message_error_ok("Alors, tu n'as rien à demander ?")
        return
    end_if
    if right$(question$,1)<>"?"
        i% = message_error_ok("Ce n'est pas une question !")
        return
    end_if
    gosub eclater
    type_question% = 0
    for i%=1 to count(num_question%)
        if quest$(1)=item_read$(num_question%,i%)
            type_question% = i%
        end_if
    next i%
    if type_question%=0
        i% = message_error_ok("Tu ne sais pas poser une question ?")
        return
    end_if
    if nseg%<4
        i% = message_error_ok("Il n'y a pas assez d'information !")
        return
    end_if
    gosub trouver_objet
    if objet$=""
        i% = message_error_ok("Ta question n'a pas d'objet !")
        return
    end_if
    clear 20
    item_add 20,"Ta question concerne "+item_read$(num_indefini%,objet%)+" "+objet$+"."
   
    rep$ = item_read$(num_sujets%,int(rnd(count(num_sujets%))+1))
    rep$ = rep$ + " " + item_read$(num_aux%,int(rnd(count(num_aux%))+1))
    rep$ = rep$ + " " + item_read$(num_action%,int(rnd(count(num_action%))+1))
    i% = int(rnd(count(num_cod%))+1)
    rep$ = rep$ + " " + item_read$(num_article%,i%)+item_read$(num_cod%,i%)
    j% = int(rnd(count(num_attribut%))+1)
    rep$ = rep$ + " " + item_read$(num_attribut%,j%)
    rep$ = rep$ + ","
    item_add 20,rep$
    rep$ = "parceque "+item_read$(num_article%,objet%)+objet$
    repeat
        k% = int(rnd(count(num_attribut%))+1)
    until j%<>k%
    rep$ = rep$ + " est " + item_read$(num_attribut%,k%)
    rep$ = rep$ + "."
    item_add 20,rep$
   
    return
   
trouver_objet:
    objet$ = ""
    for j%=2 to nseg%
        for i%=1 to count(num_cod%)
            if quest$(j%)=item_read$(num_cod%,i%)
                objet$ = quest$(j%)
                objet% = i%
                return
            end_if
        next i%
    next j%
    return
   
eclater:
    nseg% = 0
    question$ = trim$(left$(question$,len(question$)-1)) + " "  : ' enlever "?" et mettre un espace à la fin
    i% = instr(question$," ")
    while i%>0
        if left$(question$,2)="l'" then question$ = right$(question$,len(question$)-2)
        nseg% = nseg% + 1
        quest$(nseg%) = left$(question$,i%-1)
        question$ = right$(question$,len(question$)-i%)
        i% = instr(question$," ")
    end_while
   

    return
   
   

et les fichiers
Code:
--- action.txt ---
agrandir
supprimer
rendre inactif
réduire
colorer
cacher
--- article.txt ---
le
l'
le
l'
l'
l'
la
le
la
--- attribut.txt ---
en faute
trop petit
pitoyable
mal conçu
ridicule
trop grand
--- auxiliaire.txt ---
dois
peux
pourrais
devrais
dois essayer de
peux essayer de
pourrais essayer de
devrais essayer de
dois tenter de
peux tenter de
pourrais tenter de
devrais tenter de
--- cod.txt ---
sous-programme
objet
bouton
évènement
edit
alpha
combo
picture
form
--- indefini.txt ---
un
un
un
un
un
un
une
un
une
--- question.txt ---
Est-ce que
Pourquoi
Comment
--- sujets.txt ---
Tu


Dernière édition par Klaus le Dim 1 Aoû 2010 - 21:01, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jean Claude

avatar

Nombre de messages : 5643
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 18:40

il y a 2 fichiers différent du même nom action.txt,

La variable rep$, est-ce vraiment celle-ci qu'il faut changer ?

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 19:12

Pardon pour la légèreté _- j'ai corrigé le post ci-dessus. C'est la variable repert$ et non pas rep$ qu'il faur changer, et le premier des fichiers nommés action.txt est en fait auxiliaire.txt. Ca fait désordre pour un "expert"...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jean Claude

avatar

Nombre de messages : 5643
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 19:16

comment doit-on organiser un fichier ?

exemple --- action.txt ---
agrandir
supprimer
rendre inactif
réduire
colorer
cacher
ou
--- action.txt ---
agrandir |supprimer |rendre inactif |réduire |colorer |cacher

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 19:20

Il faut le laisser tel quel - un item sur chaque ligne, sans espace devant ni derrière (exception faite pour les espaces la remarque concernant le fichier article.txt), sans la ligne ---fichier.txt--- qui ne sert que d'indication.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jean Claude

avatar

Nombre de messages : 5643
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 20:20

Comment agrandir un bouton ?

çà n'est pas reconnu comme une question ?

peut-tu fournir une question qui marche pour que je pige l'intérêt de ton code ?

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 21:02

Question:
Citation :
Comment agrandir un bouton ?

Réponse 1:
Citation :
Ta question concerne un bouton.
Tu peux tenter de rendre inactif le bouton en faute,
parceque le bouton est mal conçu.

En cliquant à nouveau sur "Répondre":
Citation :
Ta question concerne un bouton.
Tu devrais essayer de cacher le picture mal conçu,
parceque le bouton est trop petit.

J'ai corrigé un mini-bug dans le post initial mais qui est sans lien avec ce que tu rencontres. Il y a surement un problème avec le chargemen des fichiers. Le fichier question.txt, par exemple, doit contenir
Citation :
Est-ce que
Pourquoi
Comment
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jean Claude

avatar

Nombre de messages : 5643
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 21:18

Hou! j'ai compris voici la question que j'ai posée:
Citation :
Comment agrandir un bouton
et voici celle qu'il faut poser:
Citation :
Comment agrandir un bouton ?

Un simple ? fait tout capoter En fait si j'avais regardé le code, j'aurais trouvé la solution.

Maintenant çà marche. Mais je t'explique pas les quantités de mots à intégrer dans les fichiers pour être sur que l'utilisateur va poser une question qui a une réponse.

Ce qui m'intrigue c'est: Mais bon dieu! où se trouvent les réponses ???????
C'est de la magie.....

Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 22:03

Eh oui, de la magie ! Mais blaque à part, j' l'ai mis dans la rubrique des jeux, et c'en est un, rien de plus. Les réponses ? Les phrases de réponses sont structurées comme suit:
sujet - auxiliaire - action - cod - attribut,
"parceque" (l'objet de la question) "est" - attribut.
Je passe pas les articles définis et indéfinis qui sont mis en place. Tout ou presque est tiré au hasard, par la fonction rnd().

C'est une petite maquette que chacun peut adapter à son goût - question sur le vin, prédire l'avenir, ... Il suffit de choisir la bonne collection d'objets, d'actions, d'attributs etc.

Pour le moment, le programme reconnait si la question contient un des objets prédéfinis. Je prévois de jajouter un peu plus d'intelligence dans l'interprétation de la question.

En faitl, l'idée m'en est venu en me souvenant du célèbre générateur de discours des élèves de l'ENA - brillantissime ! En toute modestie, j'ai simplement voulu amuser un peu.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 6326
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 22:11

Je me souviens d'un programme en Basic, autrefois, qui générait des poèmes, souvent assez ... poétiques, à partir de bibliothèques de noms, verbes, adjectifs etc. en respectant les règles de construction de phrases, comme tu le fais. Je l'ai perdu, et malheureusement c'était en anglais...
Ton générateur de discours devait être du même principe.

Les personnes qui font l'astrologie dans le journaux doivent bien se servir de programmes du même acabit...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 22:35

Voici un lien vers ce générateur que j'avais en tête:
http://g.langue.de.bois.free.fr/politique/langue_bois.pdf
Il y en a plein d'autres -discours patronal, discours de mariage, ...
Le plus marrant, c'est quand on écoute certains discours à la télé, ceux dont on se demande à la fin ce que l'orateur a bien voulu dire tout en ayant la vague impression d'avoir été convaincu de quelque chose, mais quoi ? Enfin, ces discours-là ressemblent à ceux issus de ce générateur.

Enfin, c'est juste un clin d'oeil en période de vacances.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
JL35



Nombre de messages : 6326
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Dim 1 Aoû 2010 - 22:42

Merci pour le lien. Mais le plus dur c'est de faire le programme générateur de texte... mais non, pas si dur que ça finalement, et même facile si on a les fichiers et un générateur de nombres aléatoires, même basique.
Ca me donne des idées, pour m'amuser un peu.
Dommage que je n'aie pas eu ça pour un discours de départ à la retraite... pour laisser un souvenir... mitigé et perplexe !
Pour certains discours qu'on entend... c'est vrai qu'on peut avoir un doute !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5643
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Lun 2 Aoû 2010 - 10:51

Finalement, c'est un générateur de Troll.... jocolor
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

Nombre de messages : 1761
Date d'inscription : 13/09/2009

MessageSujet: +++   Lun 2 Aoû 2010 - 12:55

Oui, parce qu'il me dit sans arrêt que ma question n'a pas d'objet.
Alors on va faire des polémiques, parce que ça manque de troll, ici !
Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Panoramix - l'expert en Panoramic !   Lun 2 Aoû 2010 - 13:30

C'est le fichier cod.txt qui donne la liste des objets reconnus par Panoramix. Il suffit d'étendre cette liste pour élargir ma compréhension de ce programme. Chez moi, je suis passé à
cod/txt:
Citation :
sous-programme
objet
bouton
évènement
edit
alpha
combo
picture
form
action.txt:
Citation :
agrandir
supprimer
rendre inactif
réduire
colorer
cacher
article.txt
Citation :
le
l'
le
l'
l'
l'
la
le
la
attribut.txt
Citation :
en faute
trop petit
pitoyable
mal conçu
ridicule
trop grand
indefini.txt
Citation :
un
un
un
un
un
un
une
un
une
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Panoramix - l'expert en Panoramic !   

Revenir en haut Aller en bas
 
Panoramix - l'expert en Panoramic !
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» EDI réalisé entièrement en Panoramic
» pas un panoramic mais utilitaires delphi.
» Programmes Panoramic en ligne de commande
» lol, panoramic dans google ;)
» XZ-10, un nouvel APN expert Olympus "très compact"

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les jeux faits avec Panoramic-
Sauter vers: