[AutoIt] Calculatrice à virgule flottante.

Voir le sujet précédent Voir le sujet suivant Aller en bas

Normal [AutoIt] Calculatrice à virgule flottante.

Message par M.Pong le Sam 25 Jan 2014 - 19:10

Salut Very Happy


Voici une petite calculatrice:


Code Source:

Code:
#include <ButtonConstants.au3>[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
#include <GUIConstantsEx.au3>[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
#include <WindowsConstants.au3>[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Centrage de la GUI à l'écran //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Pos_Largeur = (@DesktopWidth - 168)/2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Pos_Hauteur = (@DesktopHeight - 238)/2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
Local $CalcText1 = ""[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
Local $CalcText2 = ""[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
Local $Nombre = 1[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
Local $Operation = ""[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$GUI = GUICreate("Calculatrice", 168, 238, $Pos_Largeur, $Pos_Hauteur)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUISetBkColor(0x33CCFF, $GUI)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$NoFocus = GUICtrlCreateLabel("", 0, 0, 0, 0)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton Difference //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$ButtonDifference = GUICtrlCreateButton("-", 128, 160, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x000080)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton Addition //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$ButtonAddition = GUICtrlCreateButton("+", 128, 200, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x000080)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton Division //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$ButtonDivision = GUICtrlCreateButton("/", 128, 80, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x000080)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton Multiplication //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$ButtonMultiplication = GUICtrlCreateButton("*", 128, 120, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x000080)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 08 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button08 = GUICtrlCreateButton("8", 48, 80, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 09 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button09 = GUICtrlCreateButton("9", 88, 80, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 04 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button04 = GUICtrlCreateButton("4", 8, 120, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 05 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button05= GUICtrlCreateButton("5", 48, 120, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 06 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button06 = GUICtrlCreateButton("6", 88, 120, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 07 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button07 = GUICtrlCreateButton("7", 8, 80, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 00 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button00 = GUICtrlCreateButton("0", 8, 200, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 01 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button01 = GUICtrlCreateButton("1", 8, 160, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 02 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button02 = GUICtrlCreateButton("2", 48, 160, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton 03 //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$Button03 = GUICtrlCreateButton("3", 88, 160, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton Virgule[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$ButtonVirgule = GUICtrlCreateButton(".", 48, 200, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x0000FF)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton Egale //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$ButtonEqual = GUICtrlCreateButton("=", 88, 200, 32, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x000080)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Bouton AC //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$ButtonAC = GUICtrlCreateButton("AC", 8, 40, 72, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x000080)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Boutton OFF //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$ButtonOff = GUICtrlCreateButton("OFF", 88, 40, 72, 32)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetColor(-1, 0x000080)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
; // Zone de Texte //[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
$TextBox = GUICtrlCreateInput("", 8, 8, 152, 26, 2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetFont(-1, 16, 1, "Arial")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUICtrlSetState(-1, $GUI_DISABLE)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
GUISetState(@SW_SHOW)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
While 1[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
   $Controle = GUIGetMsg()[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
   Switch $Controle[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $GUI_EVENT_CLOSE[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Exit[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $ButtonOff[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Exit[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button00[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "0"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "0"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button01[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "1"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "1"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button02[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "2"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "2"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button03[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "3"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "3"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button04[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "4"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "4"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button05[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "5"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "5"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button06[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "6"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "6"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button07[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "7"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "7"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button08[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "8"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "8"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button09[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "9"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "9"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $Button00[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "0"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "0"[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $ButtonVirgule[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Nombre = 1 Then[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText1 = $CalcText1 & "."[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText1)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Else[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            $CalcText2 = $CalcText2 & "."[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            GUICtrlSetData($TextBox, $CalcText2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         EndIf[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $ButtonAC[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
          GUICtrlSetData($TextBox, "")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Local $CalcText1 = ""[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Local $CalcText2 = ""[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Local $Nombre = 1[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Local $Operation = ""[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $ButtonAddition[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            Local $Operation = 1[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            Local $Nombre = 2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetData($TextBox, "")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $ButtonDifference[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            Local $Operation = 2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            Local $Nombre = 2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetData($TextBox, "")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $ButtonMultiplication[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            Local $Operation = 3[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            Local $Nombre = 2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetData($TextBox, "")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $ButtonDivision[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            Local $Operation = 4[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
            Local $Nombre = 2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetData($TextBox, "")[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
      Case $ButtonEqual[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetState($NoFocus, $GUI_FOCUS)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Operation = 1 Then Local $Resultat = $CalcText1 + $CalcText2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Operation = 2 Then Local $Resultat = $CalcText1 - $CalcText2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Operation = 3 Then Local $Resultat = $CalcText1 * $CalcText2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         If $Operation = 4 Then Local $Resultat = $CalcText1 / $CalcText2[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         Local $Arround = Round($Resultat, 2)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
         GUICtrlSetData($TextBox, $Arround)[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
   EndSwitch[color=#2e8b57][font=Courier, CourierNew, sans-serif][/font][/color]
WEnd



Téléchargement: sendspace.com 7r0c1p


C'est une version très minimaliste, car il y a encore beaucoup de chose à améliorer:


- Gérer plus de 2 nombres.
- Gérer les expression numériques.
- Ajouter des fonctions mathématiques. (Mode Scientifique)
- Ajouter un menu Options. (Les couleurs, le nombre de chiffres après la virgule...)





Dylan.
avatar
M.Pong
Petit créateur
Petit créateur

Messages : 44
Pourcentage d'avancement : 5%

Voir le profil de l'utilisateur http://www.bbat.forumeiro.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum