prima coniugazione

prima coniugazione verbi latini regolari
si richiede inserimento della radice dell'infinito e del perfetto indicativo
si coniuga indicativo e congiuntivo (10 tempi)
per altre coniugazioni(con inserimento di infinito e perfetto) usare codice
simile(modificando le desinenze):oggetti immutati(cambiano alcune diciture in label)

per vedere primalatino.ppt

creare 5 pulsanti(inserire testo), 3 caselle di testo(forma, perfetto, tempo) ,1 listbox(lista1), 4 label(inserire testo)

(uso di Select case k....procedure...additem...clear...)

Private Sub commandbutton1_Click()
Rem indicativo e congiuntivo prima coniugazione regolare latina
Rem inserire radice di infinito e radice di perfetto
Dim radice, raperfetto As String
radice = forma 'infinito - are
raperfetto = perfetto 'perfetto - i
Dim k As Integer
k = tempo
Select Case k
Case 1
presentei (radice)
Case 2
imperfettoi (radice)
Case 3
futuroi (radice)
Case 4
perfettoi (raperfetto)
Case 5
piuccheperfettoi (raperfetto)
Case 6
futuroa (raperfetto)
Case 7
presentec (radice)
Case 8
imperfettoc (radice)
Case 9
perfettoc (raperfetto)
Case 10
piuccheperfettoc (raperfetto)
End Select
End Sub

Private Sub commandbutton2_Click()
Rem cancellare tutto
Lista1.Clear
End Sub

Private Sub presentei(radice As String)
Lista1.AddItem ("presente indicativo ")
Lista1.AddItem (radice & "o")
Lista1.AddItem (radice & "as")
Lista1.AddItem (radice & "at")
Lista1.AddItem (radice & "amus")
Lista1.AddItem (radice & "atis")
Lista1.AddItem (radice & "ant")
End Sub

Private Sub imperfettoi(radice As String)
Lista1.AddItem ("imperfetto indicativo ")
Lista1.AddItem (radice & "abam")
Lista1.AddItem (radice & "abas")
Lista1.AddItem (radice & "abat")
Lista1.AddItem (radice & "abamus")
Lista1.AddItem (radice & "abatis")
Lista1.AddItem (radice & "abant")
End Sub

Private Sub futuroi(radice As String)
Lista1.AddItem ("futuro indicativo ")
Lista1.AddItem (radice & "abo")
Lista1.AddItem (radice & "abis")
Lista1.AddItem (radice & "abis")
Lista1.AddItem (radice & "abimus")
Lista1.AddItem (radice & "abitis")
Lista1.AddItem (radice & "abunt")
End Sub

Private Sub perfettoi(raperfetto As String)
Lista1.AddItem ("perfetto indicativo ")
Lista1.AddItem (raperfetto & "i")
Lista1.AddItem (raperfetto & "isti")
Lista1.AddItem (raperfetto & "it")
Lista1.AddItem (raperfetto & "imus")
Lista1.AddItem (raperfetto & "istis")
Lista1.AddItem (raperfetto & "erunt")
End Sub

Private Sub piuccheperfettoi(raperfetto As String)
Lista1.AddItem ("oiuccheperfetto indicativo ")
Lista1.AddItem (raperfetto & "eram")
Lista1.AddItem (raperfetto & "eras")
Lista1.AddItem (raperfetto & "erat")
Lista1.AddItem (raperfetto & "eramus")
Lista1.AddItem (raperfetto & "eratis")
Lista1.AddItem (raperfetto & "erant")
End Sub



Private Sub futuroa(raperfetto As String)
Lista1.AddItem ("futuro anteriore ")
Lista1.AddItem (raperfetto & "ero")
Lista1.AddItem (raperfetto & "eris")
Lista1.AddItem (raperfetto & "erit")
Lista1.AddItem (raperfetto & "erimus")
Lista1.AddItem (raperfetto & "eritis")
Lista1.AddItem (raperfetto & "erint")
End Sub

Private Sub presentec(radice As String)
Lista1.AddItem ("presente congiuntivo ")
Lista1.AddItem (radice & "em")
Lista1.AddItem (radice & "es")
Lista1.AddItem (radice & "et")
Lista1.AddItem (radice & "emus")
Lista1.AddItem (radice & "etis")
Lista1.AddItem (radice & "ent")
End Sub

Private Sub imperfettoc(radice As String)
Lista1.AddItem ("imperfetto congiuntivo ")
Lista1.AddItem (radice & "arem")
Lista1.AddItem (radice & "ares")
Lista1.AddItem (radice & "aret")
Lista1.AddItem (radice & "aremus")
Lista1.AddItem (radice & "aretis")
Lista1.AddItem (radice & "arent")
End Sub

Private Sub perfettoc(raperfetto As String)
Lista1.AddItem ("perfetto congiuntivo")
Lista1.AddItem (raperfetto & "erim")
Lista1.AddItem (raperfetto & "eris")
Lista1.AddItem (raperfetto & "erit")
Lista1.AddItem (raperfetto & "erimus")
Lista1.AddItem (raperfetto & "eritis")
Lista1.AddItem (raperfetto & "erint")
End Sub

Private Sub piuccheperfettoc(raperfetto As String)
Lista1.AddItem ("piuccheperfetto congiuntivo ")
Lista1.AddItem (raperfetto & "issem")
Lista1.AddItem (raperfetto & "isses")
Lista1.AddItem (raperfetto & "isset")
Lista1.AddItem (raperfetto & "issemus")
Lista1.AddItem (raperfetto & "issetis")
Lista1.AddItem (raperfetto & "issent")
End Sub



Private Sub commandbutton3_Click()
Rem cancella, modifica radice infinito
forma = ""

End Sub



Private Sub commandbutton4_Click()
Rem cancella, modifica radice del perfetto
perfetto = ""

End Sub

Private Sub commandbutton5_Click()
Rem canbia tempo
tempo = ""
tempo.SetFocus
End Sub

vedi secondaconiugazione