Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireCodeMorphVerbe - 1
Public Function LireCodeMorphVerbe(code)
On Error GoTo apres:
type = "verbe (v)"
soit le verbe est NORMAL
f Len(code) = 6 Then
Mode = Mid(code, 2, 1)
temps = Mid(code, 3, 1)
voix = Mid(code, 4, 1)
personne = Mid(code, 5, 1)
nombre = Mid(code, 6, 1)
lse ' soit le verbe est PARTICIPE, dans ce cas il est plus long d'un caractère (le CAS)
Mode = Mid(code, 2, 1)
temps = Mid(code, 3, 1)
voix = Mid(code, 4, 1)
cas = Mid(code, 5, 1)
genre = Mid(code, 6, 1)
nombre = Mid(code, 7, 1)
nd If
MODE
If Mode = "i" Then Mode = "indicatif (i)"
If Mode = "s" Then Mode = "subjonctif (s)"
If Mode = "o" Then Mode = "optatif (o)"
If Mode = "m" Then Mode = "impératif (m)"
If Mode = "n" Then Mode = "infinitif (n)"
If Mode = "p" Then Mode = "participe (p)"
If Mode = "r" Then Mode = "impératif (r)"
TEMPS
'If temps = "2f" Then temps = "futur second"
'If temps = "2a" Then temps = "aoriste second"
'If temps = "2l" Then temps = "pqp second"
'If temps = "2r" Then temps = "parfait second"
If temps = "p" Then temps = "présent (p)"
If temps = "i" Then temps = "imparfait (i)"
If temps = "f" Then temps = "futur (f)"
If temps = "a" Then temps = "aoriste (a)"
If temps = "x" Then temps = "parfait (x)"
If temps = "y" Then temps = "plusqueparfait (y)"
If temps = "z" Then temps = "futur du parfait (z)"
VOIX
If voix = "a" Then voix = "actif (a)"
If voix = "m" Then voix = "moyen (m)"
If voix = "p" Then voix = "passif (p)"
If voix = "e" Then voix = "moyen ou passif (e)"
CAS (pour les participes)
If cas = "n" Then cas = "nominatif (n)"
If cas = "g" Then cas = "génitif (g)"
If cas = "a" Then cas = "accusatif (a)"
If cas = "d" Then cas = "datif (d)"
If cas = "v" Then cas = "vocatif (v)"
GENRE (pour les participe)
If genre = "m" Then genre = "masculin (m)"
If genre = "f" Then genre = "féminin (f)"
If genre = "n" Then genre = "neutre (n)"
PERSONNE
If personne = "1" Then personne = "1ère personne (1)"
If personne = "2" Then personne = "2ème personne (2)"
If personne = "3" Then personne = "3ème personne (3)"
NOMBRE
If nombre = "s" Then nombre = "singulier (s)"
If nombre = "p" Then nombre = "pluriel (p)"
AFFECTATIONS
1) je renseigne la petite fenêtre Analyse Morphologique
VERBES