Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireCodeMorphNom - 1
Public Function LireCodeMorphNom(code)
ttype = "nom (n)"
cas = Mid(code, 2, 1)
genre = Mid(code, 3, 1)
nombre = Mid(code, 4, 1)
ttype2 = Mid(code, 5, 1)
' 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)"
'NOMBRE
If nombre = "s" Then nombre = "singulier (s)"
If nombre = "p" Then nombre = "pluriel (p)"
' TYPE
If ttype2 = "c" Then ttype2 = "(nom commun) (c)"
If ttype2 = "p" Then ttype2 = "(nom propre) (p)"
' AFFECTATIONS
'1) je renseigne la petite fenêtre Analyse Morphologique
frmAnalyseMorphologique.lblanalyse.Caption = Mid(ttype, 1, Len(ttype) - 3) & Mid(cas, 1, Len(cas) -
3) & Mid(genre, 1, Len(genre) - 3) & Mid(nombre, 1, Len(nombre) - 3) & Mid(ttype2, 1, Len(ttype2)
- 3)
'2) je renseigne les ComboBox de l'Assistant de recherche morphologique
Load frmAssistant
frmAssistant.cbo1.Text = ttype
frmAssistant.cbo2.Text = cas
frmAssistant.cbo3.Text = genre
frmAssistant.cbo4.Text = nombre
frmAssistant.cbo5.Text = ttype2
frmAssistant.cbo6.Text = ""
End Function