quarta coniugazione

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 (radic...

Leggi tutto l'articolo