none
Enigme RRS feed

  • Question

  • Bonjour je suis débutant en Visual basic 2010, et je cherche à développer un programme qui permet de traduit une langue national de mon Pays  en français et en anglais. j'ai déclaré trois tableau qui contient les différents mot et trois textbox, là je suis bloqué au niveau du code, j'ai d'abord une boucle For qui parcourt le tableau et un If qui compare le mot écrire par l'utilisateur et les éléments du tableau, mais ça marche pas. aidez moi SVP.   
    vendredi 29 avril 2011 01:58

Réponses

  • Bonsoir,

    Du Wolof sénégalais :o)

    Voici chef, testé, chat mrche !

    ' conversion wolof sénégalais, anglais, français
    Option Explicit On
    Public Class Form1
     Dim TabWolof() As String = {"ndox", "lekk", "nalaw"} ' SENEGALAIS WOLOF
     Dim TabAnglais() As String = {"water", "eat", "sleep"} ' R.U ANGLAIS 
     Dim TabFrançais() As String = {"eau", "manger", "dormir"} ' FRANÇAIS FRANCE
     Dim maxiTableau As Integer = 3 ' = 3 mots
    
     Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim i As Integer = 0 ' chercher
      Dim langue As String = ""
      If Trim(TextBox1.Text) <> "" Then langue = "wolof" : i = i + 1
      If Trim(TextBox2.Text) <> "" Then langue = "anglais" : i = i + 1
      If Trim(TextBox3.Text) <> "" Then langue = "français" : i = i + 1
      If langue = "" Or i < 1 Then
       MsgBox("Erreur : Vous ne pouvez faire qu'une demande à la fois, remédier... ", vbExclamation)
       Exit Sub
      End If
      For i = 0 To maxiTableau - 1
       Select Case langue
        Case "wolof"
         If TextBox1.Text = TabWolof(i) Then
          TextBox2.Text = TabAnglais(i)
          TextBox3.Text = TabFrançais(i)
          Exit Sub
         End If
        Case "anglais"
         If TextBox2.Text = TabAnglais(i) Then
          TextBox1.Text = TabWolof(i)
          TextBox3.Text = TabFrançais(i)
          Exit Sub
         End If
        Case "français"
         If TextBox3.Text = TabFrançais(i) Then
          TextBox1.Text = TabWolof(i)
          TextBox2.Text = TabAnglais(i)
          Exit Sub
         End If
       End Select
      Next i
     End Sub
    
     Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      TextBox1.Text = "" ' wolof sénégalais
      TextBox2.Text = "" ' anglais
      TextBox3.Text = "" ' français
     End Sub
    End Class
    '
    
    

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    vendredi 29 avril 2011 18:16

Toutes les réponses

  • Bonjour je suis débutant en Visual basic 2010, et je cherche à développer un programme qui permet de traduit une langue national de mon Pays  en français et en anglais. j'ai déclaré trois tableau qui contient les différents mot et trois textbox, là je suis bloqué au niveau du code, j'ai d'abord une boucle For qui parcourt le tableau et un If qui compare le mot écrire par l'utilisateur et les éléments du tableau, mais ça marche pas. aidez moi SVP.   


    Bonjour MaxiCool n°19,

    Il n'est pas réellement possiblez de traduire le français grammaticalement et sur la conjugaison, même "Word" laisse à désirer parfois... Par contre si tu veux traduite mot-à-mot c'est possible, toutefois il faudrait que tu déposes ici ton code ainsi que quelques extraits de tes fichiers ou code de mots.

    Le principe de comparaison que tu évoques est le suivant :

    if trim(variableMot_1(i)) = trim(variableMot_2(i)) then ' ...
    
    

    Au plaisir.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    vendredi 29 avril 2011 06:04
  • Merci c'est en faite un traducteur de mot à mot, voilà mon code pour parcourir le tableau

    For i = 0 To TabWolof.Length - 1

            Next i

    maintenant je dois mettre if qui compare le mot saisir par l'utilisateur et les éléments du tableau, c'est le comment fait qui me pose problème


    Public Class Frm_Traducteur
      Public TabWolof() As String = {"ndox", "lekk", "nalaw"}
      Public TabAnglais() As String = {"water", "eat", "sleep"}
      Public TabFrançais() As String = {"eau", "manger", "dormir"}
    
    
      Private Sub Bt_Effacer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Effacer.Click
        Txt_Anglais.Text = ""
        Txt_français.Text = ""
        Txt_Wolof.Text = ""
      End Sub
    
      Private Sub Bt_retour_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_retour.Click
        Frm_Choix.Show()
        Me.Hide()
      End Sub
    
      Private Sub Bt_Chercher_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Chercher.Click
        Dim i As integer
        For i = 0 To TabWolof.Length - 1
    
        Next i
      End Sub
    End Class
    vendredi 29 avril 2011 12:46
  • Bonjour,

     

     

     Dim trouve = False
    Dim place = -1
      Dim i = 0
      While (i < TabWolof.Count And Not trouve)
       If String.Compare(TextBox1.Text, TabWolof(i), True) = 0 Then
        trouve = True
    place = i
       End If
       i += 1
      End While
    If trouve Then
     Txt_Anglais.Text = TabAnglais(place) 
     Txt_français.Text = TabFrançais(place) 
     Txt_Wolof.Text = TabWolof(place)
    End If
    

     

    C'est ca l'idée?


    Pj.
    vendredi 29 avril 2011 14:54
  • Bonsoir,

    Du Wolof sénégalais :o)

    Voici chef, testé, chat mrche !

    ' conversion wolof sénégalais, anglais, français
    Option Explicit On
    Public Class Form1
     Dim TabWolof() As String = {"ndox", "lekk", "nalaw"} ' SENEGALAIS WOLOF
     Dim TabAnglais() As String = {"water", "eat", "sleep"} ' R.U ANGLAIS 
     Dim TabFrançais() As String = {"eau", "manger", "dormir"} ' FRANÇAIS FRANCE
     Dim maxiTableau As Integer = 3 ' = 3 mots
    
     Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim i As Integer = 0 ' chercher
      Dim langue As String = ""
      If Trim(TextBox1.Text) <> "" Then langue = "wolof" : i = i + 1
      If Trim(TextBox2.Text) <> "" Then langue = "anglais" : i = i + 1
      If Trim(TextBox3.Text) <> "" Then langue = "français" : i = i + 1
      If langue = "" Or i < 1 Then
       MsgBox("Erreur : Vous ne pouvez faire qu'une demande à la fois, remédier... ", vbExclamation)
       Exit Sub
      End If
      For i = 0 To maxiTableau - 1
       Select Case langue
        Case "wolof"
         If TextBox1.Text = TabWolof(i) Then
          TextBox2.Text = TabAnglais(i)
          TextBox3.Text = TabFrançais(i)
          Exit Sub
         End If
        Case "anglais"
         If TextBox2.Text = TabAnglais(i) Then
          TextBox1.Text = TabWolof(i)
          TextBox3.Text = TabFrançais(i)
          Exit Sub
         End If
        Case "français"
         If TextBox3.Text = TabFrançais(i) Then
          TextBox1.Text = TabWolof(i)
          TextBox2.Text = TabAnglais(i)
          Exit Sub
         End If
       End Select
      Next i
     End Sub
    
     Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      TextBox1.Text = "" ' wolof sénégalais
      TextBox2.Text = "" ' anglais
      TextBox3.Text = "" ' français
     End Sub
    End Class
    '
    
    

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    vendredi 29 avril 2011 18:16
  • Merci beaucoup Ehjoe ton code marche à 100%, oui au faite c'est le Wolof du Sénégal. c'est aussi possible de suggérer le mot à l'utilisateur pendant qu'il saisit son mot dans le TextBox ??

    pour tous ceux qui ont essayé de m'aider je vous dis un grand merci  

    vendredi 29 avril 2011 22:44
  • Bonsoir MaxiCool n°19,

    J'étais à Dakar et Sally en juin 2008, tu es là-bas en ce moment, où ?

    Merci, alors si tu es satisfait tu peux cliquer dans chacune de mes réponses (y compris celle-là), en haut à gauche de ces dernières sur le triangle vert entouré d'un rectangle de même couleur, ça me donne des points :o)

    Je vais regarder ce que je peux faire pour une pré-saisie, ce doit être possible, à bientôt alors.

    Cordialement.

     

     



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    vendredi 29 avril 2011 23:02
  • Bonsoir, oui je suis toujours à Dakar pour mes études, en tout cas dès que vous décidez de revenir encore faite moi signe. j'avais développé le modèle de traducteur avec des amis mais ça ne marche que sur les téléphones portable.  encore une fois merci beaucoup pour votre aide

    samedi 30 avril 2011 02:32
  • Maxicool,

    Bonjour,

    Alors je vais faire des listes pour une saisie quasi-automatique, je vais aussi faire en sorte que si le mot est choisit, ça s'écrive sans validation dans les trois zones.

    Par contre ton programme, tes données ça ne va pas, car tu ne peux pas en ligne écrire 10.000 données, alors je voudrais savoir combien il y en a afin de voir si ça tient dans une liste et si on peut en faire un fichier (le mieux), que tu pourrais modifier manuellement (un fichier texte), donc peux-tu m'envoyer la totalité de ton dico sur le principe : par ligne : wolof, anglais, français ?

    Mon adresse est montmartre75018 arobase free point fr (ou via mon profile, on peut m'écrire), pour m'envoyer tes données.

    A bientôt, je fais tes listes, merci de me mettre des points ici :o)

    Cordialement.

     



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    samedi 30 avril 2011 08:43
  • Bonjour MaxiCool

    Voici le code, mais lire ma réponse pécédente sur les mots à enregitrer

    ' conversion wolof sénégalais, anglais, français
    Option Explicit On
    Public Class Form1
     Dim TabWolof() As String = {"ndox", "lekk", "nalaw"} ' SENEGALAIS WOLOF
     Dim TabAnglais() As String = {"water", "eat", "sleep"} ' R.U ANGLAIS 
     Dim TabFrançais() As String = {"eau", "manger", "dormir"} ' FRANÇAIS FRANCE
     Dim maxiTableau As Integer = 3 ' = 3 mots
     Dim langue As String = ""
    
     Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim i As Integer
      ListBox1.Items.Clear()
      ListBox2.Items.Clear()
      ListBox3.Items.Clear()
      ListBox1.Sorted = True
      ListBox2.Sorted = True
      ListBox3.Sorted = True
      For i = 0 To maxiTableau - 1
       ListBox1.Items.Add(TabWolof(i))
       ListBox2.Items.Add(TabAnglais(i))
       ListBox3.Items.Add(TabFrançais(i))
      Next i
      Button2.Visible = False
      Call efface3listes()
     End Sub
    
     Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim i As Integer = 0 ' chercher
      If Trim(TextBox1.Text) <> "" Then langue = "wolof" : i = i + 1
      If Trim(TextBox2.Text) <> "" Then langue = "anglais" : i = i + 1
      If Trim(TextBox3.Text) <> "" Then langue = "français" : i = i + 1
      If langue = "" Or i < 1 Then
       MsgBox("Erreur : Vous ne pouvez faire qu'une demande à la fois, remédier... ", vbExclamation)
       Exit Sub
      End If
      Call cherche()
     End Sub
    
     Sub cherche()
      Dim i As Integer
      For i = 0 To maxiTableau - 1
       Select Case langue
        Case "wolof"
         If TextBox1.Text = TabWolof(i) Then
          TextBox2.Text = TabAnglais(i)
          TextBox3.Text = TabFrançais(i)
          Call effaceOK()
          Exit Sub
         End If
        Case "anglais"
         If TextBox2.Text = TabAnglais(i) Then
          TextBox1.Text = TabWolof(i)
          TextBox3.Text = TabFrançais(i)
          Call effaceOK()
          Exit Sub
         End If
        Case "français"
         If TextBox3.Text = TabFrançais(i) Then
          TextBox1.Text = TabWolof(i)
          TextBox2.Text = TabAnglais(i)
          Call effaceOK()
          Exit Sub
         End If
       End Select
      Next i
      MsgBox("ERREUR : Non ntrouvé, remédier... ", vbExclamation)
     End Sub
    
     Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' efface
      langue = ""
      TextBox1.Text = "" ' wolof sénégalais
      TextBox2.Text = "" ' anglais
      TextBox3.Text = "" ' français
      Button1.Visible = True
      TextBox1.Enabled = True
      TextBox2.Enabled = True
      TextBox3.Enabled = True
      Call efface3listes()
     End Sub
    
     Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
      Call efface3listes()
      If ListBox1.Items.Count > 0 Then ListBox1.Visible = True
      langue = "wolof"
     End Sub
    
     Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
      Dim ascii As Integer = Asc(e.KeyChar) ' validation par <RC>
      If Len(TextBox1.Text) > 1 And ascii = 13 Then
       langue = "wolof"
       Call efface3listes()
       Call cherche()
      End If
     End Sub
    
     Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
      Call efface3listes()
      If ListBox2.Items.Count > 0 Then ListBox2.Visible = True
      langue = "anglais"
     End Sub
    
     Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
      Dim ascii As Integer = Asc(e.KeyChar) ' validation par <RC>
      If Len(TextBox2.Text) > 1 And ascii = 13 Then
       langue = "anglais"
       Call efface3listes()
       Call cherche()
      End If
     End Sub
    
     Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
      Call efface3listes()
      If ListBox3.Items.Count > 0 Then ListBox3.Visible = True
      langue = "français"
     End Sub
    
     Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
      Dim ascii As Integer = Asc(e.KeyChar) ' validation par <RC>
      If Len(TextBox3.Text) > 1 And ascii = 13 Then
       langue = "français"
       Call efface3listes()
       Call cherche()
      End If
     End Sub
    
     Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
      If Len(ListBox1.Items(ListBox1.SelectedIndex)) < 1 Then Exit Sub
      TextBox1.Text = ListBox1.Items(ListBox1.SelectedIndex)
      Call efface3listes()
      Call cherche()
     End Sub
    
     Sub listbox2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.DoubleClick
      If Len(ListBox2.Items(ListBox2.SelectedIndex)) < 1 Then Exit Sub
      TextBox2.Text = ListBox2.Items(ListBox2.SelectedIndex)
      Call efface3listes()
      Call cherche()
     End Sub
    
     Sub listbox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox3.DoubleClick
      If Len(ListBox3.Items(ListBox3.SelectedIndex)) < 1 Then Exit Sub
      TextBox3.Text = ListBox2.Items(ListBox2.SelectedIndex)
      Call efface3listes()
      Call cherche()
     End Sub
    
     Sub efface3listes()
      ListBox1.Visible = False
      ListBox2.Visible = False
      ListBox3.Visible = False
     End Sub
    
     Sub effaceOK()
      Button1.Visible = False
      Button2.Visible = True
      TextBox1.Enabled = False
      TextBox2.Enabled = False
      TextBox3.Enabled = False
      langue = ""
      Call efface3listes()
     End Sub
    End Class
    
    
    
    

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    samedi 30 avril 2011 10:25
  • Comment faire pour vous envoyez tous les mots ??
    samedi 30 avril 2011 19:15
  • Bonsoir,

    Ben par mail (voir mon profil), il sont bien écrit sur quelque chose, il faut m'envoyer ça en pièce joint.

     

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    samedi 30 avril 2011 21:08
  • Bonsoir

    c'est bon je viens de vous envoyez les mots par mail vérifier.

    dimanche 1 mai 2011 02:50
  • Bonjour,

    J'ai reçu le mail et les fichiers, merci, mais y a plein de problèmes (que je peux sans doute résoudre) :

    D'une part le fichier est truffè de lettres latines accentuées, genre ; tille (ñoo), o accent grave, tréma (presque partout), doublement de certaines lettres en fin "qq"... Je me demande même si les accents font partie du Wolof ?

    En plus, le Wolof étant la langue de départ, ce n'est même pas classé par ordre alphabétique, mais ça on pourra y remédier ultérieurement, voici ce que ça donne :

     

    "bghjbunt","caaxaan","cosaan","daqqaar","dëgër","dëkk","dëkk","dig","dom",
    		"dom","duss","esaas","fan","febar","fenn","fey","foot","indi","jaay","gaanuwaay","gan","ganaar",
    		"ganaaw","garab","gaa","jakkaarloo","jar","jar","ginnaaw","jëm","joge","jot","jox","juddu","laaj",
    		"laaj","lakk","laaj","ñaan","léeb","leer","ligeey","loxo","mag","mbaa","mbaam","mbaam","mbin daan"
    		,"mbin daan","mbokk","moom","moom","naan","nawet","nexx","nekk","ngan","ngir","njaay","njang","njiit",
    		"nob","nooy","noppi","noppi","ñaan","ñam","mos","ñaqq","ñor","penku","rakk","sacc","naaw","sey","jongama",
    		"suba","suuf","suff","takk","taw","teemer","tekki","tukki","tur","tutti","wax","waxtaan","waxtaan","waxtu",
    		"weccet","weñ","woy","woy","xalaat","xalaat","xorom","yaa","tekki","kaas","kanam","kanam","bala","lef","yenn saa",
    		"seeni","seet","segg","segg","ubbikaay","ubbikaay","wante","digal","xew","yoon","ada", "aay", "aaye", "abal", "abb",
    		"adduna", "agsi", "ajjuma", "ak", "alarba", "alal","all", "altine", "alxames", "am", "ana", "and", "andandoo", "añ",
    		"areen", "asamaan", "askan", "at", "attan", "atte","baal", "baaraam", "baat", "baat", "baax", "baay", "bakkan",
    		"balaa", "ban", "ban", "banneex", "bant", "bañ", "bare","bataaxal", "batey", "baxa", "bayyi", "bees", "beg", "beneen",
    		"benn","berep","bes","bëgg","bëñ","bët","biig","biir","biir","bind","bisaab","biti","bokk","bon","boole","bopp","bukki",
    		"bunt","caabi","caaf","caaxaan","caaya","cammooñ","ceeb","ceebu","cere","concu","coono","coow","cosaan","curaay"," daagu",
    		"daan","daanaka","daanu","daara","daaw","daay","dab","dafa","dagg","dajaloo","dall","dama","damm","damp","danga","dangeen",
    		"dañu","daqqaar","dara","darkase","daw","dee","deedeet","def","deg","degg","deggal","deglu","dellu","dem","demb","deñu","der",
    		"deñc","dëgër","dëkk","dëkk","dëng","dig","digg","diggante","diis","dimbële","dindi","dlw","dof","dok","dolli","doole","doom",
    		"doom","door","doxaan","doy","doyadi","dugg","duss","egg","ellëk","emb","emb" ,"ep","eppël","esanseri","fab","faj","fan", "fanaan",
    		"fanweer","far", "fas", "fat", "fatte", "fay","fecc","feebar", "feeñ", "fees","feete", "feexlu", "feey", "fen", "fenn","fey","fëgg",
    	 "fii","fiir","fit","fitna", "fo","fomp", "fontoo","foofu", "foon","for", "fu", "fukk","gaal","gaanuwaay","gaañ" ,"gaawantu",
    	 "gakk","gan", "ganaar","ganaaw" ,"garab" ,"gatt" ,"gaynde" ,"geej" ,"gejj" ,"gemmiñ" ,"gennë" ,"gent" ,"gëm" ,"gëmmeentu","gërëm",
    	 "ginnaaw" ,"gis" ,"goor" ,"gudd" ,"guddi" ,"gumbë" ,"gune" ,"guy" ,"guro","indi", "itam","jaaro" ,"jaay", "jabar" ,"jafe" ,"jakka",
    	 "jamb Suukër" ,"jamm" ,"jamp" ,"jang" ,"jant" ,"jar","jasig" ,"jeem" ,"jek" ,"jëf" ,"jëkk" ,"jëkër" ,"jël" ,"jëm","jën" ,"jënd",
    	 "jërë jëf","jigeen" ,"jiite" ,"jog" ,"jom" ,"jongama" ,"jooy" ,"jot" ,"jox","joxoñ" ,"juboo" ,"juddu","julli","jup",
    	 "jur" ,"juroom" ,"juum" ,"juuti" ,"juuyoo","kaani" ,"kaddu","kan","kanam" ,"kañ" ,"kattan" ,"kawas" ,"kepaar" ,"kersa" ,"kewël",
    	 "këll" ,"këpp" ,"kër" ,"kii" ,"kooku", "kon" ,"koor" ,"korité" ,"kow","laac", "laaj", "laal","lakk", "lal", "lam", "lammiñ",
    	 "lan","leep", "leer", "lekk","lepp", "lett","lex", "lëk", "lëndëm", "ligeey", "liir","loos", "lox", "loxo", "lutax","maafe",
    	 "maam","mag","maggat", "man", "mangi", "mar", "mat", "matt","maye", "mbaa", "mbaam", "mbaar", "mbagg","m'baj", "mbedd",
    	 "mbind","mbindaan", "mbir", "mbokk","mburu", "mën","melax", "melo", "mer","metti","mettit", "meew","moom", "mukk","naan",
    	 "naam", "naaw", "nak", "naka","nak", "namm", "napp", "natt", "nawet", "ndaanaan", "ndaw", "ndawtal", "ndax", "ndayjoor",
    	 "ndekki", "ndey","ndog","ndox", "ndoxaan", "neeg", "neex", "neg", "nekk","nelaw", "nen", "nettali","newi", "nëb", "nëbb",
    	 "ngan", "ngelaw","ngir", "nii", "niir","niit","niroo", "nlt", "njaay", "njaboot", "njamala", "njang", "njariñ","njêk",
    	 "njiit", "njombor", "nob","noor", "nooy", "nopalu","nopp","noppi", "nuyu","ñaan", "ñaar", "ñaata", "ñaaw", "ñam", "ñam",
    	 "ñambi", "ñaqq", "ñax", "ñebe", "ñent", "ñett","ñey", "ñëw", "ñibbi", "ñoganal", "ñombar", "ñor","ñun", "ñuul","obbëli",
    	 "om", "oom", "oons", "opp", "paaka", "palanteer", "pass", "pecc", "penku", "pepp", "petax", "pexe","picc", "po","pooc",
    	 "poon", "pulloox", "puso", "put", "raay", "rabb", "rafet", "ragal", "rakk", "rapp", "raxas", "reccu", "ree","reen",
    	 "reelu", "reer", "reer", "reesal","reew", "rek", "rey", "rëb", "roof", "roy", "rus","sabadoor","sacc", "saf", "sanggara",
    	 "sanggu", "sani", "sanke", "sant","saw", "saxaar", "saxaar", "sedd", "seet", "segg", "segg", "sëng", "sëqët","sër", "set",
    	 "sew", "sey", "siis", "simmeeku","soble", "soc", "sofental", "solo", "solu", "sonn", "sore", "soxna", "soxor", "sowu",
    	 "suba", "suuf", "suur", "tabax", "taal","taalata", "taar", "taat", "tabaski", "taccu", "tagg", "takaay", "takk","talal",
    	 "tali", "tann", "tang", "tangal", "tanggoor", "tank", "taqander", "tase", "taw","taxaw","teel", "teemeer", "teere",
    	 "tefes", "tekki", "tektal", "teranga", "tere", "tey", "tëdd", "tëj", "tëx", "tilim", "timis", "tissoli","togg",
    	 "toog", "tool", "tooñ", "togg","topp", "tooy", "tubaab","tubey", "tugël","tukki", "tur", "tuuti", "tux", "ubb",
    	 "ubbi", "uude", "waat", "waaw", "wacc", "waaj", "wajj", "wan", "wanak", "wañi","wañi ñi i", "warga", "watu",
    	 "wax","waxandor","waxtaan", "waxtu", "waxaale","we", "weccat", "wecci", "ween", "weer", "weex", "weñ", "woddu", "won",
    	 "woote", "woy", "wurus", "wut","wuute","xaj", "xalaat", "xale", "xaalis", "xaar","xarit", "xarit", "xeer", "xeeñ",
    	 "xeex", "xet","xiif","xob", "xol", "xool", "xolli","xonk", "xorom", "xuloo", "xurfaan", "yaa", "yaakaar", "yaay",
    	 "yagg", "yakkamti", "yapp", "yaram", "yeen", "yeew", "yeewu", "yegg", "yendu","yewwi", "yëkkëti", "yëpp", "yëre",
    	 "yobbu", "yoo","yomb", "yow","gaaraas","gaare","gaas","gaaswaal","gaaw","gaawu","gàdd","gakk","galaas","garaam",
    	 "gëdd","gënn","genn-wàll","giggante","giir","gis gis","gise","golo","góor gi","gor","gore","goro","gunóor","guro",
    	 "isin","iwil","jaan","jaaxal","jaaykat","jàdd","jaboot","jàll","jamano","jàngale","jàngalekat","jàngu","jàpp",
    	 "jarbaat","jéggaani","juger","jumtukaay","juróom benn","juróom benn fukk","juróom fukk","juróom ñaar","juróom ñent",
    	 "juróom ñett","kaar","weer","kaay","kafe","kanam","kànja","kart","karyon","kaset","kayit","kees","këf","kenn","kepaar",
    	 "kersa","ko","koñ","koñsilaa","kontine","kuddu","kuus","la","ñaan","lamp","léegi","leen","liggéeykat","liibar","liw",
    	 "lonet","lool","loo bëgg","loppitaan","tamit","luye","ma","màndi","marse","mbalit","mbay","mbootaay","mboq","mbuus",
    	 "mekanise","mel","miis","milyon","minise","misaal","miskin","mu ngi fi","mujj","muuñ","muus","ñaar fukk",
    	 "ñaar fukk ak benn","ñaare","ñaareel","ñaata","nag","naka-jekk","ñakk","nàngam","nangu","nappkat","nataal",
    	 "ñaw","ñax","nax","nbaam","ndab","ndam","ndank","ndigg","ndimbal","ndokkeel","ndugg","nëbb","ñebbe","ñebe",
    	 "néew","néew doole","ñent fukk","ngénte","ngoon","nguur","ni","nit","njëg","njegenaay","njël","ñoo ko bokk",
    	 "nugg","oteel","paaspoor","pereserwaatif","rab","sabadoor","sàllaaw","sama","samay","sang","say","seen","seeni",
    	 "sinemaa","sol","soxna si","su la neexee","suma","sunu","sunuy","surnaal","taaw","tàmbali","tanc","tànk","taskatu xabaar",
    	 "taxañ","taxawal","tayoor","tàyyal","tëdd","teeb","teeru","teg","têgg","tëgg","tele","telefon","tembar","tëngéej","toggkat",
    	 "tontu","wuyu","toogu","tóor-tóor","tudd","tugal","tus","ubbikaay","waa","waa-kër","waa faraas","waañ","waaye","wal","walaat",
    	 "waliis","walla","wanag","war","waxandor","welo","wert","wëttéen","wex","wóolu","woor","woote","woyof","wuude","xalaas","xam",
    	 "xamale","xanaa","xat","xéj na","xel","xelal","digal","xew","xew-xew","xob","yàalla","yagg","yàmbaa","yàq","yar","yaram","yaru",
    	 "yéet","yëg","yeneen","yewwi","yoon","yooyu","adarees","ak kan","ak lan", "aksidaa", "alkaati", "almet", "alxames",
    	 "am doole" ,"am na", "ambasaad","àmbolog","ampuul", "amul", "amule solo", "amuma dara", "aniwerseer", "artisan",
    	 "àttekat", "ay", "ayropoor", "ayubés","baana-baana", "baaraam", "baaxaay", "baaxul", "bag", "bagaas",
    	 "ndaw", "batanse", "beer", "beñe", "bër", "bërki-démb", "bés bu nekk", "bey", "beykat", "biir buy daw", "bik",
    	 "birket", "biti", "bitig", "biye", "borom", "borosaadaa", "bu yàgg", "caax", "càcc", "ceeñeer",
    	 "ci", "ci boor", "ci kanam", "kow", "ci wetu", "cofeel", "dafa génn", "dafa seer", "dakkoor", "dama la bëgg",
    	 "dantifiris", "darab", "dawal","defar", "dég-dég", "dëgg", "dëgg la", "dëll", "dénd", "dênn", "des",
    	 "dëwlin", "dex", "dibeer", "digal", "diine", "diisoo", "doktoor", "dox", "doxul", "du", "dugub", "dun", "dund",
    	 "ndongo", "esaas", "estaasyon", "etaas", "etijan", "fajkat", "fan", "farañse", "farmasi", "fàttali", "fekk",
    	 "fetal", "film", "firnde", "firsideer", "fó","foksineer", "fridom", "fukk ak benn", "fukk ak ñaar", "furset",
    	 "gaa","gaar","alal", "ñaay", "am", "gerte", "at", "baax", "ban", "ban", "ban", "banneex", "bant", "bataaxal", "beg", "biti"};
    

     

     

    Et voci ce que j'en ai tiré (lire la suite après) :

     

    bghjbunt
    caaxaan
    cosaan
    daqqaar
    dgr
    dkk
    dkk
    dig
    dom
    dom
    duss
    esaas
    fan
    febar
    fenn
    fey
    foot
    indi
    jaay
    gaanuwaay
    gan
    ganaar
    ganaaw
    garab
    gaa
    jakkaarloo
    jar
    jar
    ginnaaw
    jm
    joge
    jot
    jox
    juddu
    laaj
    laaj
    lakk
    laaj
    aan
    leb
    leer
    ligeey
    loxo
    mag
    mbaa
    mbaam
    mbaam
    mbin daan
    mbokk
    moom
    moom
    naan
    nawet
    nexx
    nekk
    ngan
    ngir
    njaay
    njang
    njiit
    nob
    nooy
    noppi
    noppi
    aan
    am
    mos
    aqq
    or
    penku
    rakk
    sacc
    naaw
    sey
    jongama
    suba
    suuf
    suff
    takk
    taw
    teemer
    tekki
    tukki
    tur
    tutti
    wax
    waxtaan
    waxtaan
    waxtu
    weccet
    we
    woy
    woy
    xalaat
    xalaat
    xorom
    yaa
    tekki
    kaas
    kanam
    
    kanam
    bala
    lef
    yenn saa
    seeni
    seet
    segg
    segg
    ubbikaay
    ubbikaay
    wante
    digal
    xew
    yoon
    ada
    aay
    aaye
    abal
    abb
    adduna
    agsi
    ajjuma
    ak
    alarba
    alal
    all
    altine
    alxames
    am
    ana
    and
    andandoo
    a
    areen
    asamaan
    askan
    at
    attan
    atte
    baal
    baaraam
    baat
    baat
    baax
    baay
    bakkan
    balaa
    ban
    ban
    banneex
    bant
    ba
    bare
    bataaxal
    batey
    baxa
    bayyi
    bees
    beg
    beneen
    benn
    berep
    bes
    bgg
    b
    bt
    biig
    biir
    biir
    bind
    bisaab
    biti
    bokk
    bon
    boole
    bopp
    bukki
    bunt
    caabi
    caaf
    caaxaan
    caaya
    cammoo
    ceeb
    ceebu
    cere
    concu
    coono
    coow
    cosaan
    curaay
    daagu
    daan
    daanaka
    daanu
    daara
    daaw
    daay
    dab
    dafa
    dagg
    dajaloo
    dall
    dama
    damm
    damp
    danga
    dangeen
    dau
    daqqaar
    dara
    darkase
    daw
    dee
    deedeet
    def
    deg
    degg
    deggal
    deglu
    dellu
    dem
    demb
    deu
    der
    dec
    dgr
    dkk
    dkk
    dng
    dig
    digg
    diggante
    diis
    dimble
    dindi
    dlw
    dof
    dok
    dolli
    doole
    doom
    doom
    door
    doxaan
    doy
    doyadi
    dugg
    duss
    egg
    ellk
    emb
    emb 
    ep
    eppl
    esanseri
    fab
    faj
    fan
    fanaan
    fanweer
    far
    fas
    fat
    fatte
    fay
    fecc
    feebar
    fee
    fees
    feete
    feexlu
    feey
    fen
    fenn
    fey
    fgg
    fii
    fiir
    fit
    fitna
    fo
    fomp
    fontoo
    foofu
    foon
    for
    fu
    fukk
    gaal
    gaanuwaay
    gaa 
    gaawantu
    gakk
    gan
    ganaar
    ganaaw 
    garab 
    gatt 
    gaynde 
    geej 
    gejj 
    gemmi 
    genn 
    gent 
    gm 
    gmmeentu
    grm
    ginnaaw 
    gis 
    goor 
    gudd 
    guddi 
    gumb 
    gune 
    guy 
    guro
    indi
    itam
    jaaro 
    jaay
    jabar 
    jafe 
    jakka
    jamb Suukr 
    jamm 
    jamp 
    jang 
    jant 
    jar
    jasig 
    jeem 
    jek 
    jf 
    jkk 
    jkr 
    jl 
    jm
    jn 
    jnd
    jr jf
    jigeen 
    jiite 
    jog 
    jom 
    jongama 
    jooy 
    jot 
    jox
    joxo 
    juboo 
    juddu
    julli
    jup
    jur 
    juroom 
    juum 
    juuti 
    juuyoo
    kaani 
    kaddu
    kan
    kanam 
    ka 
    kattan 
    kawas 
    kepaar 
    kersa 
    kewl
    kll 
    kpp 
    kr 
    kii 
    kooku
    kon 
    koor 
    korit 
    kow
    laac
    laaj
    laal
    lakk
    lal
    lam
    lammi
    lan
    leep
    leer
    lekk
    lepp
    lett
    lex
    lk
    lndm
    ligeey
    liir
    loos
    lox
    loxo
    lutax
    maafe
    maam
    mag
    maggat
    man
    mangi
    mar
    mat
    matt
    maye
    mbaa
    mbaam
    mbaar
    mbagg
    m'baj
    mbedd
    mbind
    mbindaan
    mbir
    mbokk
    mburu
    mn
    melax
    melo
    mer
    metti
    mettit
    meew
    moom
    mukk
    naan
    naam
    naaw
    nak
    naka
    nak
    namm
    napp
    natt
    nawet
    ndaanaan
    ndaw
    ndawtal
    ndax
    ndayjoor
    ndekki
    ndey
    ndog
    ndox
    ndoxaan
    neeg
    neex
    neg
    nekk
    nelaw
    nen
    nettali
    newi
    nb
    nbb
    ngan
    ngelaw
    ngir
    nii
    niir
    niit
    niroo
    nlt
    njaay
    njaboot
    njamala
    njang
    njari
    njk
    njiit
    njombor
    nob
    noor
    nooy
    nopalu
    nopp
    noppi
    nuyu
    aan
    aar
    aata
    aaw
    am
    am
    ambi
    aqq
    ax
    ebe
    ent
    ett
    ey
    w
    ibbi
    oganal
    ombar
    or
    un
    uul
    obbli
    om
    oom
    oons
    opp
    paaka
    palanteer
    pass
    pecc
    penku
    pepp
    petax
    pexe
    picc
    po
    pooc
    poon
    pulloox
    puso
    put
    raay
    rabb
    rafet
    ragal
    rakk
    rapp
    raxas
    reccu
    ree
    reen
    reelu
    reer
    reer
    reesal
    reew
    rek
    rey
    rb
    roof
    roy
    rus
    sabadoor
    sacc
    saf
    sanggara
    sanggu
    sani
    sanke
    sant
    saw
    saxaar
    saxaar
    sedd
    seet
    segg
    segg
    sng
    sqt
    sr
    set
    sew
    sey
    siis
    simmeeku
    soble
    soc
    sofental
    solo
    solu
    sonn
    sore
    soxna
    soxor
    sowu
    suba
    suuf
    suur
    tabax
    taal
    taalata
    taar
    taat
    tabaski
    taccu
    tagg
    takaay
    takk
    talal
    tali
    tann
    tang
    tangal
    tanggoor
    tank
    taqander
    tase
    taw
    taxaw
    teel
    teemeer
    teere
    tefes
    tekki
    tektal
    teranga
    tere
    tey
    tdd
    tj
    tx
    tilim
    timis
    tissoli
    togg
    toog
    tool
    too
    togg
    topp
    tooy
    tubaab
    tubey
    tugl
    tukki
    tur
    tuuti
    tux
    ubb
    ubbi
    uude
    waat
    waaw
    wacc
    waaj
    wajj
    wan
    wanak
    wai
    wai i i
    warga
    watu
    wax
    waxandor
    waxtaan
    waxtu
    waxaale
    we
    weccat
    wecci
    ween
    weer
    weex
    we
    woddu
    won
    woote
    woy
    wurus
    wut
    wuute
    xaj
    xalaat
    xale
    xaalis
    xaar
    xarit
    xarit
    xeer
    xee
    xeex
    xet
    xiif
    xob
    xol
    xool
    xolli
    xonk
    xorom
    xuloo
    xurfaan
    yaa
    yaakaar
    yaay
    yagg
    yakkamti
    yapp
    yaram
    yeen
    yeew
    yeewu
    yegg
    yendu
    yewwi
    ykkti
    ypp
    yre
    yobbu
    yoo
    yomb
    yow
    gaaraas
    gaare
    gaas
    gaaswaal
    gaaw
    gaawu
    gdd
    gakk
    galaas
    garaam
    gdd
    gnn
    genn-wll
    giggante
    giir
    gis gis
    gise
    golo
    gor gi
    gor
    gore
    goro
    gunor
    guro
    isin
    iwil
    jaan
    jaaxal
    jaaykat
    jdd
    jaboot
    jll
    jamano
    jngale
    jngalekat
    jngu
    jpp
    jarbaat
    jggaani
    juger
    jumtukaay
    jurom benn
    jurom benn fukk
    jurom fukk
    jurom aar
    jurom ent
    jurom ett
    kaar
    weer
    kaay
    kafe
    kanam
    knja
    kart
    karyon
    kaset
    kayit
    kees
    kf
    kenn
    kepaar
    kersa
    ko
    ko
    kosilaa
    kontine
    kuddu
    kuus
    la
    aan
    lamp
    legi
    leen
    liggeykat
    liibar
    liw
    lonet
    lool
    loo bgg
    loppitaan
    tamit
    luye
    ma
    mndi
    marse
    mbalit
    mbay
    mbootaay
    mboq
    mbuus
    mekanise
    mel
    miis
    milyon
    minise
    misaal
    miskin
    mu ngi fi
    mujj
    muu
    muus
    aar fukk
    aar fukk ak benn
    aare
    aareel
    aata
    nag
    naka-jekk
    akk
    nngam
    nangu
    nappkat
    nataal
    aw
    ax
    nax
    nbaam
    ndab
    ndam
    ndank
    ndigg
    ndimbal
    ndokkeel
    ndugg
    nbb
    ebbe
    ebe
    new
    new doole
    ent fukk
    ngnte
    ngoon
    nguur
    ni
    nit
    njg
    njegenaay
    njl
    oo ko bokk
    nugg
    oteel
    paaspoor
    pereserwaatif
    rab
    sabadoor
    sllaaw
    sama
    samay
    sang
    say
    seen
    seeni
    sinemaa
    sol
    soxna si
    su la neexee
    suma
    sunu
    sunuy
    surnaal
    taaw
    tmbali
    tanc
    tnk
    taskatu xabaar
    taxa
    taxawal
    tayoor
    tyyal
    tdd
    teeb
    teeru
    teg
    tgg
    tgg
    tele
    telefon
    tembar
    tngej
    toggkat
    tontu
    wuyu
    toogu
    tor-tor
    tudd
    tugal
    tus
    ubbikaay
    waa
    waa-kr
    waa faraas
    waa
    waaye
    wal
    walaat
    waliis
    walla
    wanag
    war
    waxandor
    welo
    wert
    wtten
    wex
    wolu
    woor
    woote
    woyof
    wuude
    xalaas
    xam
    xamale
    xanaa
    xat
    xj na
    xel
    xelal
    digal
    xew
    xew-xew
    xob
    yalla
    yagg
    ymbaa
    yq
    yar
    yaram
    yaru
    yet
    yg
    yeneen
    yewwi
    yoon
    yooyu
    adarees
    ak kan
    ak lan
    aksidaa
    alkaati
    almet
    alxames
    am doole 
    am na
    ambasaad
    mbolog
    ampuul
    amul
    amule solo
    amuma dara
    aniwerseer
    artisan
    ttekat
    ay
    ayropoor
    ayubs
    baana-baana
    baaraam
    baaxaay
    baaxul
    bag
    bagaas
    ndaw
    batanse
    beer
    bee
    br
    brki-dmb
    bs bu nekk
    bey
    beykat
    biir buy daw
    bik
    birket
    biti
    bitig
    biye
    borom
    borosaadaa
    bu ygg
    caax
    ccc
    ceeeer
    ci
    ci boor
    ci kanam
    kow
    ci wetu
    cofeel
    dafa gnn
    dafa seer
    dakkoor
    dama la bgg
    dantifiris
    darab
    dawal
    defar
    dg-dg
    dgg
    dgg la
    dll
    dnd
    dnn
    des
    dwlin
    dex
    dibeer
    digal
    diine
    diisoo
    doktoor
    dox
    doxul
    du
    dugub
    dun
    dund
    ndongo
    esaas
    estaasyon
    etaas
    etijan
    fajkat
    fan
    farase
    farmasi
    fttali
    fekk
    fetal
    film
    firnde
    firsideer
    f
    foksineer
    fridom
    fukk ak benn
    fukk ak aar
    furset
    gaa
    gaar
    alal
    aay
    am
    gerte
    at
    baax
    ban
    ban
    ban
    banneex
    bant
    bataaxal
    beg
    biti
    ----------------
    maxi = 16
    1056

     

    Parfois il n'y a qu'une lettre, c'est normal, la seconde n'a pas pu passer à la transcription.

    Voir aussi le fichier d'origine, car la recopie ici ne recopie pas ficèlement ce qui est décrit (tilles, trémas)... 

    Alors je voudrais savoir ce que je fais des tilles, des trémas, des o accent grave, les transformer en quoi ?

    Les mots sont-ils bons ?

    Merci, au plaisir.

     



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire


    • Modifié EhJoe dimanche 1 mai 2011 06:41 addendum
    dimanche 1 mai 2011 06:36
  • Bonjour

    Pour les accents trémas et autre vous pouvez ne pas le mettre au faite c'est pour aider l'utilisateur pendant la lecture, donc vous pouvez les enlevés, le tri par ordre alphabétique est bien fait, tous les mots sont bon sauf le début du premier mot Wolof c'est bunt au lieu de bghibunt.

     

    dimanche 1 mai 2011 09:20
  • Bonjour Kader,

     

    voici le code dont tu as le fichier source :

    ' dico français, anglais, wolof
    Option Explicit On
    Public Class Form1
     Dim nomFichier As String = "fr+ang+wol.txt"
     Dim langue As String = ""
     Dim LB As New Collection()
     Dim la As Byte = 0
     Dim lgrF As Byte = 0
     Dim lgrA As Byte = 0
     Dim lgrW As Byte = 0
     Dim fr As String = "Français        Anglais             Wolof"
     Dim ang As String = "Anglais             Français        Wolof"
     Dim wol As String = "Wolof       Français        Anglais"
    
     Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Dim i As Integer
      Dim l4 As Byte
      Dim l5 As Byte
      Dim l6 As Byte
      Dim li4 As String
      Dim li5 As String
      Dim li6 As String
      LB.Add(Me.ListBox1)
      LB.Add(Me.ListBox2)
      LB.Add(Me.ListBox3)
      For i = 1 To 3
       LB(i).sorted = True
       LB(i).items.clear()
      Next i
      ListBox4.Items.Clear()
      ListBox5.Items.Clear()
      ListBox6.Items.Clear()
      Call efface3listes()
      Me.Left = 25
      Me.Top = 25
      Dim ligne As String
      Try
       Dim depuis As Integer
       Dim position As Integer
       Dim mot As String
       Dim p As New System.IO.StreamReader(CStr(My.Application.Info.DirectoryPath & "\" & nomFichier))
       While p.Peek() >= 0 ' lecture
        ligne = p.ReadLine()
        depuis = 1
        position = InStr(depuis, ligne, ";", 1)
        ListBox4.Items.Add(Mid(ligne, depuis, position - 1))
        mot = Mid(ligne, depuis, position - 1)
        If Len(mot) > lgrF Then lgrF = Len(mot)
        depuis = position + 1
        position = InStr(depuis, ligne, ";", 1)
        ListBox5.Items.Add(Mid(ligne, depuis, position - depuis))
        mot = Mid(ligne, depuis, position - 1)
        If Len(mot) > lgrA Then lgrA = Len(mot)
        depuis = position + 1
        ListBox6.Items.Add(Mid(ligne, depuis, Len(ligne) - position))
        mot = Mid(ligne, depuis, position - 1)
        If Len(mot) > lgrW Then lgrW = Len(mot)
       End While
       p.Close()
      Catch ex As Exception
       MsgBox("Fichier " & nomFichier & " introuvable", vbExclamation)
       Reset()
       End
      End Try
      lgrF = lgrF + 2 '24
      lgrA = lgrA + 2 ' 32
      lgrW = lgrW + 2 '19
      For i = 0 To ListBox4.Items.Count - 1
       l4 = Len(ListBox4.Items(i))
       l5 = Len(ListBox5.Items(i))
       l6 = Len(ListBox6.Items(i))
       li4 = ListBox4.Items(i)
       li5 = ListBox5.Items(i)
       li6 = ListBox6.Items(i)
       LB(1).items.add(li4 & Space(lgrF - l4) & li5 & Space(lgrA - l5) & li6)
       LB(2).items.add(li5 & Space(lgrA - l5) & li4 & Space(lgrF - l4) & li6)
       LB(3).items.add(li6 & Space(lgrW - l6) & li4 & Space(lgrF - l4) & li5)
      Next i
     End Sub
    
     Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
      TextBox1.Focus()
     End Sub
    
     Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
      Call RadioButton1_Click(sender, e)
     End Sub
    
     Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click
      langue = "français"
      la = 1
      TextBox3.Text = fr
      Call efface3listes()
      LB(la).visible = True
      PictureBox1.Image = My.Resources.df
      TextBox1.Focus()
     End Sub
    
     Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
      Call RadioButton2_Click(sender, e)
     End Sub
    
     Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.Click
      langue = "anglais"
      la = 2
      TextBox3.Text = ang
      Call efface3listes()
      LB(la).visible = True
      PictureBox1.Image = My.Resources.da
      TextBox1.Focus()
     End Sub
    
     Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
      Call RadioButton3_Click(sender, e)
     End Sub
    
     Sub RadioButton3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton3.Click
      langue = "wolof"
      la = 3
      TextBox3.Text = wol
      Call efface3listes()
      LB(la).visible = True
      PictureBox1.Image = My.Resources.dw
      TextBox1.Focus()
     End Sub
    
     Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
      Dim i As Integer
      Dim j As Integer
      Call efface3listes()
      LB(la).Visible = True
      If Len(TextBox1.Text) > 0 Then
       For i = Len(TextBox1.Text) To 1 Step -1
        For j = 0 To LB(la).Items.Count - 1
         If TextBox1.Text = Mid(LB(la).Items(j), 1, i) Then
          LB(la).SelectedIndex = j
          LB(la).TopIndex = j
          Exit Sub
         End If
        Next j
       Next i
       LB(la).TopIndex = 0
      End If
     End Sub
    
     Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      TextBox1.Text = ""
      Call efface3listes()
      LB(la).visible = True
      TextBox1.Focus()
     End Sub
    
     Sub efface3listes()
      For i = 1 To 3
       LB(i).visible = False
      Next i
     End Sub
    
    End Class
    
    
    
    

    Cordialement.



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe vendredi 6 mai 2011 10:05
    vendredi 6 mai 2011 10:04