[T] Calculette de poche pour PC

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

[T] Calculette de poche pour PC

#1

Message par Tlem »

Message transféré de l'ancien forum.
Auteur : hellboy_21
Date : 15/12/2006


Citation :

Voici une calculette de poche pour votre pc...mais ne rêvez pas votre pc ne rentrera toujours pas dans votre poche quoique avec les pocket pc...! :P

Code : Tout sélectionner

#include <GUIconstants.au3>
#include <Misc.au3>
#NoTrayIcon
Opt("GUIOnEventMode", 1)
GUICreate("Calculatrice", 156, 202, -1, -1, $WS_SYSMENU)
GUISetBkColor(0xFFFFFF)
$txtEnCours = GUICtrlCreateLabel("0", 0, 4, 117, 15, $ES_RIGHT)
$lblEurosFrancs = GUICtrlCreateLabel("€", 132, 4, 10, 20)
$cmd9 = GUICtrlCreateButton("9", 60, 20, 30, 30)
GUICtrlSetOnEvent($cmd9, "bouton9")
$cmd8 = GUICtrlCreateButton("8", 30, 20, 30, 30)
GUICtrlSetOnEvent($cmd8, "bouton8")
$cmd7 = GUICtrlCreateButton("7", 0, 20, 30, 30)
GUICtrlSetOnEvent($cmd7, "bouton7")
$cmd6 = GUICtrlCreateButton("6", 60, 50, 30, 30)
GUICtrlSetOnEvent($cmd6, "bouton6")
$cmd5 = GUICtrlCreateButton("5", 30, 50, 30, 30)
GUICtrlSetOnEvent($cmd5, "bouton5")
$cmd4 = GUICtrlCreateButton("4", 0, 50, 30, 30)
GUICtrlSetOnEvent($cmd4, "bouton4")
$cmd3 = GUICtrlCreateButton("3", 60, 80, 30, 30)
GUICtrlSetOnEvent($cmd3, "bouton3")
$cmd2 = GUICtrlCreateButton("2", 30, 80, 30, 30)
GUICtrlSetOnEvent($cmd2, "bouton2")
$cmd1 = GUICtrlCreateButton("1", 0, 80, 30, 30)
GUICtrlSetOnEvent($cmd1, "bouton1")
$cmd0 = GUICtrlCreateButton("0", 0, 110, 30, 30)
GUICtrlSetOnEvent($cmd0, "bouton0")
$cmdVirgule = GUICtrlCreateButton(",", 30, 110, 30, 30)
GUICtrlSetOnEvent($cmdVirgule, "boutonVirgule")
$cmdEgal = GUICtrlCreateButton("=", 60, 110, 30, 30)
GUICtrlSetOnEvent($cmdEgal, "boutonEgal")
$cmdDiviser = GUICtrlCreateButton("/", 90, 20, 30, 30)
GUICtrlSetOnEvent($cmdDiviser, "boutonDiviser")
$cmdMultiplier = GUICtrlCreateButton("*", 90, 50, 30, 30)
GUICtrlSetOnEvent($cmdMultiplier, "boutonMultiplier")
$cmdSoustraire = GUICtrlCreateButton("-", 90, 80, 30, 30)
GUICtrlSetOnEvent($cmdSoustraire, "boutonSoustraire")
$cmdAdditionner = GUICtrlCreateButton("+", 90, 110, 30, 30)
GUICtrlSetOnEvent($cmdAdditionner, "boutonAdditionner")
$cmdEurosFrancs = GUICtrlCreateButton("€uros <=> Francs", 0, 140, 120, 30)
GUICtrlSetOnEvent($cmdEurosFrancs, "boutonEurosFrancs")
$cmdM = GUICtrlCreateButton("M", 120, 20, 30, 30)
GUICtrlSetOnEvent($cmdM, "boutonM")
$cmdMR = GUICtrlCreateButton("MR", 120, 50, 30, 30)
GUICtrlSetOnEvent($cmdMR, "boutonMR")
$cmdRAZ = GUICtrlCreateButton("R" & @LF & "A" & @LF & "Z", 120, 80, 30, 90, $BS_MULTILINE)
GUICtrlSetOnEvent($cmdRAZ, "boutonRAZ")
$enCours = 0
$virgule = 0
$diviser = 0
$multiplier = 0
$soustraire = 0
$additionner = 0
$valeur = 0
$dejaPasse = 0
$memoire = 0
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
GUISetState()
GUICtrlSetState($cmdRAZ, $GUI_FOCUS)
While 1
    Sleep(100)
WEnd
Func bouton9()
    Call("surClicChiffre", "9")
EndFunc   ;==>bouton9
Func bouton8()
    Call("surClicChiffre", "8")
EndFunc   ;==>bouton8
Func bouton7()
    Call("surClicChiffre", "7")
EndFunc   ;==>bouton7
Func bouton6()
    Call("surClicChiffre", "6")
EndFunc   ;==>bouton6
Func bouton5()
    Call("surClicChiffre", "5")
EndFunc   ;==>bouton5
Func bouton4()
    Call("surClicChiffre", "4")
EndFunc   ;==>bouton4
Func bouton3()
    Call("surClicChiffre", "3")
EndFunc   ;==>bouton3
Func bouton2()
    Call("surClicChiffre", "2")
EndFunc   ;==>bouton2
Func bouton1()
    Call("surClicChiffre", "1")
EndFunc   ;==>bouton1
Func bouton0()
    Call("surClicChiffre", "0")
EndFunc   ;==>bouton0
Func boutonVirgule()
    If $virgule = 0 Then
        $enCours = $enCours & "."
        GUICtrlSetData($txtEnCours, $enCours)
        $virgule = 1
    EndIf
EndFunc   ;==>boutonVirgule
Func boutonEgal()
    Select
        Case $diviser = 1
            $resultat = $valeur / GUICtrlRead($txtEnCours)
            GUICtrlSetData($txtEnCours, $resultat)
            $diviser = 0
            $dejaPasse = 0
        Case $multiplier = 1
            $resultat = $valeur * GUICtrlRead($txtEnCours)
            GUICtrlSetData($txtEnCours, $resultat)
            $multiplier = 0
            $dejaPasse = 0
        Case $soustraire = 1
            $resultat = $valeur - GUICtrlRead($txtEnCours)
            GUICtrlSetData($txtEnCours, $resultat)
            $soustraire = 0
            $dejaPasse = 0
        Case $additionner = 1
            $resultat = $valeur + GUICtrlRead($txtEnCours)
            GUICtrlSetData($txtEnCours, $resultat)
            $additionner = 0
            $dejaPasse = 0
    EndSelect
EndFunc   ;==>boutonEgal
Func boutonDiviser()
    Call("boutonEgal")
    $diviser = 1
    $valeur = GUICtrlRead($txtEnCours)
    $virgule = 0
EndFunc   ;==>boutonDiviser
Func boutonMultiplier()
    Call("boutonEgal")
    $multiplier = 1
    $valeur = GUICtrlRead($txtEnCours)
    $virgule = 0
EndFunc   ;==>boutonMultiplier
Func boutonSoustraire()
    Call("boutonEgal")
    $soustraire = 1
    $valeur = GUICtrlRead($txtEnCours)
    $virgule = 0
EndFunc   ;==>boutonSoustraire
Func boutonAdditionner()
    Call("boutonEgal")
    $additionner = 1
    $valeur = GUICtrlRead($txtEnCours)
    $virgule = 0
EndFunc   ;==>boutonAdditionner
Func boutonEurosFrancs()
    If GUICtrlRead($lblEurosFrancs) = "€" Then
        GUICtrlSetData($lblEurosFrancs, "F")
        $convertion = GUICtrlRead($txtEnCours) * 6.55957
        GUICtrlSetData($txtEnCours, $convertion)
    Else
        GUICtrlSetData($lblEurosFrancs, "€")
        $convertion = GUICtrlRead($txtEnCours) / 6.55957
        GUICtrlSetData($txtEnCours, $convertion)
    EndIf
EndFunc   ;==>boutonEurosFrancs
Func boutonM()
    If GUICtrlRead($txtEnCours) <> "" Then
        $memoire = GUICtrlRead($txtEnCours)
    Else
        $memoire = 0
    EndIf
EndFunc   ;==>boutonM
Func boutonMR()
    GUICtrlSetData($txtEnCours, $memoire)
EndFunc   ;==>boutonMR
Func boutonRAZ()
    $enCours = 0
    $virgule = 0
    $diviser = 0
    $multiplier = 0
    $soustraire = 0
    $additionner = 0
    $valeur = 0
    $dejaPasse = 0
    GUICtrlSetData($txtEnCours, "0")
EndFunc   ;==>boutonRAZ
Func surClicChiffre($chiffre)
    $enCours = GUICtrlRead($txtEnCours)
    If $enCours = "0" Then
        $enCours = $chiffre
    Else
        If $diviser = 1 Or $multiplier = 1 Or $soustraire = 1 Or $additionner = 1 Then
            If $dejaPasse = 0 Then
                $enCours = $chiffre
                $dejaPasse = 1
            Else
                $enCours = $enCours & $chiffre
            EndIf
        Else
            $enCours = $enCours & $chiffre
        EndIf
    EndIf
    GUICtrlSetData($txtEnCours, $enCours)
EndFunc   ;==>surClicChiffre
Func quitter()
    Exit
EndFunc   ;==>quitter
Répondre