verbi semideponenti
esci con verbilatini.htm o verbivari.htm
audere, gaudere, solere
Rem coniugazione verbo latino semideponente
Rem audeo, gaudeo, soleo
Private Sub CommandButton1_Click()
Dim infinito As String
Dim perfetto As String
Dim lungo As Integer
Dim lungot As Integer
Dim primat As String
Dim x As Integer
Dim verbor As Integer
Dim radice As String
Dim radicep As String
Dim radicep1 As String
Dim radicep2 As String
Dim radicex As String
infinito = verbo.Text
perfetto = perfettox.Text
lungo = Len(verbo.Text)
lungop = Len(perfettox.Text)
radice = Left$(infinito, lungo - 3)
radicep = Left$(perfetto, lungop - 1)
radicep1 = Left$(perfetto, lungop - 2) & "us-a-um"
radicep2 = Left$(perfetto, lungop - 2) & "i-ae-a"
radicex = infinito
Dim desi As String
desi = Right$(infinito, 3)
If desi = "ari" Then verbor = 1
If desi = "ari" Then tipo.Caption = "prima
coniugazione"
primat = primap.Text
lungot = Len(primat)
Call primac(radice, radicep, radicex, radicep1, radicep2)
End Sub
Private Sub primac(rad1 As String, rad2 As String, rad3 As
String, rad4 As String, rad5 As String)
Dim radice As String
Dim radicep As String
Dim radicex As String
Dim codice As Integer
codice = indice.Text
radice = rad1
radicep = rad2
radicex = rad3
Dim radicep1 As String
Dim radicep2 As String
radicep1 = rad4
radicep2 = rad5
Select Case codice
Case 1
Call coniugare("eo", "es", "et",
"emus", "etis", "ent", radice)
Case 2
Call coniugare("ebam", "ebas",
"ebat", "ebamus", "ebatis",
"ebant", radice)
Case 3
Call coniugare("ebo", "ebis",
"ebit", "ebimus", "ebitis",
"ebunt", radice)
Case 4
Call coniugarep1(" sum", " es", "
est", radicep1)
Call coniugarep2(" sumus", " estis", "
sunt", radicep2)
Case 5
Call coniugarep1(" eram", " eras", "
erat", radicep1)
Call coniugarep2(" eramus", " eratis", "
erant", radicep2)
Case 6
Call coniugarep1(" ero", " eris", "
erit", radicep1)
Call coniugarep2(" erimus", " eritis", "
erint", radicep2)
Case 7
Call coniugare("eam", "eas", "eat",
"eamus", "eatis", "eant", radice)
Case 8
Call coniugare("erem", "eres",
"eret", "eremus", "eretis",
"erent", radice)
Case 9
Call coniugarep1(" sim", " sis", "
sit", radicep1)
Call coniugarep2(" simus", " sitis", "
sint", radicep2)
Case 10
Call coniugarep1(" essem", " esses", "
esset", radicep1)
Call coniugarep2(" essemus", " essetis",
" essent", radicep2)
End Select
End Sub
Public Sub coniugare(a1 As String, a2 As String, a3 As String, a4
As String, a5 As String, a6 As String, radi As String)
Dim forma(6) As String
Dim coniuga(6) As String
forma(1) = a1
forma(2) = a2
forma(3) = a3
forma(4) = a4
forma(5) = a5
forma(6) = a6
For x = 1 To 6
coniuga(x) = radi & forma(x)
Next x
prima.Caption = coniuga(1)
seconda.Caption = coniuga(2)
terza.Caption = coniuga(3)
quarta.Caption = coniuga(4)
quinta.Caption = coniuga(5)
sesta.Caption = coniuga(6)
End Sub
Public Sub coniugarep1(a1 As String, a2 As String, a3 As String,
radi As String)
Dim forma(3) As String
Dim coniuga(3) As String
forma(1) = a1
forma(2) = a2
forma(3) = a3
For x = 1 To 3
coniuga(x) = radi & forma(x)
Next x
prima.Caption = coniuga(1)
seconda.Caption = coniuga(2)
terza.Caption = coniuga(3)
End Sub
Public Sub coniugarep2(a1 As String, a2 As String, a3 As String,
radi As String)
Dim forma(3) As String
Dim coniuga(3) As String
forma(1) = a1
forma(2) = a2
forma(3) = a3
For x = 1 To 3
coniuga(x) = radi & forma(x)
Next x
quarta.Caption = coniuga(1)
quinta.Caption = coniuga(2)
sesta.Caption = coniuga(3)
End Sub
Private Sub CommandButton10_Click()
indice = 9
End Sub
Private Sub CommandButton11_Click()
indice = 10
End Sub
Private Sub CommandButton2_Click()
indice = 1
End Sub
Private Sub CommandButton3_Click()
indice = 3
End Sub
Private Sub CommandButton4_Click()
indice = 5
End Sub
Private Sub CommandButton5_Click()
indice = 2
End Sub
Private Sub CommandButton6_Click()
indice = 4
End Sub
Private Sub CommandButton7_Click()
indice = 6
End Sub
Private Sub CommandButton8_Click()
indice = 7
End Sub
Private Sub CommandButton9_Click()
indice = 8
End Sub
Private Sub regola_Change()
End Sub
Private Sub UserForm_Click()
End Sub
fidere, confidere, diffidere
semidepo2.ppt
Rem coniugazione verbo latino semideponente
Rem fidere, confidere, diffidere
Private Sub CommandButton1_Click()
Dim infinito As String
Dim perfetto As String
Dim lungo As Integer
Dim lungot As Integer
Dim primat As String
Dim x As Integer
Dim verbor As Integer
Dim radice As String
Dim radicep As String
Dim radicep1 As String
Dim radicep2 As String
Dim radicex As String
infinito = verbo.Text
perfetto = perfettox.Text
lungo = Len(verbo.Text)
lungop = Len(perfettox.Text)
radice = Left$(infinito, lungo - 3)
radicep = Left$(perfetto, lungop - 1)
radicep1 = Left$(perfetto, lungop - 2) & "us-a-um"
radicep2 = Left$(perfetto, lungop - 2) & "i-ae-a"
radicex = infinito
Dim desi As String
desi = Right$(infinito, 3)
If desi = "ari" Then verbor = 1
If desi = "ari" Then tipo.Caption = "prima
coniugazione"
primat = primap.Text
lungot = Len(primat)
Call primac(radice, radicep, radicex, radicep1, radicep2)
End Sub
Private Sub primac(rad1 As String, rad2 As String, rad3 As
String, rad4 As String, rad5 As String)
Dim radice As String
Dim radicep As String
Dim radicex As String
Dim codice As Integer
codice = indice.Text
radice = rad1
radicep = rad2
radicex = rad3
Dim radicep1 As String
Dim radicep2 As String
radicep1 = rad4
radicep2 = rad5
Select Case codice
Case 1
Call coniugare("o", "is", "it",
"imus", "itis", "unt", radice)
Case 2
Call coniugare("ebam", "ebas",
"ebat", "ebamus", "ebatis",
"ebant", radice)
Case 3
Call coniugare("am", "es", "et",
"emus", "etis", "ent", radice)
Case 4
Call coniugarep1(" sum", " es", "
est", radicep1)
Call coniugarep2(" sumus", " estis", "
sunt", radicep2)
Case 5
Call coniugarep1(" eram", " eras", "
erat", radicep1)
Call coniugarep2(" eramus", " eratis", "
erant", radicep2)
Case 6
Call coniugarep1(" ero", " eris", "
erit", radicep1)
Call coniugarep2(" erimus", " eritis", "
erint", radicep2)
Case 7
Call coniugare("am", "as", "at",
"amus", "atis", "ant", radice)
Case 8
Call coniugare("erem", "eres",
"eret", "eremus", "eretis",
"erent", radice)
Case 9
Call coniugarep1(" sim", " sis", "
sit", radicep1)
Call coniugarep2(" simus", " sitis", "
sint", radicep2)
Case 10
Call coniugarep1(" essem", " esses", "
esset", radicep1)
Call coniugarep2(" essemus", " essetis",
" essent", radicep2)
End Select
End Sub
Public Sub coniugare(a1 As String, a2 As String, a3 As String, a4
As String, a5 As String, a6 As String, radi As String)
Dim forma(6) As String
Dim coniuga(6) As String
forma(1) = a1
forma(2) = a2
forma(3) = a3
forma(4) = a4
forma(5) = a5
forma(6) = a6
For x = 1 To 6
coniuga(x) = radi & forma(x)
Next x
prima.Caption = coniuga(1)
seconda.Caption = coniuga(2)
terza.Caption = coniuga(3)
quarta.Caption = coniuga(4)
quinta.Caption = coniuga(5)
sesta.Caption = coniuga(6)
End Sub
Public Sub coniugarep1(a1 As String, a2 As String, a3 As String,
radi As String)
Dim forma(3) As String
Dim coniuga(3) As String
forma(1) = a1
forma(2) = a2
forma(3) = a3
For x = 1 To 3
coniuga(x) = radi & forma(x)
Next x
prima.Caption = coniuga(1)
seconda.Caption = coniuga(2)
terza.Caption = coniuga(3)
End Sub
Public Sub coniugarep2(a1 As String, a2 As String, a3 As String,
radi As String)
Dim forma(3) As String
Dim coniuga(3) As String
forma(1) = a1
forma(2) = a2
forma(3) = a3
For x = 1 To 3
coniuga(x) = radi & forma(x)
Next x
quarta.Caption = coniuga(1)
quinta.Caption = coniuga(2)
sesta.Caption = coniuga(3)
End Sub
Private Sub CommandButton10_Click()
indice = 9
End Sub
Private Sub CommandButton11_Click()
indice = 10
End Sub
Private Sub CommandButton2_Click()
indice = 1
End Sub
Private Sub CommandButton3_Click()
indice = 3
End Sub
Private Sub CommandButton4_Click()
indice = 5
End Sub
Private Sub CommandButton5_Click()
indice = 2
End Sub
Private Sub CommandButton6_Click()
indice = 4
End Sub
Private Sub CommandButton7_Click()
indice = 6
End Sub
Private Sub CommandButton8_Click()
indice = 7
End Sub
Private Sub CommandButton9_Click()
indice = 8
End Sub
Private Sub regola_Change()
End Sub
Private Sub UserForm_Click()
End Sub