Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctAnalyserGrec - 2
Resultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : nous serons"
ElseIf mot = "e)/sesqe" Or mot = "esesqe" Then
Resultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : vous serez"
ElseIf mot = "e)/sontai" Or mot = "esontai" Then
Resultat = "Verbe être, indicatif imparfait actif, 1ère personne du singulier : ils seront"
' impératif présent actif
ElseIf mot = "i)/sqi" Or mot = "isqi" Then
Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : sois"
ElseIf mot = "e)/stw" Or mot = "estw" Then
Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : qu'il soit"
ElseIf mot = "e)/ste" Or mot = "este" Then
Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : que vous soyez"
ElseIf mot = "e)/stwsan" Or mot = "estwsan" Then
Resultat = "Verbe être, impératif présent actif, 1ère personne du singulier : qu'ils soient"
ElseIf mot = "eij" Or mot = "ei)j" Then
Resultat = " Adverbe de lieu : vers, en direction de"
ElseIf Right(mot, 9) = "qh/someqa" Then ' ************************************************DEBUT DE
L'INDICATIF****************************
Resultat = " Indicatif futur passif, 1ère personne du singulier"
enlever = 9
ElseIf Right(mot, 9) = "qh/sontai" Then
Resultat = " Indicatif futur passif, 3ème personne du pluriel"
enlever = 9
ElseIf Right(mot, 8) = "qh/somai" Then
Resultat = " Indicatif futur passif, 1ère personne du singulier"
enlever = 9
ElseIf Right(mot, 8) = "qh/setai" Then
Resultat = " Indicatif futur passif, 3ème personne du singulier"
enlever = 8
ElseIf Right(mot, 8) = "qh/sesqe" Then
Resultat = " Indicatif futur passif, 2ème personne du pluriel"
enlever = 8
ElseIf Left(mot, 2) = "e)" And Right(mot, 7) = "sa/meqa" Then
Resultat = " Indicatif aoriste moyen, 1ère personne du pluriel"
enlever = 7
enleverg = 2
ElseIf Right(mot, 7) = "so/meqa" Then
Resultat = " Indicatif futur moyen, 1ère personne du pluriel"
enlever = 7
ElseIf Right(mot, 7) = "e/twsan" Then
Resultat = " Impératif présent actif, 3ème personne du pluriel"
enlever = 7
ElseIf Left(mot, 2) = "e)" And Right(mot, 6) = "sa/mhn" Then
Resultat = " Indicatif aoriste moyen, 1ère personne du singulier"
enlever = 6
enleverg = 2
ElseIf Left(mot, 2) = "e)" And Right(mot, 6) = "o/meqa" Then
Resultat = " Indicatif imparfait moyen-passif, 1ère personne du pluriel"
enlever = 6
enleverg = 2
ElseIf Right(mot, 6) = "a)lla/" Or mot = "alla" Then
Resultat = " Conjonction : mais ; eh bien ! ; cependant"
ElseIf Right(mot, 6) = "sontai" Then
Resultat = " Indicatif futur moyen, 3ème personne du pluriel"
enlever = 6
ElseIf Right(mot, 6) = "qh/sh|" Then
Resultat = " Indicatif futur passif, 2ème personne du singulier"
enlever = 6
ElseIf Right(mot, 6) = "etwsan" Then
Resultat = " Impératif présent actif, 3ème personne du pluriel"
enlever = 6
ElseIf Right(mot, 6) = "keimen" Then
Resultat = " Indicatif plus-que-parfait actif, 1ère personne du pluriel"
enlever = 6
enleverg = 4
ElseIf Right(mot, 6) = "keisan" Then
Resultat = " Indicatif plus-que-parfait actif, 3ème personne du pluriel"
enlever = 6
enleverg = 4
ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "samen" Then
Resultat = " Indicatif aoriste actif, 1ère personne du pluriel"
enlever = 5
enleverg = 2
ElseIf Left(mot, 2) = "e)" And Right(mot, 5) = "sasqe" Then