Microsoft Visual Basic - Encyclopaedia Gentium Boni

fctLireCodeMorphAdjectif - 1
Public Function LireCodeMorphAdjectif(code)
ttype = "adjectif (a)"
'les codes morpho de WH présentent une absence de ttype2
'contrairement, apparemment, à ceux de NA27
If Len(code) > 5 Then
ttype2 = Mid(code, 2, 1)
cas = Mid(code, 3, 1)
genre = Mid(code, 4, 1)
nombre = Mid(code, 5, 1)
degre = Mid(code, 6, 1)
ElseIf Len(code) = 5 Then
cas = Mid(code, 2, 1)
genre = Mid(code, 3, 1)
nombre = Mid(code, 4, 1)
degre = Mid(code, 5, 1)
'il y a peut être d'autres cas...
End If
' TTYPE2 = TYPE D'ADJECTIF
If ttype2 = "n" Then ttype2 = "normal (n)"
If ttype2 = "s" Then ttype2 = "possessif (s)"
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 = "c" Then ttype2 = "cardinal (c)"
If ttype2 = "o" Then ttype2 = "ordinal (o)"
If ttype2 = "m" Then ttype2 = "nombre (m)"
' 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)"
'DEGRE
If degre = "n" Then degre = "aucun (n)"
If degre = "c" Then degre = "comparatif (c)"
If degre = "s" Then degre = "superlatif (s)"
' AFFECTATIONS
'1) je renseigne la petite fenêtre Analyse Morphologique
If ttype2 = "" Then ttype2 = " "
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) & Mid(degre, 1, Len(degre) - 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
If degre = "aucun (n)" Then degre = ""
frmAssistant.cbo6.Text = degre
End Function