Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctAnalyserLatin - 5
ElseIf mot = "hi" Then
Resultat = " Pronom adjectif démonstratif, nominatif masculin pluriel : ceux-ci"
ElseIf mot = "is" Then
Resultat = " Pronom adjectif démonstratif, nominatif masculin singulier : lui"
ElseIf mot = "tu" Then
Resultat = " Pronom personnel, nominatif ou ablatif singulier : toi"
ElseIf mot = "te" Then
Resultat = " Pronom personnel, accusatif singulier : toi, te"
ElseIf mot = "se" Then
Resultat = " Pronom personnel réfléchi, nominatif ou accusatif (ou ablatif) singulier : lui-même"
ElseIf mot = "ei" Then
Resultat = " Pronom adjectif démonstratif, datif masculin / féminin / neutre singulier : lui OU nom
inatif masculin pluriel"
ElseIf mot = "eo" Then
Resultat = " Pronom adjectif démonstratif, ablatif masculin / neutre singulier : lui"
ElseIf mot = "ea" Then
Resultat = " Pronom adjectif démonstratif, nominatif ou ablatif féminin singulier : elle OU Nominat
if - accusatif neutre pluriel"
ElseIf mot = "id" Then
Resultat = " Pronom adjectif démonstratif, nominatif / accusatif neutre singulier : ce, cet"
ElseIf mot = "ii" Then
Resultat = " Pronom adjectif démonstratif, nominatif masculin pluriel : eux "
ElseIf Right(mot, 2) = "bor" Then
Resultat = "Indicatif futur passif, première personne du singulier"
ElseIf Right(mot, 2) = "vi" Then
Resultat = "Indicatif parfait passif, première personne du singulier"
ElseIf Right(mot, 2) = "nt" Then
Resultat = "Indicatif présent actif, troisième personne du pluriel"
ElseIf Right(mot, 2) = "am" Then
Resultat = "Acusatif féminin singulier, 1ère déclinaison"
ElseIf Right(mot, 2) = "ae" Then
Resultat = "Génitif, datif féminin singulier, 1ère déclinaison / Nominatif, vocatif féminin pluriel
"
ElseIf Right(mot, 2) = "as" Then
Resultat = "Acusatif féminin pluriel, 1ère déclinaison (ou Indicatif présent actif, deuxième person
ne du singulier, 1ère conjugaison)"
ElseIf Right(mot, 2) = "is" Then
Resultat = "Datif, ablatif féminin pluriel, 1ère ou 2ème déclinaison OU Génitif neutre singulier, 3
ème déclinaison"
ElseIf Right(mot, 2) = "us" Then
Resultat = "Nominatif masculin singulier, 2ème déclinaison"
ElseIf Right(mot, 2) = "um" Then
Resultat = "Accusatif masculin singulier, 2ème déclinaison OU Nom, Voc, Acc neutre singulier, 2ème
déclinaison OU Génitif masculin singulier, 3ème déclinaison"
ElseIf Right(mot, 2) = "os" Then
Resultat = "Accusatif masculin pluriel, 2ème déclinaison"
ElseIf mot = "es" Then
Resultat = "Verbe être, indicatif présent actif, deuxième personne du singulier"
ElseIf Right(mot, 2) = "em" Then
Resultat = "Accusatif masculin singulier, 3ème déclinaison"
ElseIf Right(mot, 2) = "es" Then
Resultat = "Nominatif, Vocatif, Accusatif masculin pluriel, 3ème déclinaison"
ElseIf Right(mot, 1) = "a" Then
Resultat = "Nominatif, vocatif, ablatif féminin singulier, 1ère déclinaison OU Nom, Voc, Acc neutre
pluriel, 2ème déclinaison"
ElseIf Right(mot, 1) = "i" Then
Resultat = "Génitif (masculin ou neutre) singulier, OU nominatif, vocatif masculin pluriel - 2ème d
éclinaison OU Datif neutre singulier, 3ème déclinaison"
ElseIf Right(mot, 1) = "e" Then
Resultat = "Vocatif masculin singulier, 2ème déclinaison OU Ablatif neutre singulier, 3ème déclinai
son"
ElseIf Right(mot, 1) = "o" Then
Resultat = "Datif, ablatif (masculin ou neutre) singulier, 2ème déclinaison OU Indicatif présent ac
tif, première personne du singulier."
ElseIf Right(mot, 1) = "s" Then
Resultat = "Indicatif présent actif, deuxième personne du singulier"
ElseIf Right(mot, 1) = "t" Then
Resultat = "Indicatif présent actif, trosième personne du singulier"
Else
Resultat = "Pas d'analyse"
End If
End Function