quarta coniugazione

quarta coniugazione latino:variante rispetto alle precedenti per formato(colore,uso di label.caption..)

per vedere attivazione quintalatino.ppt

aggiunte 7 label(coniuga, coniuga1,2,3,4,5,6) e altre 7 label(coniugare, coniugare1,2,3,4,5,6) e due altri pulsanti per cancellare label

visualizzazione delle forme coniugate in lista1 (listbox) e in label(coniugare e coniuga) con colore e aspetto diverso

Public Sub commandbutton1_Click()
Rem indicativo e congiuntivo quarta coniugazione regolare latina
Rem inserire radice di infinito e radice di perfetto
Dim radice, raperfetto As String
infinito = forma 'infinito
perfetto = perfetto 'perfetto
Dim lungoi 'lunghezza infinito
Dim lungop 'lunghezza perfetto
lungoi = Len(infinito)
lungop = Len(perfetto)
radice = Left$(infinito, lungoi - 3) 'radice infinito
raperfetto = Left$(perfetto, lungop - 1) 'radice perfetto
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)

coniuga.Caption = ("presente indicativo ")
coniuga1.Caption = (radice & "io")
coniuga2.Caption = (radice & "is")
coniuga3.Caption = (radice & "it")
coniuga4.Caption = (radice & "imus")
coniuga5.Caption = (radice & "itis")
coniuga6.Caption = (radice & "iunt")
Lista1.AddItem ("-----------------------")
Lista1.AddItem ("presente indicativo ")
Lista1.AddItem ("-----------------------")
Lista1.AddItem (radice & "io")
Lista1.AddItem (radice & "is")
Lista1.AddItem (radice & "it")
Lista1.AddItem (radice & "imus")
Lista1.AddItem (radice & "itis")
Lista1.AddItem (radice & "iunt")

End Sub

Private Sub imperfettoi(radice As String)
coniuga.Caption = ("imperfetto indicativo ")
coniuga1.Caption = (radice & "iebam")
coniuga2.Caption = (radice & "iebas")
coniuga3.Caption = (radice & "iebat")
coniuga4.Caption = (radice & "iebamus")
coniuga5.Caption = (radice & "iebatis")
coniuga6.Caption = (radice & "iebant")
Lista1.AddItem ("-----------------------")
Lista1.AddItem ("imperfetto indicativo ")
Lista1.AddItem ("-----------------------")
Lista1.AddItem (radice & "iebam")
Lista1.AddItem (radice & "iebas")
Lista1.AddItem (radice & "iebat")
Lista1.AddItem (radice & "iebamus")
Lista1.AddItem (radice & "iebatis")
Lista1.AddItem (radice & "iebant")
End Sub

Private Sub futuroi(radice As String)
coniuga.Caption = ("futuro indicativo ")
coniuga1.Caption = (radice & "iam")
coniuga2.Caption = (radice & "ies")
coniuga3.Caption = (radice & "iet")
coniuga4.Caption = (radice & "iemus")
coniuga5.Caption = (radice & "ietis")
coniuga6.Caption = (radice & "ient")
Lista1.AddItem ("-----------------------")
Lista1.AddItem ("futuro indicativo ")
Lista1.AddItem ("-----------------------")
Lista1.AddItem (radice & "iam")
Lista1.AddItem (radice & "ies")
Lista1.AddItem (radice & "iet")
Lista1.AddItem (radice & "iemus")
Lista1.AddItem (radice & "ietis")
Lista1.AddItem (radice & "ient")
End Sub

Private Sub perfettoi(raperfetto As String)
coniugare.Caption = ("perfetto indicativo ")
coniugare1.Caption = (raperfetto & "i")
coniugare2.Caption = (raperfetto & "isti")
coniugare3.Caption = (raperfetto & "it")
coniugare4.Caption = (raperfetto & "imus")
coniugare5.Caption = (raperfetto & "istis")
coniugare6.Caption = (raperfetto & "erunt")
Lista1.AddItem ("*******************")
Lista1.AddItem ("perfetto indicativo ")
Lista1.AddItem ("*******************")
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)
coniugare.Caption = ("piuccheperfetto indicativo ")
coniugare1.Caption = (raperfetto & "eram")
coniugare2.Caption = (raperfetto & "eras")
coniugare3.Caption = (raperfetto & "erat")
coniugare4.Caption = (raperfetto & "eramus")
coniugare5.Caption = (raperfetto & "eratis")
coniugare6.Caption = (raperfetto & "erant")
Lista1.AddItem ("*******************")
Lista1.AddItem ("piuccheperfetto indicativo ")
Lista1.AddItem ("*******************")
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)
coniugare.Caption = ("futuro anteriore ")
coniugare1.Caption = (raperfetto & "ero")
coniugare2.Caption = (raperfetto & "eris")
coniugare3.Caption = (raperfetto & "erit")
coniugare4.Caption = (raperfetto & "erimus")
coniugare5.Caption = (raperfetto & "eritis")
coniugare6.Caption = (raperfetto & "erint")
Lista1.AddItem ("*******************")
Lista1.AddItem ("futuro anteriore ")
Lista1.AddItem ("*******************")
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)
coniuga.Caption = ("presente congiuntivo ")
coniuga1.Caption = (radice & "iam")
coniuga2.Caption = (radice & "ias")
coniuga3.Caption = (radice & "iat")
coniuga4.Caption = (radice & "iamus")
coniuga5.Caption = (radice & "iatis")
coniuga6.Caption = (radice & "iant")
Lista1.AddItem ("---------------------")
Lista1.AddItem ("presente congiuntivo ")
Lista1.AddItem ("---------------------")
Lista1.AddItem (radice & "iam")
Lista1.AddItem (radice & "ias")
Lista1.AddItem (radice & "iat")
Lista1.AddItem (radice & "iamus")
Lista1.AddItem (radice & "iatis")
Lista1.AddItem (radice & "iant")
End Sub

Private Sub imperfettoc(radice As String)
coniuga.Caption = ("imperfetto congiuntivo ")
coniuga1.Caption = (radice & "irem")
coniuga2.Caption = (radice & "ires")
coniuga3.Caption = (radice & "iret")
coniuga4.Caption = (radice & "iremus")
coniuga5.Caption = (radice & "iretis")
coniuga6.Caption = (radice & "irent")
Lista1.AddItem ("---------------------")
Lista1.AddItem ("imperfetto congiuntivo ")
Lista1.AddItem ("---------------------")
Lista1.AddItem (radice & "irem")
Lista1.AddItem (radice & "ires")
Lista1.AddItem (radice & "iret")
Lista1.AddItem (radice & "iremus")
Lista1.AddItem (radice & "iretis")
Lista1.AddItem (radice & "irent")
End Sub

Private Sub perfettoc(raperfetto As String)
coniugare.Caption = ("perfetto congiuntivo ")
coniugare1.Caption = (raperfetto & "erim")
coniugare2.Caption = (raperfetto & "eris")
coniugare3.Caption = (raperfetto & "erit")
coniugare4.Caption = (raperfetto & "erimus")
coniugare5.Caption = (raperfetto & "eritis")
coniugare6.Caption = (raperfetto & "erint")
Lista1.AddItem ("*******************")
Lista1.AddItem ("perfetto congiuntivo")
Lista1.AddItem ("*******************")
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)
coniugare.Caption = ("piuccheperfetto congiuntivo ")
coniugare1.Caption = (raperfetto & "issem")
coniugare2.Caption = (raperfetto & "issses")
coniugare3.Caption = (raperfetto & "isset")
coniugare4.Caption = (raperfetto & "issemus")
coniugare5.Caption = (raperfetto & "issetis")
coniugare6.Caption = (raperfetto & "issent")
Lista1.AddItem ("*******************")
Lista1.AddItem ("piuccheperfetto congiuntivo ")
Lista1.AddItem ("*******************")
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

Private Sub commandbutton7_Click()
Rem cancellare coniugare
coniugare = ""
coniugare1 = ""
coniugare2 = ""
coniugare3 = ""
coniugare4 = ""
coniugare5 = ""
coniugare6 = ""
End Sub

Private Sub commandbutton6_Click()
Rem cancella coniuga
coniuga = ""
coniuga1 = ""
coniuga2 = ""
coniuga3 = ""
coniuga4 = ""
coniuga5 = ""
coniuga6 = ""
End Sub