CODICE
While 1
GUISetState (@sw_show)
GUICtrlCreatePic( "C:UsersDRAKEPicturesmwmo.4.bmp", 0, 0,400,400)
$scegli=InputBox("inserisci un numero da 1a3,inserici chiudi se vuoi chiudere,caloclatrice per la calocatrice","scrivi un numero da 1a3,clicca chiudi se vuoi chiudere,clicca calocatrice per una calocatrice,")
If $scegli = "1" then
$a=InputBox("scrivi lo stesso numero","inserisci lo stesso numero")
$b=InputBox("riscrivi","riscrivi il numero un ultima volta")
MsgBox(0,"1","IL TUo numero e 1=hai vinto un cazzo")
EndIf
If $scegli= "2" Then
$a=InputBox("scrivi lo stesso numero","inserisci lo stesso numero")
$b=InputBox("riscrivi","riscrivi il numero un ultima volta")
MsgBox(0,"2","hai il pollice da stronzo")
EndIf
If $scegli = "3" then
$a=InputBox("scrivi lo stesso numero","inserisci lo stesso numero")
$b=InputBox("riscrivi","riscrivi il numero un ultima volta")
MsgBox(0,"3","IL TUo numero e 3=hai vinto un viaggo in iraq")
EndIf
If $scegli = "chiudi" then
Exit
EndIf
$dec=InputBox("inserire un operazione da eseguire. Scrivi / se vuoi dividere, * se vuoi moltiplicare o / se vuoi addizionare","")
If $dec = "/" Then
$a=InputBox("inserire un numero","inserisci")
$b=InputBox("/","inserire secondo numero")
MsgBox(0,"2","il risultato è:"&$a/$b)
EndIf
If $dec = "+" Then
$a=InputBox("inserire un numero","inserisci")
$b=InputBox("/","inserire secondo numero")
MsgBox(0,"2","il risultato è:"&$a+$b)
EndIf
If $dec = "-" Then
$a=InputBox("inserire un numero","inserisci")
$b=InputBox("/","inserire secondo numero")
MsgBox(0,"2","il risultato è:"&$a-$b)
EndIf
If $dec = "/" Then
$a=InputBox("inserire un numero","inserisci")
$b=InputBox("/","inserire secondo numero")
MsgBox(0,"2","il risultato è:"&$a*$b)
EndIf
WEnd
