Discussion :

[Rover]

Bonjour développeur

Je suis entrain de créer un conjugueur, mais premier obstacle c'etait comment je verfier si le verbe est du premier groupe .
si la terminaison est "er" fait ceci ... Pouvez-vous me filer quelques idée si c'était possible !

et merci d'avance

[clementmarcotte]

Bonjour,

Bonjour développeur

Je suis entrain de créer un conjugueur, mais premier obstacle c'etait comment je verfier si le verbe est du premier groupe .
si la terminaison est "er" fait ceci ... Pouvez-vous me filer quelques idée si c'était possible !

et merci d'avance

Quelque chose qui ressemblerait à cela:

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
Dim Verbe as string = "lire"
Dim ResteIci as boolean = true
do until ResteIci = false
    if verbe.endswith("er") then
            ResteIci = false
 
     'Conjugaison du premier groupe
 
     elseif verbe.endswith("ir") then
            ResteIci = false
 
      'Conjugaison du deuxième groupe
 
      elseif verbe.endswith("re") then
            ResteIci = false
 
       'Conjugaison du troisième groupe
 
       else
       MessageBox.show("Votre mot n'est pas reconnu, recommencez")
 
     end if
end sub
loop

[mermich]

Salut,

Avoir un dictionnaire contenant tous les verbes du premier groupe

Car qui te dit que 'clavier' est un verbe ?

Bon, a part ca, ca va etre loin d'etre facile: tu peux par exemple avoir une liste des exeptions dans laquelle tu vas mettre le verbe 'aller'

De plus tu vas egalement avoir des problemes avec les verbes du prmier groupe, mais qui se comportent bizzarement: 'manger'

nous mangeons

Bonne chance, c'est loin d'etre si facile que ca.

[Rover]

Merci pour le code chef je verrai si je peux le poser sur le champ ..

Aah oui c'est vrai , alors comme tu as dit je dois lister les verbes sous une base donnée par exemple pour éviter ces risque là ;

Merci beaucoup pour vos suggestion (y)

[Rover]

Je viens de terminer la premiére partie de mon 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
Dim verbe As String = N1.Text
        Dim res As Boolean
        Dim array(0) As String
 
        array(0) = N1.Text
 
        res = verbe.EndsWith("er")
 
        If res = True Then
            For Each element As String In array
                Dim terminaison As String = element.TrimEnd("e", "r")
                N2.Text = terminaison
            Next
        End If