Paste2 Logo
  1. #comments-start
  2. Autore : Red Skull 92
  3. Web : Www.RedSkull92.Wordpress.Com
  4. Mail : RedSkull92@gmail.com
  5. #comments-end
  6. ;includo la libreria
  7. #include <GUIConstantsEx.au3>
  8.  
  9. ;Crei una gui
  10. Global $calcolatrice = GUICreate("Calcolatrice", 369, 285, -1, -1)
  11. GUISetBkColor(0x000000)
  12. Global $risultato = GUICtrlCreateInput("", 0, 40, 201, 21)
  13. Global $Button1 = GUICtrlCreateButton("1", 8, 165, 57, 33, 0)
  14. GUICtrlSetTip(-1, "il numero 1")
  15. Global $Button2 = GUICtrlCreateButton("2", 72, 165, 57, 33, 0)
  16. GUICtrlSetTip(-1, "il numero 2")
  17. Global $Button3 = GUICtrlCreateButton("3", 136, 165, 57, 33, 0)
  18. GUICtrlSetTip(-1, "numero3")
  19. Global $Button4 = GUICtrlCreateButton("4", 8, 123, 57, 33, 0)
  20. GUICtrlSetTip(-1, "numero 4")
  21. Global $Button5 = GUICtrlCreateButton("5", 72, 123, 57, 33, 0)
  22. GUICtrlSetTip(-1, "numero 5")
  23. Global $Button6 = GUICtrlCreateButton("6", 136, 123, 57, 33, 0)
  24. GUICtrlSetTip(-1, "numero 6")
  25. Global $Button7 = GUICtrlCreateButton("7", 8, 80, 57, 33, 0)
  26. GUICtrlSetTip(-1, "numero 7")
  27. Global $Button8 = GUICtrlCreateButton("8", 72, 80, 57, 33, 0)
  28. GUICtrlSetTip(-1, "numero 8")
  29. Global $Button9 = GUICtrlCreateButton("9", 136, 80, 57, 33, 0)
  30. GUICtrlSetTip(-1, "numero 9")
  31. Global $Button0 = GUICtrlCreateButton("0", 72, 208, 57, 33, 0)
  32. GUICtrlSetTip(-1, "n")
  33. Global $Buttonpnt = GUICtrlCreateButton(".", 8, 208, 57, 33, 0)
  34. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  35. GUICtrlSetTip(-1, "punto")
  36. Global $canc = GUICtrlCreateButton("CE", 136, 208, 57, 33, 0)
  37. GUICtrlSetTip(-1, "cancella")
  38. Global $Graphic1 = GUICtrlCreateGraphic(208, 16, 1, 257)
  39. GUICtrlSetColor(-1, 0xFF0000)
  40. Global $piu = GUICtrlCreateButton("+", 304, 48, 57, 33, 0)
  41. GUICtrlSetTip(-1, "più")
  42. Global $meno = GUICtrlCreateButton("-", 304, 88, 57, 33, 0)
  43. GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
  44. GUICtrlSetTip(-1, "meno")
  45. Global $per = GUICtrlCreateButton("x", 304, 128, 57, 33, 0)
  46. GUICtrlSetTip(-1, "per")
  47. Global $uguale = GUICtrlCreateButton("=", 256, 248, 57, 33, 0)
  48. GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
  49. GUICtrlSetTip(-1, "risolvi solo per +,-,/,*,^")
  50. Global $abs = GUICtrlCreateButton("Abs", 216, 48, 57, 33, 0)
  51. GUICtrlSetTip(-1, "calcola il valore assoluto di un numero")
  52. Global $arcoseno = GUICtrlCreateButton("Cos", 216, 88, 57, 33, 0)
  53. GUICtrlSetTip(-1, "Calcola il coseno di un numero")
  54. Global $log = GUICtrlCreateButton("Log", 216, 168, 57, 33, 0)
  55. GUICtrlSetTip(-1, "Calcola il logaritmo")
  56. Global $seno = GUICtrlCreateButton("Sin", 216, 128, 57, 33, 0)
  57. GUICtrlSetTip(-1, "Calcola il seno di un numero")
  58. Global $tan = GUICtrlCreateButton("Tan", 216, 208, 57, 33, 0)
  59. GUICtrlSetTip(-1, "Calcola la tangente di un numero")
  60. Global $diviso = GUICtrlCreateButton("/", 304, 168, 57, 33, 0)
  61. GUICtrlSetTip(-1, "Diviso")
  62. Global $Label1 = GUICtrlCreateLabel("Calcolatrice By Red Skull 92", 48, 0, 265, 28)
  63. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  64. GUICtrlSetColor(-1, 0xFF0000)
  65. Global $potenza = GUICtrlCreateButton("^", 304, 208, 57, 33, 0)
  66. GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
  67. GUICtrlSetTip(-1, "calcola la potenza di un numero")
  68. GUISetState(@SW_SHOW)
  69. ;Inizio Funzioni
  70.  
  71.  
  72.  
  73. While 1
  74.         ;Legge espressioni
  75.         $leggi=GUICtrlRead($risultato)
  76. $nMsg = GUIGetMsg()
  77. Switch $nMsg
  78. Case $GUI_EVENT_CLOSE
  79. Exit
  80. Case $Button1
  81.         $modifica_1=GUICtrlSetData($risultato,$leggi&"1")
  82. case $Button2
  83.         $modifica_2=GUICtrlSetData($risultato,$leggi&"2")
  84. Case $Button3
  85.      $modifica_3=GUICtrlSetData($risultato,$leggi&"3")
  86.  Case $Button4
  87. $modifica_4=GUICtrlSetData($risultato,$leggi&"4")
  88. Case $Button5
  89.         $modifica_5=GUICtrlSetData($risultato,$leggi&"5")
  90. case $Button6
  91. $modifica_6=GUICtrlSetData($risultato,$leggi&"6")
  92. Case $Button7
  93.         $modifica_7=GUICtrlSetData($risultato,$leggi&"7")
  94. Case $Button8
  95. $modifica_8=GUICtrlSetData($risultato,$leggi&"8")
  96. Case $Button9
  97.         $modifica_9=GUICtrlSetData($risultato,$leggi&"9")
  98. Case $Button0
  99. $modifica_0=GUICtrlSetData($risultato,$leggi&"0")
  100. ;addizione
  101. Case $piu
  102.         GUICtrlSetData($risultato,$leggi&"+")
  103.         If $leggi = "" Then
  104.                 MsgBox(48,"ATTENZIONE","immetti il primo esponente prima dell'operatore logco")
  105.         GUICtrlSetData($risultato,"")
  106. EndIf  
  107. ;Sottrazione
  108. Case $meno
  109.         GUICtrlSetData($risultato,$leggi&"-")
  110.         If $leggi = "" Then
  111.                 MsgBox(48,"ATTENZIONE","immetti il primo esponente prima dell'operatore logco")
  112.         GUICtrlSetData($risultato,"")
  113. EndIf  
  114. ;Moltiplicazione
  115. Case $per
  116.         GUICtrlSetData($risultato,$leggi&"*")
  117.         If $leggi = "" Then
  118.                 MsgBox(48,"ATTENZIONE","immetti il primo esponente prima dell'operatore logco")
  119.         GUICtrlSetData($risultato,"")
  120. EndIf  
  121. ;Risultato
  122. Case $uguale
  123.         $esegui=Execute($leggi)
  124.         GUICtrlSetData($risultato,$esegui)
  125.         If $leggi = "" Then
  126.                 MsgBox(48,"ATTENZIONE","immetti il primo efficiente,l'operatore logico ed il secondo coefficente")
  127.         EndIf
  128.         ;Divisione
  129.         Case $diviso
  130. GUICtrlSetData($risultato,$leggi&"/")
  131. If $leggi = "" Then
  132.                 MsgBox(48,"ATTENZIONE","immetti il primo esponente prima dell'operatore logco")
  133.         EndIf
  134.         ;Calcolo della potenza
  135. Case $potenza
  136.                 GUICtrlSetData($risultato,$leggi&"^")
  137.                 If $leggi = "" Then
  138.                 MsgBox(48,"ATTENZIONE","immetti il primo efficiente,l'operatore logico ed il secondo coefficente")
  139.         EndIf
  140.         ;immissione punto
  141. Case $Buttonpnt
  142.                 GUICtrlSetData($risultato,$leggi&".")
  143.                 ;Cancella
  144. Case $canc
  145.                 GUICtrlSetData($risultato,"")
  146.                 ;Calcolo valore assoluto di un numero
  147.         Case $abs
  148. $esegui_abs=Abs($leggi)
  149. GUICtrlSetData($risultato,$esegui_abs)
  150. ;Calcolo arcoseno
  151. Case $arcoseno
  152.         $esegui_ACos=ACos($leggi)
  153.         GUICtrlSetData($risultato,$esegui_ACos)
  154.         ;Calcolo logaritmo
  155. Case $log
  156. $esegui_log=Log($leggi)
  157. GUICtrlSetData($risultato,$esegui_log)
  158. ;Calcolo seno
  159. Case $seno
  160.         $esegui_sin=Sin($leggi)
  161.         GUICtrlSetData($risultato,$esegui_sin)
  162.         ;calcolo tangente
  163. Case $tan
  164. $esegui_tan=Tan($leggi)
  165. GUICtrlSetData($risultato,$tan)
  166.  
  167. EndSwitch
  168. WEnd
  169.  
  170.  

Calcolatrice By Red Skull 92

Child Pastes