jjn4
Nombre de messages : 2695 Date d'inscription : 13/09/2009
| Sujet: Traducteur universel Mer 4 Aoû 2010 - 14:05 | |
| Dans le style de vos traducteurs automatiques qui n'ont pas l'air extra, je vous en offre un autre, bien meilleur, et en pur panoramic ! (et en plus il marche avec n'importe quel langage !) - Code:
-
rem ' Traducteur-universel dim b , i , j , n , a$ , m$(100) label coll , trad , vide data "je" , "tu" , "il" , "nous" , "vous" , "ils" data "manger" , "dormir" , "marcher" , "courir" , "avoir" , "être" data "aller" , "partir" , "devoir" , "pouvoir" , "faire" , "mettre" data "hier" , "demain" , "aujourd'hui" , "chez soi" , "à côté" data "devant" , "derrière" , "à droite" , "à gauche" , "dessous" data "dessus" , "loin" , "près" , "ici" , "là-bas" , "avant" , "après" data "oeil" , "pied" , "main" , "bouche" , "nez" , "front" , "joue" data "image" , "boîte combo" , "bouton" , "boîte à outils" data "boîte de dialogue" , "barre d'état" , "barre de menus" data "flèche de défilement" , "barre de titre" , "fenêtre" data "traduction" , "langage" , "informatique" , "écran" data "fin" repeat n=n+1 read m$(n) until m$(n)="fin" n=n-1
caption 0," EXTRAORDINAIRE TRADUCTEUR UNIVERSEL" button 1 : left 1,50 : top 1,10 : caption 1,"Coller" : on_click 1,coll button 2 : left 2,200 : top 2,10 : caption 2,"Traduire" : on_click 2,trad alpha 3 : left 3,20 : top 3,45 : caption 3,"Langue d'origine" memo 4 : left 4,20 : top 4,60 : width 4,500 : height 4,150 alpha 5 : left 5,20 : top 5,225 : caption 5,"Traduction" memo 6 : left 6,20 : top 6,240 : width 6,500 : height 6,150 button 7 : left 7,350 : top 7,10 : caption 7,"Vider" : on_click 7,vide
end
coll: clipboard_paste 4 return
trad: a$="" : b=0 if count(4)>0 for i=1 to count(4) for j=1 to len(item_read$(4,i)) if mid$(item_read$(4,i),j,1)=" " then b=b+1 next j next i for i=1 to b+1 a$=a$+m$(int(rnd(n))+1)+" " next i end_if item_add 6,a$ return
vide: clear 4 : clear 6 return Il est pas mal, ce traducteur, hein ?
Dernière édition par jjn4 le Dim 15 Aoû 2010 - 12:17, édité 1 fois | |
|
Nardo26
Nombre de messages : 2294 Age : 55 Localisation : Valence Date d'inscription : 02/07/2010
| Sujet: Re: Traducteur universel Dim 15 Aoû 2010 - 2:24 | |
| J'étais passé à cote de ton prog... très bien ton traducteur !! tu devrais faire en sorte qu'il y ait a peu près le même nombre de mots que dans la phrase de départ. car j'ai essayé "Hello JJN4" il m'a répondu : "marcher ici joue avoir pouvoir demain demain image oeil aujourd'hui aller courir boîte à outils traduction à droite barre d'état ils front informatique" c'est un peu long comme résultat de traduc... | |
|
jjn4
Nombre de messages : 2695 Date d'inscription : 13/09/2009
| Sujet: +++ Dim 15 Aoû 2010 - 12:24 | |
| C'est une très bonne idée ! Et voilà, le programme situé plus haut est corrigé dans ce sens. Ca va être un super traducteur, comme ça, on va pouvoir comprendre ce que se racontent klaus et d.j.peters en anglais en allemand en russe et dans toutes les autres langues D'ailleurs, si je lui met à traduire : Wô xîhuan wán diànnâo Il me donne : informatique joue mettre pied C'est pas mal, non ? | |
|
Contenu sponsorisé
| Sujet: Re: Traducteur universel | |
| |
|