CODICE
#include <GUIConstants.au3>
GUICreate("Coniugatore di verbi", 800, 600,(@DesktopWidth/2)-400, (@DesktopHeight/2)-300 )
GUISetState()
$Pic1 = GUICtrlCreatePic(@scriptdir&"\sfondo.bmp", 0,0, 800, 600)
GUICtrlSetState(-1,$GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Coniuga", 203, 346, 75, 25, 0)
$Input1 = GUICtrlCreateInput("", 72, 346, 121, 21)
$Radio1 = GUICtrlCreateRadio("Indicativo", 59, 427, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Congiuntivo", 59, 443, 113, 17)
$Radio4 = GUICtrlCreateRadio("Condizionale", 59, 459, 113, 17)
$Radio3 = GUICtrlCreateRadio("Imperativo", 59, 475, 113, 17)
$Radio5 = GUICtrlCreateRadio("Gerundio", 59, 491, 113, 17)
$Radio6 = GUICtrlCreateRadio("Participio", 59, 507, 113, 17)
$Edit1 = GUICtrlCreateEdit("", 331, 299, 393, 257)
GUICtrlSetFont(-1, 10,500, 0, 'Arial')
while 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button1
$input = GUICtrlRead($Input1)
$radice = StringTrimRight($input,3)
$verifica = stringright($input , 3)
;verbi irregolari
If $input = "avere" Then
ElseIf $input = "essere" Then
ElseIf $input = "andare" Then
ElseIf $input = "tenere" Then
ElseIf $input = "venire" Then
ElseIf $input = "stare" Then
ElseIf $input = "dare" Then
ElseIf $input = "fare" Then
ElseIf $input = "bere" Then
ElseIf $input = "dire" Then
ElseIf $input = "potere" Then
ElseIf $input = "dovere" Then
ElseIf $input = "volere" Then
;verbi regolari
Else
;ARE
if $verifica = "are" then
;composti
$trarem= "ato"
;INDICATIVO
;passato remoto
$parem1= "ai"
$parem2= "asti"
$parem3= "ò"
$parem4= "ammo"
$parem5= "aste"
$parem6= "arono"
;imperfetto
$papro1= "avo"
$papro2= "avi"
$papro3= "ava"
$papro4= "avamo"
$papro5= "avate"
$papro6= "avano"
;presente
$pre1= "o"
$pre2= "i"
$pre3= "a"
$pre4= "iamo"
$pre5= "ate"
$pre6= "ano"
;futuro semplice
$fut1= "erò"
$fut2= "erai"
$fut3= "erà"
$fut4= "eremo"
$fut5= "erete"
$fut6= "eranno"
;CONGIUNTIVO
;presente
$cpre1= "i"
$cpre2= "i"
$cpre3= "i"
$cpre4= "o"
$cpre5= "ate"
$cpre6= "o"
;imperfetto
$cpapro1= "assi"
$cpapro2= "assi"
$cpapro3= "asse"
$cpapro4= "assimo"
$cpapro5= "aste"
$cpapro6= "assero"
;IMPERATIVO
;presente
$ipre1= "a"
$ipre2= "i"
$ipre3= "iamo"
$ipre4= "ate"
$ipre5= "ino"
;CONDIZIONALE
;presente
$cpa1= "erei"
$cpa2= "eresti"
$cpa3= "erebbe"
$cpa4= "eremmo"
$cpa5= "ereste"
$cpa6= "erebbero"
;ERE
Elseif $verifica = "ere" then
;composti
$trarem= "uto"
;INDICATIVO
;passato remoto
$parem1= "etti"
$parem2= "esti"
$parem3= "ette"
$parem4= "emmo"
$parem5= "este"
$parem6= "ettero"
;imperfetto
$papro1= "evo"
$papro2= "evi"
$papro3= "eva"
$papro4= "evamo"
$papro5= "evate"
$papro6= "evano"
;presente
$pre1= "o"
$pre2= "i"
$pre3= "e"
$pre4= "iamo"
$pre5= "ete"
$pre6= "ono"
;futuro semplice
$fut1= "erò"
$fut2= "erai"
$fut3= "erà"
$fut4= "eremo"
$fut5= "erete"
$fut6= "eranno"
;CONGIUNTIVO
;presente
$cpre1= "a"
$cpre2= "a"
$cpre3= "a"
$cpre4= "o"
$cpre5= "iate"
$cpre6= "o"
;imperfetto
$cpapro1= "essi"
$cpapro2= "essi"
$cpapro3= "esse"
$cpapro4= "essimo"
$cpapro5= "este"
$cpapro6= "essero"
;IMPERATIVO
;presente
$ipre1= "a"
$ipre2= "i"
$ipre3= "iamo"
$ipre4= "ete"
$ipre5= "ano"
;CONDIZIONALE
;presente
$cpa1= "erei"
$cpa2= "eresti"
$cpa3= "erebbe"
$cpa4= "eremmo"
$cpa5= "ereste"
$cpa6= "erebbero"
;IRE
Elseif $verifica = "ire" then
;composti
$trarem= "ito"
;INDICATIVO
;passato remoto
$parem1= "ii"
$parem2= "isti"
$parem3= "ì"
$parem4= "immo"
$parem5= "iste"
$parem6= "irono"
;imperfetto
$papro1= "ivo"
$papro2= "ivi"
$papro3= "iva"
$papro4= "ivamo"
$papro5= "ivate"
$papro6= "ivano"
;presente
$pre1= "o"
$pre2= "i"
$pre3= "e"
$pre4= "iamo"
$pre5= "ite"
$pre6= "ono"
;futuro semplice
$fut1= "irò"
$fut2= "irai"
$fut3= "irà"
$fut4= "iremo"
$fut5= "irete"
$fut6= "iranno"
;CONGIUNTIVO
;presente
$cpre1= "a"
$cpre2= "a"
$cpre3= "a"
$cpre4= "o"
$cpre5= "iate"
$cpre6= "o"
;imperfetto
$cpapro1= "issi"
$cpapro2= "issi"
$cpapro3= "isse"
$cpapro4= "issimo"
$cpapro5= "iste"
$cpapro6= "issero"
;IMPERATIVO
;presente
$ipre1= "a"
$ipre2= "i"
$ipre3= "iamo"
$ipre4= "ite"
$ipre5= "ano"
;CONDIZIONALE
;presente
$cpa1= "ierei"
$cpa2= "ieresti"
$cpa3= "ierebbe"
$cpa4= "ieremmo"
$cpa5= "iereste"
$cpa6= "ierebbero"
Else
MsgBox(0,"Errore", "Verbo non valido!!!")
ExitLoop
endif
;Scelta modo
if GUICtrlRead($Radio1) = $GUI_CHECKED Then
;indicativo
$1 = "Trapassato remoto"&@CRLF&@CRLF&"Io ebbi "&$radice&$trarem&@CRLF&"Tu avesti "&$radice&$trarem&@CRLF&"Egli ebbe "&$radice&$trarem&@CRLF&"Noi avemmo "&$radice&$trarem&@CRLF&"Voi aveste "&$radice&$trarem&@CRLF&"Essi ebbero "&$radice&$trarem&@CRLF&@CRLF
$2 = "Passato remoto"&@CRLF&@CRLF&"Io "&$radice&$parem1&@CRLF&"Tu "&$radice&$parem2&@CRLF&"Egli "&$radice&$parem3&@CRLF&"Noi "&$radice&$parem4&@CRLF&"Voi "&$radice&$parem5&@CRLF&"Essi "&$radice&$parem6&@CRLF&@CRLF
$3 = "Trapassato prossimo"&@CRLF&@CRLF&"Io avevo "&$radice&$trarem&@CRLF&"Tu avevi "&$radice&$trarem&@CRLF&"Egli aveva "&$radice&$trarem&@CRLF&"Noi avevamo "&$radice&$trarem&@CRLF&"Voi avevate "&$radice&$trarem&@CRLF&"Essi avevano "&$radice&$trarem&@CRLF&@CRLF
$4 = "Imperfetto"&@CRLF&@CRLF&"Io "&$radice&$papro1&@CRLF&"Tu "&$radice&$papro2&@CRLF&"Egli "&$radice&$papro3&@CRLF&"Noi "&$radice&$papro4&@CRLF&"Voi "&$radice&$papro5&@CRLF&"Essi "&$radice&$papro6&@CRLF&@CRLF
$5 = "Passato prossimo"&@CRLF&@CRLF&"Io ho "&$radice&$trarem&@CRLF&"Tu hai "&$radice&$trarem&@CRLF&"Egli ha "&$radice&$trarem&@CRLF&"Noi abbiamo "&$radice&$trarem&@CRLF&"Voi avete "&$radice&$trarem&@CRLF&"Essi hanno "&$radice&$trarem&@CRLF&@CRLF
$6 = "Presente"&@CRLF&@CRLF&"Io "&$radice&$pre1&@CRLF&"Tu "&$radice&$pre2&@CRLF&"Egli "&$radice&$pre3&@CRLF&"Noi "&$radice&$pre4&@CRLF&"Voi "&$radice&$pre5&@CRLF&"Essi "&$radice&$pre6&@CRLF&@CRLF
$7 = "Futuro anteriore"&@CRLF&@CRLF&"Io avrò "&$radice&$trarem&@CRLF&"Tu avrai "&$radice&$trarem&@CRLF&"Egli avrà "&$radice&$trarem&@CRLF&"Noi avremo "&$radice&$trarem&@CRLF&"Voi avrete "&$radice&$trarem&@CRLF&"Essi avranno "&$radice&$trarem&@CRLF&@CRLF
$8 = "Futuro semplice"&@CRLF&@CRLF&"Io "&$radice&$fut1&@CRLF&"Tu "&$radice&$fut2&@CRLF&"Egli "&$radice&$fut3&@CRLF&"Noi "&$radice&$fut4&@CRLF&"Voi "&$radice&$fut5&@CRLF&"Essi "&$radice&$fut6&@CRLF&@CRLF
$leggi = $1&$2&$3&$4&$5&$6&$7&$8
elseif GUICtrlRead($Radio2) = $GUI_CHECKED Then
;congiuntivo
$1 = "Trapassato"&@CRLF&@CRLF&"Che io avessi "&$radice&$trarem&@CRLF&"Che tu avessi "&$radice&$trarem&@CRLF&"Che egli avesse "&$radice&$trarem&@CRLF&"Che noi avessimo "&$radice&$trarem&@CRLF&"Che voi aveste "&$radice&$trarem&@CRLF&"Che essi avessero "&$radice&$trarem&@CRLF&@CRLF
$2 = "Imperfetto"&@CRLF&@CRLF&"Che io "&$radice&$cpapro1&@CRLF&"Che tu "&$radice&$cpapro2&@CRLF&"Che egli "&$radice&$cpapro3&@CRLF&"Che noi "&$radice&$cpapro4&@CRLF&"Che voi "&$radice&$cpapro5&@CRLF&"Che essi "&$radice&$cpapro6&@CRLF&@CRLF
$3 = "Passato"&@CRLF&@CRLF&"Che io abbia "&$radice&$trarem&@CRLF&"Che tu abbia "&$radice&$trarem&@CRLF&"Che egli abbia "&$radice&$trarem&@CRLF&"Che noi abbiamo "&$radice&$trarem&@CRLF&"Che voi abbiate "&$radice&$trarem&@CRLF&"Che essi abbiano "&$radice&$trarem&@CRLF&@CRLF
$4 = "Imperfetto"&@CRLF&@CRLF&"Che io "&$radice&$cpre1&@CRLF&"Che tu "&$radice&$cpre2&@CRLF&"Che egli "&$radice&$cpre3&@CRLF&"Che noi "&$radice&$cpre4&@CRLF&"Che voi "&$radice&$cpre5&@CRLF&"Che essi "&$radice&$cpre6&@CRLF&@CRLF
$leggi = $1&$2&$3&$4
elseif GUICtrlRead($Radio3) = $GUI_CHECKED Then
;imperativo
$1 = "Presente"&@CRLF&@CRLF&$radice&$ipre1&@CRLF&$radice&$ipre2&@CRLF&$radice&$ipre3&@CRLF&$radice&$ipre4&@CRLF&$radice&$ipre5&@CRLF&@CRLF
$leggi = $1
elseif GUICtrlRead($Radio4) = $GUI_CHECKED Then
;condizionale
$1 = "Passato"&@CRLF&@CRLF&"Io avrei "&$radice&$trarem&@CRLF&"Tu avresti "&$radice&$trarem&@CRLF&"Egli avrebbe "&$radice&$trarem&@CRLF&"Noi avremmo "&$radice&$trarem&@CRLF&"Voi avreste "&$radice&$trarem&@CRLF&"Essi avrebbero "&$radice&$trarem&@CRLF&@CRLF
$2 = "Presente"&@CRLF&@CRLF&"Io "&$radice&$cpa1&@CRLF&"Tu "&$radice&$cpa2&@CRLF&"Egli "&$radice&$cpa3&@CRLF&"Noi "&$radice&$cpa4&@CRLF&"Voi "&$radice&$cpa5&@CRLF&"Essi "&$radice&$cpa6&@CRLF&@CRLF
$leggi = $1&$2
elseif GUICtrlRead($Radio5) = $GUI_CHECKED Then
;gerundio
elseif GUICtrlRead($Radio6) = $GUI_CHECKED Then
;participio
EndIf
EndIf
GUICtrlSetData ($Edit1, $leggi)
EndSelect
WEnd