Xhack

Un forum dedicato all'hacking
 
IndiceIndice  PortalePortale  CalendarioCalendario  FAQFAQ  CercaCerca  RegistratiRegistrati  Lista UtentiLista Utenti  GruppiGruppi  Accedi  

Condividi | 
 

 Calcolatrice con autoit

Andare in basso 
AutoreMessaggio
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Calcolatrice con autoit   Sab Ott 20, 2007 4:46 pm

Raga, ecco una calcolatrice by me scritta con autoit
@darkphantom drizza le antenne che tu con le calcolatrici ci avrai passato ore davanti al computer Very Happy )

Codice:

#include <GUIConstants.au3>

GUICreate ("Calcolatrice by certaindeath",300,235)

$output = ""
$out  =  GUICtrlCreateInput ( "", 5, 5 , 270 , 20 )
$but1 =  GUICtrlCreateButton ("1",25,35,30,30)
$but2 =  GUICtrlCreateButton ("2",65,35,30,30)
$but3 =  GUICtrlCreateButton ("3",105,35,30,30)
$but4 =  GUICtrlCreateButton ("4",25,75,30,30)
$but5 =  GUICtrlCreateButton ("5",65,75,30,30)
$but6 =  GUICtrlCreateButton ("6",105,75,30,30)
$but7 =  GUICtrlCreateButton ("7",25,115,30,30)
$but8 =  GUICtrlCreateButton ("8",65,115,30,30)
$but9 =  GUICtrlCreateButton ("9",105,115,30,30)
$but0=GUICtrlCreateButton("0",65,155,30,30)
$uguale = GUICtrlCreateButton ("=",25,195,112,30)
$butpiu = GUICtrlCreateButton ("+",145,35,30,30)
$butmeno = GUICtrlCreateButton ("-",145,75,30,30)
$butper = GUICtrlCreateButton ("x",145,115,30,30)
$butdiviso = GUICtrlCreateButton (":",145,155,30,30)
$clear = GUICtrlCreateButton("CE",185,35,30,30)
$butpun=GUICtrlCreateButton(".",25,155,30,30)
$operator1 = 0
$operator2 = 0
$result = 0
$piu = 0
$meno = 0
$per = 0
$diviso = 0


GUISetState( )

$msg = GUIGetMsg()

While $msg <> $GUI_EVENT_CLOSE
    $msg = GUIGetMsg()
   Select
      case $msg = $but1
         $output = $output & "1"
         GUICtrlSetData( $out, $output )
      case $msg = $but2
         $output = $output & "2"
         GUICtrlSetData( $out, $output )
      case $msg = $but3
         $output = $output & "3"
         GUICtrlSetData( $out, $output )
      case $msg = $but4
         $output = $output & "4"
         GUICtrlSetData( $out, $output )
      case $msg = $but5
          $output = $output & "5"
         GUICtrlSetData( $out, $output )
      case $msg = $but6
         $output = $output & "6"
         GUICtrlSetData( $out, $output )
      case $msg = $but7
         $output = $output & "7"
         GUICtrlSetData( $out, $output )
      case $msg = $but8
         $output = $output & "8"
         GUICtrlSetData( $out, $output )
      case $msg = $but9
         $output = $output & "9"
         GUICtrlSetData( $out, $output )
      Case $msg=$but0
         If $output <> "" Then
            $output = $output & "0"
            GUICtrlSetData( $out, $output )
         EndIf
      Case $msg = $butpun
         $output = $output & "."
         GUICtrlSetData( $out, $output )
      case $msg = $butpiu
         $piu = 1
         read()
         GUICtrlSetData( $out, "" )
         $output = ""
      case $msg = $butmeno
         $meno = 1
         read()
         GUICtrlSetData( $out, "" )
         $output = ""
      case $msg = $butper
         $per = 1
         read()
         GUICtrlSetData( $out, "" )
         $output = ""
         case $msg = $butdiviso
         $diviso = 1
         read()
         GUICtrlSetData( $out, "" )
         $output = ""
         case $msg = $uguale
         read()
         If $piu = 1 Then
            $result = $operator1 + $operator2
            GUICtrlSetData( $out, $result )
            $piu = 0
            $operator1 = 0
            $operator2 = 0
            $result = 0
         ElseIf $meno = 1 Then
            $result = $operator1 - $operator2
            GUICtrlSetData( $out, $result )
            $meno = 0
            $operator1 = 0
            $operator2 = 0
            $result = 0
         ElseIf $per = 1 Then
            $result = $operator1 * $operator2
            GUICtrlSetData( $out, $result )
            $per = 0
            $operator1 = 0
            $operator2 = 0
            $result = 0
         ElseIf $diviso = 1 Then
            $result = $operator1 / $operator2
            GUICtrlSetData( $out, $result )
            $diviso = 0
            $operator1 = 0
            $operator2 = 0
            $result = 0
         EndIf
      case $msg = $clear
            clear()
   EndSelect
Wend
   
Func read()
   If $operator1 = 0 Then
      $operator1 = Number(GUICtrlRead($out))
   Else
      $operator2 = Number(GUICtrlRead($out)) 
   EndIf
EndFunc

Func clear()
   $piu = 0
   $meno = 0
   $per = 0
   $diviso = 0
   $operator1 = 0
   $operator2 = 0
   $result = 0
   $output = ""
   GUICtrlSetData( $out, "" )
EndFunc

P.S. sul sito ne pubblicherò una versione migliore(questa è la beta) con i commenti(per chi non capisse il source)
Torna in alto Andare in basso
Visualizza il profilo
darkphantom
hack-member
hack-member
avatar

Numero di messaggi : 398
Data d'iscrizione : 03.09.07

MessaggioTitolo: Re: Calcolatrice con autoit   Lun Ott 29, 2007 2:10 pm

sigh... mi viene un complesso d'inferiorità...
Torna in alto Andare in basso
Visualizza il profilo
certaindeath
Admin
Admin
avatar

Numero di messaggi : 343
Data d'iscrizione : 30.07.07

MessaggioTitolo: Re: Calcolatrice con autoit   Lun Ott 29, 2007 6:35 pm

su, dai....
l'importante è che ci provi e ti impegni al massimo, giusto?? Very Happy
Torna in alto Andare in basso
Visualizza il profilo
Contenuto sponsorizzato




MessaggioTitolo: Re: Calcolatrice con autoit   

Torna in alto Andare in basso
 
Calcolatrice con autoit
Torna in alto 
Pagina 1 di 1
 Argomenti simili
-
» Calcolatrice scientifica | Web 2.0 scientific calculator

Permessi di questa sezione del forum:Non puoi rispondere agli argomenti in questo forum
Xhack :: Programmazione :: Autoit-
Vai verso: