Calcolatrice con autoit

Titolo: 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)

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

sigh... mi viene un complesso d'inferiorità...

Admin Numero di messaggi : 343 Data d'iscrizione : 30.07.07

su, dai....
l'importante è che ci provi e ti impegni al massimo, giusto?? Very Happy

» calcolatrice
» Come usare autoit
» inserire immagini in autoit
» Dove scaricare autoit
» Il bello di autoit...