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 - 5<br />

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

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

enlever = 4<br />

enleverg = 2<br />

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

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

enlever = 4<br />

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

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

enlever = 4<br />

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

Resultat = " Indicatif présent moyen-passif, 2ème personne du pluriel"<br />

enlever = 4<br />

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

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

enlever = 4<br />

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

Resultat = "Comparatif de supériorité, nominatif masculin singulier"<br />

enlever = 4<br />

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

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

enlever = 4<br />

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

Resultat = " Datif féminin pluriel, 1ère déclinaison" ' début et fin de 1ère decl ê/ês, 4<br />

enlever = 4<br />

ElseIf mot = "ga/r" Then<br />

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

enlever = 4<br />

ElseIf mot = "kai/" Or mot = "kai\" Or mot = "kai" Then<br />

Resultat = " Conjonction ou adverbe. Conj : et, et en outre / Adv. : aussi, même"<br />

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

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

enlever = 3<br />

enleverg = 2<br />

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

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

enlever = 3<br />

enleverg = 2<br />

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

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

enlever = 3<br />

enleverg = 2<br />

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

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

enlever = 3<br />

enleverg = 3<br />

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

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

enlever = 3<br />

enleverg = 2<br />

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

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

enlever = 3<br />

enleverg = 2<br />

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

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

enlever = 3<br />

enleverg = 2<br />

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

Resultat = " Indicatif plus-que-parfait moyen-passif, 1ère personne du singulier" 'fin du 3 avec au<br />

gment<br />

enlever = 3<br />

enleverg = 2<br />

ElseIf Right(mot, 3) = "eij" Then ' début du 3 sans augment<br />

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

enlever = 3<br />

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

Resultat = " Indicatif présent actif, 2ème personne du pluriel"<br />

enlever = 3<br />

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

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

enlever = 3<br />

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

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

enlever = 3<br />

enleverg = 2

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

Saved successfully!

Ooh no, something went wrong!