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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

fctAnalyserLatin - 2<br />

ElseIf Right(mot, 5) = "bamus" Then<br />

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

ElseIf Right(mot, 5) = "batis" Then<br />

Resultat = "Indicatif imparfait actif, deuxième personne du pluriel"<br />

ElseIf Right(mot, 5) = "bimus" Then<br />

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

ElseIf mot = "sumus" Then<br />

Resultat = "Verbe être, indicatif présent actif, première personne du pluriel"<br />

ElseIf mot = "estis" Then<br />

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

ElseIf Right(mot, 5) = "bitis" Then<br />

Resultat = "Indicatif futur actif, deuxième personne du pluriel"<br />

ElseIf Right(mot, 5) = "visti" Then<br />

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

ElseIf Right(mot, 5) = "vimus" Then<br />

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

ElseIf Right(mot, 5) = "vitis" Then<br />

Resultat = "Indicatif parfait actif, deuxième personne du pluriel"<br />

ElseIf Right(mot, 5) = "veram" Then ' attention , cet enregistrement doitpasser en priorité<br />

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

ElseIf Right(mot, 5) = "veras" Then<br />

Resultat = "Indicatif plus-que-parfait actif, deuxième personne du singulier "<br />

ElseIf Right(mot, 5) = "verat" Then<br />

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

ElseIf Right(mot, 5) = "baris" Then<br />

Resultat = "Indicatif imparfait actif, deuxième personne du singulier"<br />

ElseIf Right(mot, 5) = "barit" Then<br />

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

ElseIf Right(mot, 5) = "bamur" Then<br />

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

ElseIf Right(mot, 5) = "veris" Then<br />

Resultat = "Indicatif futur antérieur actif, deuxième personne du singulier"<br />

ElseIf Right(mot, 5) = "verit" Then<br />

Resultat = "Indicatif futur antérieur actif, troisième personne du singulier "<br />

ElseIf Right(mot, 5) = "visti" Then<br />

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

ElseIf Right(mot, 5) = "bimur" Then<br />

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

ElseIf mot = "hujus" Then<br />

Resultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de celui<br />

-ci"<br />

ElseIf mot = "horum" Then<br />

Resultat = " Pronom adjectif démonstratif, génitif masculin / féminin / neutre singulier : de ceuxci"<br />

ElseIf mot = "harum" Then<br />

Resultat = " Pronom adjectif démonstratif, génitif féminin pluriel : de celles-ci"<br />

ElseIf mot = "illum" Then<br />

Resultat = " Pronom adjectif démonstratif, accusatif masculin singulier : celui-là"<br />

ElseIf mot = "illud" Then<br />

Resultat = " Pronom adjectif démonstratif, nominatif / accusatif neutre singulier"<br />

ElseIf mot = "eorum" Then<br />

Resultat = " Pronom adjectif démonstratif, génitif masculin pluriel : d'eux, à eux, le leur "<br />

ElseIf mot = "earum" Then<br />

Resultat = " Pronom adjectif démonstratif, génitif féminin pluriel : d'elles, à elles, le leur "<br />

ElseIf mot = "cujus" Then<br />

Resultat = " Pronom adjectif interrogatif, génitif M/F/N singulier : de qui, duquel ?"<br />

ElseIf Right(mot, 5) = "bimini" Then<br />

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

ElseIf Right(mot, 4) = "bant" Then<br />

Resultat = "Indicatif imparfait actif, troisième personne du pluriel"<br />

ElseIf mot = "quem" Then<br />

Resultat = " Pronom adjectif interrogatif ou relatif, accusatif masculin singulier : qui, lequel ?"<br />

ElseIf mot = "mihi" Then<br />

Resultat = " Pronom personnel, datif singulier : à moi (marque souvent l'appartenance)"<br />

ElseIf mot = "tibi" Then<br />

Resultat = " Pronom personnel, datif singulier : à toi"<br />

ElseIf mot = "sibi" Then<br />

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

ElseIf mot = "sese" Then<br />

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

ElseIf mot = "hunc" Then<br />

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

ElseIf mot = "huic" Then<br />

Resultat = " Pronom adjectif démonstratif, datif masculin / féminin / neutre singulier : celui-ci"<br />

ElseIf mot = "haec" Then<br />

Resultat = " Pronom adjectif démonstratif, nominatif-accusatif neutre pluriel"

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

Saved successfully!

Ooh no, something went wrong!