seconda coniugazione

 
seconda coniugazione
per vedere secondalatino.ppt oggetti come in prima coniugazione (cambiano diciture i 1,2,3 label e due pulsanti)
uso di Len, Left$ per determinazione radici da infinito e perfetto (restante codice simile a prima coniugazione,eccetto desinenze)
Public Sub commandbutton1_Click() Rem indicativo e congiuntivo seconda 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
terza e quarta coniugazione simili a seconda (eccetto per le desinenze) (formato diverso nella quarta coniugazione)

Leggi tutto l'articolo