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.

fctAnalyserGrec - 6<br />

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

Resultat = " Indicatif futur moyen, 2ème personne du singulier"<br />

enlever = 3<br />

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

Resultat = " Indicatif parfait moyen-passif, 1ère personne du singulier"<br />

enlever = 3<br />

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

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

enlever = 3<br />

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

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

enlever = 3<br />

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

Resultat = " Indicatif parfait moyen-passif, 2ème personne du pluriel" ' fin du 3 sans augment<br />

enlever = 3<br />

ElseIf Right(mot, 3) = "ouj" Then ' 2ème decl logos, 3<br />

Resultat = " Accusatif masculin pluriel, 2ème déclinaison"<br />

enlever = 3<br />

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

Resultat = " Datif masculin / neutre pluriel, 2ème déclinaison" ' fin 2eme decl logos, 3<br />

enlever = 3<br />

ElseIf Right(mot, 3) = "h/n" Then ' début 1ère decl fem, ê/ês, 3<br />

Resultat = " Accusatif féminin singulier, 1ère déclinaison"<br />

enlever = 3<br />

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

Resultat = " Génitif féminin singulier, 1ère déclinaison"<br />

enlever = 3<br />

ElseIf Right(mot, 3) = "h=|" Or Right(mot, 3) = "h|=" Then<br />

Resultat = " Datif féminin singulier, 1ère déclinaison"<br />

enlever = 3<br />

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

Resultat = " Nominatif/Vocatif féminin pluriel, 1ère déclinaison"<br />

enlever = 3<br />

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

Resultat = " Accusatif féminin pluriel, 1ère déclinaison"<br />

enlever = 3<br />

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

Resultat = " Datif féminin pluriel, 1ère déclinaisaon"<br />

enlever = 3<br />

ElseIf mot = "gar" Then<br />

Resultat = " Conjonction : car, en effet"<br />

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

Resultat = " Génitif masculin/féminin/neutre pluriel" ' fin 1ère decl fem, ê, ês, 3<br />

enlever = 3<br />

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "on" Then ' début du 2 avec augment<br />

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

enlever = 2<br />

enleverg = 2<br />

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "ej" Then<br />

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

enlever = 2<br />

enleverg = 2<br />

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "sa" Then<br />

Resultat = " Indicatif aoriste actif, 1ère personne du singulier"<br />

enlever = 2<br />

enleverg = 2<br />

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "se" Then<br />

Resultat = " Indicatif aoriste actif, 3ème personne du singulier"<br />

enlever = 2<br />

enleverg = 2<br />

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "ou" Then<br />

Resultat = " Indicatif imparfait moyen-passif, 2ème personne du singulier"<br />

enlever = 2<br />

enleverg = 2<br />

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "sw" Then<br />

Resultat = " Indicatif aoriste moyen, 2ème personne du singulier"<br />

enlever = 2<br />

enleverg = 2<br />

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "qh" Then<br />

Resultat = " Indicatif aoriste passif, 3ème personne du singulier"<br />

enlever = 2<br />

enleverg = 2<br />

ElseIf Left(mot, 2) = "e)" And Right(mot, 2) = "so" Then<br />

Resultat = " Indicatif plus-que-parfait moyen-passif, 2ème personne du singulier"<br />

enlever = 2<br />

enleverg = 2

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

Saved successfully!

Ooh no, something went wrong!