Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireCodeMorphPronom - 1
Public Function LireCodeMorphPronom(code)
ttype = "pronom (r)"
ttype2 = Mid(code, 2, 1)
cas = Mid(code, 3, 1)
genre = Mid(code, 4, 1)
nombre = Mid(code, 5, 1)
'TYPE
If ttype2 = "p" Then ttype2 = "personnel (p)"
If ttype2 = "r" Then ttype2 = "relatif (r)"
If ttype2 = "d" Then ttype2 = "démonstratif (d)"
If ttype2 = "q" Then ttype2 = "interrogatif (q)"
If ttype2 = "i" Then ttype2 = "indéfini (i)"
If ttype2 = "t" Then ttype2 = "intensif (t)"
If ttype2 = "x" Then ttype2 = "réfléchi (x)"
If ttype2 = "e" Then ttype2 = "réciproque (e)"
' CAS
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
If genre = "f" Then genre = "féminin (f)"
If genre = "m" Then genre = "masculin (m)"
If genre = "n" Then genre = "neutre (n)"
If genre = "-" Then genre = "commun (-)"
'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
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(ttype2, 1, Len(tty
pe2) - 3) & Mid(cas, 1, Len(cas) - 3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre)
- 3)
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique
Load frmAssistant
frmAssistant.cbo1.Text = ttype
frmAssistant.cbo2.Text = ttype2
frmAssistant.cbo3.Text = cas
frmAssistant.cbo4.Text = genre
frmAssistant.cbo5.Text = nombre
frmAssistant.cbo6.Text = ""
End Function