15.07.2013 Views

Microsoft Visual Basic - Encyclopaedia Gentium Boni

Microsoft Visual Basic - Encyclopaedia Gentium Boni

Microsoft Visual Basic - Encyclopaedia Gentium Boni

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

fctAnalyserLatin - 4<br />

Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />

ElseIf mot = "hoc" Then<br />

Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />

ElseIf mot = "hoc" Then<br />

Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />

ElseIf mot = "hoc" Then<br />

Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />

ElseIf mot = "hoc" Then<br />

Resultat = " Pronom adjectif démonstratif, accusatif masculin / féminin / neutre singulier : celuici"<br />

ElseIf mot = "eum" Then<br />

Resultat = " Pronom adjectif démonstratif, accusatif masculin singulier : lui"<br />

ElseIf mot = "eam" Then<br />

Resultat = " Pronom adjectif démonstratif, accusatif féminin singulier : elle"<br />

ElseIf mot = "eos" Then<br />

Resultat = " Pronom adjectif démonstratif, accusatif masculin pluriel : eux "<br />

ElseIf mot = "eae" Then<br />

Resultat = " Pronom adjectif démonstratif, nominatif féminin pluriel : elles "<br />

ElseIf mot = "eas" Then<br />

Resultat = " Pronom adjectif démonstratif, accusatif masculin pluriel : elles "<br />

ElseIf mot = "ego" Then<br />

Resultat = " Pronom personnel, nominatif singulier : moi"<br />

ElseIf mot = "eii" Or mot = "iis" Then<br />

Resultat = " Pronom adjectif démonstratif, datif, ablatif, masculin / féminin / neutre pluriel : eu<br />

x "<br />

ElseIf mot = "mei" Then<br />

Resultat = " Pronom personnel, génitif singulier : de moi, à moi"<br />

ElseIf mot = "tui" Then<br />

Resultat = " Pronom personnel, génitif singulier : de toi, à toi"<br />

ElseIf mot = "sui" Then<br />

Resultat = " Pronom personnel réfléchi, génitif singulier : à lui-même"<br />

ElseIf mot = "cui" Then<br />

Resultat = " Pronom adjectif interrogatif ou relatif, datif masculin / neutre singulier : à qui, au<br />

lequel ?"<br />

ElseIf mot = "quo" Then<br />

Resultat = " Pronom adjectif interrogatif ou relatif, ablatif masculin singulier : par qui, par leq<br />

uel ?"<br />

ElseIf mot = "qui" Then<br />

Resultat = " Pronom relatif, nominatif masculin singulier: qui"<br />

ElseIf mot = "qui" Then<br />

Resultat = " Pronom adjectif interrogatif, nominatif masculin pluriel : quels, lesquels ?"<br />

ElseIf mot = "qua" Then<br />

Resultat = " Pronom adjectif interrogatif ou relatif, ablatif féminin singulier : par quelle, par l<br />

aquelle ?"<br />

ElseIf Right(mot, 3) = "ris" Then<br />

Resultat = "Indicatif présent passif, deuxième personne du singulier"<br />

ElseIf Right(mot, 3) = "rit" Then<br />

Resultat = "Indicatif présent passif, trosième personne du singulier"<br />

ElseIf Right(mot, 3) = "mur" Then<br />

Resultat = "Indicatif présent passif, première personne du pluriel"<br />

ElseIf Right(mot, 3) = "vit" Then<br />

Resultat = "Indicatif parfait actif, troisième personne du singulier"<br />

ElseIf Right(mot, 3) = "beris" Then<br />

Resultat = "Indicatif futur passif, deuxième personne du singulier"<br />

ElseIf Right(mot, 3) = "bitur" Then<br />

Resultat = "Indicatif futur passif, troisième personne du singulier"<br />

ElseIf mot = "est" Then<br />

Resultat = "Verbe être, indicatif présent actif, troisième personne du singulier"<br />

ElseIf mot = "sum" Then<br />

Resultat = "Verbe être, indicatif présent actif, premier personne du singulier"<br />

ElseIf Right(mot, 3) = "bor" Then<br />

Resultat = "Indicatif imparfait actif, première personne du singulier"<br />

ElseIf Right(mot, 3) = "vit" Then<br />

Resultat = "Indicatif parfait passif, troisième personne du singulier"<br />

ElseIf Right(mot, 2) = "bo" Then<br />

Resultat = "Indicatif futur actif, première personne du singulier"<br />

ElseIf Right(mot, 2) = "vi" Then<br />

Resultat = "Indicatif parfait actif, première personne du singulier"<br />

ElseIf Right(mot, 2) = "or" Then<br />

Resultat = "Indicatif présent passif, première personne du singulier."<br />

ElseIf mot = "me" Then<br />

Resultat = " Pronom personnel, accusatif ou ablatif singulier : à moi, pour moi"

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!