Microsoft Visual Basic - Encyclopaedia Gentium Boni
Microsoft Visual Basic - Encyclopaedia Gentium Boni
Microsoft Visual Basic - Encyclopaedia Gentium Boni
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
fctAnalyserLatin - 1<br />
Option Explicit<br />
ublic Function AnalyserLatin(mot, Resultat) As String<br />
NE PAS OUBLIER DE TRIER<br />
METTRE LES ELEMENTS LES + LONGS AU DÉPART<br />
right(mot) 8...<br />
right(mot) 7...<br />
right(mot) 6...<br />
bien sûr, tout est dans le désordre, mais je n'ai pas le choix<br />
ot = Trim(mot)<br />
f Right(mot, 1) = "." Then<br />
ot = Mid(mot, 1, Len(mot) - 1)<br />
nd If<br />
(Manque IPSE)<br />
penser à alléger le code en remplaçant pronom adjectif interrogatif par une variable<br />
f Right(mot, 9) = "ti erimus" Then<br />
esultat = "Indicatif futur antérieur passif, première personne du pluriel"<br />
lseIf Right(mot, 9) = "ti eritis" Then<br />
esultat = "Indicatif futur antérieur passif, deuxième personne du pluriel"<br />
lseIf Right(mot, 8) = "tus eris" Then<br />
esultat = "Indicatif futur antérieur passif, deuxième personne du singulier"<br />
lseIf Right(mot, 8) = "tus erit" Then<br />
esultat = "Indicatif futur antérieur passif, troisième personne du singulier"<br />
lseIf Right(mot, 8) = "ti erunt" Then<br />
esultat = "Indicatif futur antérieur passif, troisième personne du pluriel"<br />
lseIf Right(mot, 8) = "ti sumus" Then<br />
esultat = "Indicatif plus-que-parfait passif, première personne du pluriel"<br />
lseIf Right(mot, 8) = "ti estis" Then<br />
esultat = "Indicatif plus-que-parfait passif, deuxième personne du pluriel"<br />
lseIf Right(mot, 7) = "tus ero" Then<br />
esultat = "Indicatif futur antérieur passif, première personne du singulier"<br />
lseIf Right(mot, 7) = "tus est" Then<br />
esultat = "Indicatif plus-que-parfait passif, troisième personne du singulier"<br />
lseIf Right(mot, 7) = "ti sunt" Then<br />
esultat = "Indicatif plus-que-parfait passif, troisième personne du pluriel"<br />
lseIf Right(mot, 7) = "tus sum" Then<br />
esultat = "Indicatif plus-que-parfait passif, première personne du singulier"<br />
lseIf Right(mot, 7) = "verimus" Then<br />
esultat = "Indicatif futur antérieur actif, première personne du pluriel"<br />
lseIf Right(mot, 7) = "veritis" Then<br />
esultat = "Indicatif futur antérieur actif, deuxième personne du pluriel"<br />
lseIf Right(mot, 7) = "veramus" Then<br />
esultat = "Indicatif plus-que-parfait actif, première personne du pluriel"<br />
lseIf Right(mot, 7) = "veratis" Then<br />
esultat = "Indicatif plus-que-parfait actif, deuxième personne du pluriel"<br />
lseIf mot = "illius" Then<br />
esultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de celui<br />
là"<br />
lseIf mot = "quorum" Then<br />
esultat = " Pronom adjectif interrogatif, génitif masculin / neutre pluriel : desquels ?"<br />
lseIf mot = "quibus" Then<br />
esultat = " Pronom adjectif interrogatif ou relatif, datif ou ablatif m-f-n OU neutre pluriel : au<br />
quels, par lesquels ?"<br />
lseIf mot = "quarum" Then<br />
esultat = " Pronom adjectif interrogatif, génitif féminin pluriel : desquelles ?"<br />
lseIf Right(mot, 6) = "buntur" Then<br />
esultat = "Indicatif futur passif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "verunt" Then<br />
esultat = "Indicatif futur passif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "tus es" Then<br />
esultat = "Indicatif plus-que-parfait passif, deuxième personne du singulier"<br />
lseIf Right(mot, 6) = "bamini" Then<br />
esultat = "Indicatif imparfait actif, deuxième personne du pluriel"<br />
lseIf Right(mot, 6) = "bantur" Then<br />
esultat = "Indicatif imparfait actif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "verant" Then<br />
esultat = "Indicatif futur actif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "verunt" Then<br />
esultat = "Indicatif futur actif, troisième personne du pluriel"<br />
lseIf Right(mot, 6) = "verint" Then<br />
esultat = "Indicatif futur antérieur actif, troisième personne du pluriel"<br />
lseIf Right(mot, 5) = "vimus" Then<br />
esultat = "Indicatif parfait passif, première personne du pluriel"<br />
lseIf Right(mot, 5) = "vitis" Then<br />
esultat = "Indicatif parfait passif, deuxième personne du pluriel"