Microsoft Visual Basic - Encyclopaedia Gentium Boni

frmRechercheMorphologique - 1
Dim nveaucodegenre$, nveaucodecas$, nveaucodenombre$, nveautemps$, nveaumode$, nveauvoix$, nveauper
sonne$
Private Sub cboGenre_LostFocus()
Dim nveaucode$
mot = txtcode.Text
If Mid(mot, 1, 1) = "n" Or Mid(mot, 1, 1) = "a" Then
If cboGenre.Text = "féminin" Then nveaucodegenre = "f"
If cboGenre.Text = "masculin" Then nveaucodegenre = "m"
If cboGenre.Text = "neutre" Then nveaucodegenre = "n"
ElseIf Mid(mot, 1, 1) = "v" Then
If cboGenre.Text = "présent" Then nveautemps = "p"
If cboGenre.Text = "imparfait" Then nveautemps = "i"
If cboGenre.Text = "futur" Then nveautemps = "f"
If cboGenre.Text = "aoriste" Then nveautemps = "a"
If cboGenre.Text = "parfait" Then nveautemps = "r"
If cboGenre.Text = "pqp" Then nveautemps = "l"
If cboGenre.Text = "-" Then nveautemps = "x"
End If
'txtNouveauCode.Text = nveaucode
End Sub
Private Sub cboNombre_LostFocus()
Dim nveaucode$
mot = txtcode.Text
If Mid(mot, 1, 1) = "n" Or Mid(mot, 1, 1) = "a" Then
If cboNombre.Text = "singulier" Then nveaucodenombre = "s"
If cboNombre.Text = "pluriel" Then nveaucodenombre = "p"
If cboNombre.Text = "duel" Then nveaucodenombre = "d"
ElseIf Mid(mot, 1, 1) = "v" Then
If cboNombre.Text = "actif" Then nveauvoix = "a"
If cboNombre.Text = "moyen" Then nveauvoix = "m"
If cboNombre.Text = "passif" Then nveauvoix = "p"
If cboNombre.Text = "moyen ou passif" Then nveauvoix = "e"
If cboNombre.Text = "déponent moyen" Then nveauvoix = "d"
If cboNombre.Text = "déponent passif" Then nveauvoix = "o"
If cboNombre.Text = "déponent moyen ou passif" Then nveauvoix = "n"
If cboNombre.Text = "impersonnel actif" Then nveauvoix = "q"
If cboNombre.Text = "-" Then nveaumode = "x"
End If
'txtNouveauCode.Text = nveaucode
End Sub
Private Sub cboPersonne_Change()
'Dim nveaucode$
'mot = txtcode.Text
'If Mid(mot, 1, 1) = "a" Then
'End If
End Sub
Private Sub cboTempsCas_LostFocus()
Dim nveaucode$
mot = txtcode.Text
If Mid(mot, 1, 1) = "n" Or Mid(mot, 1, 1) = "a" Then
If cboTempsCas.Text = "nominatif" Then nveaucodecas = "n"
If cboTempsCas.Text = "génitif" Then nveaucodecas = "g"
If cboTempsCas.Text = "accusatif" Then nveaucodecas = "a"
If cboTempsCas.Text = "datif" Then nveaucodecas = "d"
If cboTempsCas.Text = "vocatif" Then nveaucodecas = "v"
ElseIf Mid(mot, 1, 1) = "v" Then
If cboTempsCas.Text = "indicatif" Then nveaumode = "i"
If cboTempsCas.Text = "subjonctif" Then nveaumode = "s"
If cboTempsCas.Text = "optatif" Then nveaumode = "o"
If cboTempsCas.Text = "impératif" Then nveaumode = "m"
If cboTempsCas.Text = "infinitif" Then nveaumode = "n"
If cboTempsCas.Text = "participe" Then nveaumode = "p"
If cboTempsCas.Text = "participe (sens impératif)" Then nveaumode = "r"
End If
'txtNouveauCode.Text = nveaucode