admin
Founder
Registrato: Oct 03, 2008
Messaggi: 261
|
 Inviato: Gio Lug 09, 2009 11:07 pm Oggetto: Semplice Calcolatrice |
 |
|
| Codice: | #include <GUIConstants.au3>
#include <Process.au3>
#include <Math.au3>
MsgBox(0, "Calcolatrice By ThNdRbRd", "Per Chiudere il Programma cliccare su ThNdRbRd")
MsgBox(0, "Calcolatrice By ThNdRbRd", "Per Consigli,Informazioni e altro Contattami: [email protected]")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Calcolatrice", 300, 300, 240, 180)
$Input1 = GUICtrlCreateInput("", 8, 16, 201, 21)
$Button3 = GUICtrlCreateButton("7", 8, 56, 41, 25, 0)
$Button1 = GUICtrlCreateButton("8", 60, 56, 41, 25, 0)
$Button2 = GUICtrlCreateButton("9", 112, 56, 41, 25, 0)
$button19 = GUICtrlCreateButton("Radice", 230, 56, 41, 25 ,0)
$Button5 = GUICtrlCreateButton("5", 60, 94, 41, 25, 0)
$Button6 = GUICtrlCreateButton("6", 112, 94, 41, 25, 0)
$Button7 = GUICtrlCreateButton("/", 170, 56, 41, 25, 0)
$Button8 = GUICtrlCreateButton("*", 170, 94, 41, 25, 0)
$Button9 = GUICtrlCreateButton("1", 8, 132, 41, 25, 0)
$Button10 = GUICtrlCreateButton("2", 60, 132, 41, 25, 0)
$Button11 = GUICtrlCreateButton("3", 112, 132, 41, 25, 0)
$Button12 = GUICtrlCreateButton("-", 170, 132, 41, 25, 0)
$Button13 = GUICtrlCreateButton("0", 8, 170, 41, 25, 0)
$Button14 = GUICtrlCreateButton("Canc", 60, 170, 41, 25, 0)
$Button15 = GUICtrlCreateButton(".", 112, 170, 41, 25, 0)
$Button16 = GUICtrlCreateButton("+", 170, 170, 41, 25, 0)
$Button4 = GUICtrlCreateButton("4", 8, 94, 41, 25, 0)
$Button17 = GUICtrlCreateButton("=", 8, 208, 89, 25, 0)
$Button18 = GUICtrlCreateButton("ThNdRbRd", 112, 208, 89, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$Msg = GUIGetMsg()
Select
Case $msg=$GUI_EVENT_CLOSE
Case $msg = $Button18
ProgressOn("Calcolatrice By ThNdRbRd", "Caricamento in corso...Attendere", "0 percento")
For $i = 10 to 100 step 3
sleep(100)
ProgressSet( $i, $i & " % ")
Next
_RunDos("start http://hacking2.0.forumcommunity.net")
ExitLoop
Case $msg=$button3
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"7")
Case $msg=$button1
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"8")
Case $msg=$button2
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"9")
Case $msg=$button5
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"5")
Case $msg=$button6
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"6")
Case $msg=$button9
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"1")
Case $msg=$button10
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"2")
Case $msg=$button11
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"3")
Case $msg=$button4
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"4")
Case $msg=$button13
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"0")
Case $msg=$button7
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"/")
Case $msg=$button12
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"-")
Case $msg=$button14
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, "")
Case $msg=$button15
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&".")
Case $msg=$button16
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"+")
Case $msg=$button8
$ris=GUICtrlRead($input1)
GUICtrlSetData($input1, $ris&"*")
Case $msg=$button19
$ris =GUICtrlRead($input1)
GUICtrlSetData($ris&,Sqrt)
Case $msg=$button17
$ris=GUICtrlRead($input1)
$risultato=Execute($ris)
GUICtrlSetData($input1, $risultato)
EndSelect
WEnd |
_________________
D3vil-C0de Crew => http://d3vilc0de.org
My Spaces => http://kinginfet.135.it
My Tool Cracker => http://totalcracker.135.it
My Dj Site => http://djkinginfet.135.it |
|
FAQ
Cerca
Lista degli utenti
Gruppi utenti
Profilo
Messaggi Privati
Login
