AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 Calculette de poche pour pc

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Calculette de poche pour pc   2006-12-15, 16:18

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]
#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"[email]&@LF&"A"&@LF&"Z",120,80,30,90,$BS_MULTILINE[/email])
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
Func bouton8()
Call("surClicChiffre","8")
EndFunc
Func bouton7()
Call("surClicChiffre","7")
EndFunc
Func bouton6()
Call("surClicChiffre","6")
EndFunc
Func bouton5()
Call("surClicChiffre","5")
EndFunc
Func bouton4()
Call("surClicChiffre","4")
EndFunc
Func bouton3()
Call("surClicChiffre","3")
EndFunc
Func bouton2()
Call("surClicChiffre","2")
EndFunc
Func bouton1()
Call("surClicChiffre","1")
EndFunc
Func bouton0()
Call("surClicChiffre","0")
EndFunc
Func boutonVirgule()
If $virgule = 0 Then
$enCours = $enCours&"."
GUICtrlSetData($txtEnCours,$enCours)
$virgule = 1
EndIf
EndFunc
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
Func boutonDiviser()
Call("boutonEgal")
$diviser = 1
$valeur = GUICtrlRead($txtEnCours)
$virgule = 0
EndFunc
Func boutonMultiplier()
Call("boutonEgal")
$multiplier = 1
$valeur = GUICtrlRead($txtEnCours)
$virgule = 0
EndFunc
Func boutonSoustraire()
Call("boutonEgal")
$soustraire = 1
$valeur = GUICtrlRead($txtEnCours)
$virgule = 0
EndFunc
Func boutonAdditionner()
Call("boutonEgal")
$additionner = 1
$valeur = GUICtrlRead($txtEnCours)
$virgule = 0
EndFunc
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
Func boutonM()
If GUICtrlRead($txtEnCours) <> "" Then
$memoire = GUICtrlRead($txtEnCours)
Else
$memoire = 0
EndIf
EndFunc
Func boutonMR()
GUICtrlSetData($txtEnCours,$memoire)
EndFunc
Func boutonRAZ()
$enCours = 0
$virgule = 0
$diviser = 0
$multiplier = 0
$soustraire = 0
$additionner = 0
$valeur = 0
$dejaPasse = 0
GUICtrlSetData($txtEnCours,"0")
EndFunc
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
Func quitter()
Exit
EndFunc
[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
hellboy_21
Membre avancé


Nombre de messages : 56
Date d'inscription : 10/11/2006

MessageSujet: Re: Calculette de poche pour pc   2006-12-15, 16:20

En fait le "#Include <Misc.au3>" ne sert à rien c'est parce que j'avais essayé d'autre ptites choses...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Calculette de poche pour pc
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» code pour inséré les anime (Fond transparent)
» Plugins Firefox pour sécuriser votre navigateur.
» Pb pour le choix de la voie
» hébergeur gratuit pour un site rein quand flash(RESOLUT)
» Affiches comment être et faire pour apprendre

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Scripts-
Sauter vers: