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...!
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