coniugazione verbi latini

Rem coniugazione verbo latino regolare


Private Sub CommandButton1_Click()
Dim infinito As String
Dim perfetto As String
Dim forma(6) As String
Dim lungo As Integer
Dim x As Integer
Dim codice As Integer
Dim coniuga(6) As String
Dim radice As String
Dim radicep As String
infinito = verbo.Text
perfetto = perfettox.Text
codice = indice.Text
lungo = Len(verbo.Text)
lungop = Len(perfettox.Text)
radice = Left$(infinito, lungo - 3)
radicep = Left$(perfetto, lungop - 1)
Select Case codice
 Case 1

forma(1) = "o"
forma(2) = "as"
forma(3) = "at"
forma(4) = "amus"
forma(5) = "atis"
forma(6) = "ant"
For x = 1 To 6
coniuga(x) = radice & 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)
Case 2
forma(1) = "abam"
forma(2) = "abas"
forma(3) = "abat"
forma(4) = "abamus"
forma(5) = "abatis"
forma(6) = "abant"
For x = 1 To 6
coniuga(x) = radice & 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)
Case 3
forma(1) = "abo"
forma(2) = "abis"
forma(3) = "abit"
forma(4) = "abimus"
forma(5) = "abitis"
forma(6) = "abunt"
For x = 1 To 6
coniuga(x) = radice & 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)
Case 4
forma(1) = "i"
forma(2) = "isti"
forma(3) = "it"
forma(4) = "imus"
forma(5) = "istis"
forma(6) = "erunt"
For x = 1 To 6
coniuga(x) = radicep & 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)
Case 5
forma(1) = "eram"
forma(2) = "eras"
forma(3) = "erat"
forma(4) = "eramus"
forma(5) = "eratis"
forma(6) = "erant"
For x = 1 To 6
coniuga(x) = radicep & 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)

Case 6
forma(1) = "ero"
forma(2) = "eris"
forma(3) = "erit"
forma(4) = "erimus"
forma(5) = "eritis"
forma(6) = "erint"
For x = 1 To 6
coniuga(x) = radicep & 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 Select
End Sub

Private Sub UserForm_Click()

End Sub

inizio