#Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=..\Pictures\graph65.ico #AutoIt3Wrapper_outfile=Calculatrice.exe #AutoIt3Wrapper_UseX64=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include #include #include #include #include #include #Include #include #Include #include HotKeySet("{1}", "1") HotKeySet("{2}", "2") HotKeySet("{3}", "3") HotKeySet("{4}", "4") HotKeySet("{5}", "5") HotKeySet("{6}", "6") HotKeySet("{7}", "7") HotKeySet("{8}", "8") HotKeySet("{9}", "9") HotKeySet("{+}", "+") HotKeySet("{-}", "-") HotKeySet("{*}", "*") HotKeySet("{/}", "/") HotKeySet("{^}", "^") HotKeySet("{ENTER}", "=") #Region ### START Koda GUI section ### Form= Global $Form1 = GUICreate("Calculette", 193, 267, 199, 124) Global $Input1 = GUICtrlCreateInput("", 8, 8, 177, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_NUMBER)) Global $Input2 = GUICtrlCreateInput("", 8, 32, 81, 22, BitOR($ES_RIGHT,$ES_AUTOHSCROLL)) GUICtrlSetFont(-1, 8, 400, 0, "Times New Roman") Global $Button1 = GUICtrlCreateButton("CE", 136, 32, 49, 25, $WS_GROUP) Global $Button2 = GUICtrlCreateButton("7", 8, 64, 33, 33, $WS_GROUP) Global $Button3 = GUICtrlCreateButton("8", 56, 64, 33, 33, $WS_GROUP) Global $Button4 = GUICtrlCreateButton("9", 104, 64, 33, 33, $WS_GROUP) Global $Button5 = GUICtrlCreateButton("+", 152, 64, 33, 33, $WS_GROUP) Global $Button6 = GUICtrlCreateButton("4", 8, 104, 33, 33, $WS_GROUP) Global $Button7 = GUICtrlCreateButton("1", 8, 144, 33, 33, $WS_GROUP) Global $Button8 = GUICtrlCreateButton("5", 56, 104, 33, 33, $WS_GROUP) Global $Button9 = GUICtrlCreateButton("6", 104, 104, 33, 33, $WS_GROUP) Global $Button10 = GUICtrlCreateButton("2", 56, 144, 33, 33, $WS_GROUP) Global $Button11 = GUICtrlCreateButton("3", 104, 144, 33, 33, $WS_GROUP) Global $Button12 = GUICtrlCreateButton("-", 152, 104, 33, 33, $WS_GROUP) Global $Button13 = GUICtrlCreateButton("x", 152, 144, 33, 33, $WS_GROUP) Global $Button14 = GUICtrlCreateButton("0", 8, 184, 81, 33, $WS_GROUP) Global $Button15 = GUICtrlCreateButton("/", 152, 184, 33, 33, $WS_GROUP) Global $Button16 = GUICtrlCreateButton("^", 104, 184, 33, 33, $WS_GROUP) Global $Button17 = GUICtrlCreateButton("=", 8, 224, 177, 33, $WS_GROUP) Global $Input3 = GUICtrlCreateInput("", 96, 32, 25, 21) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 GUICtrlSetData($Input1, "") GUICtrlSetData($Input2, "") GUICtrlSetData($Input3, "") Case $Button2 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "7") Case $Button3 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "8") Case $Button4 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "9") Case $button6 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "4") Case $Button7 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "1") Case $Button8 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "5") Case $Button9 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "6") Case $Button10 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "2") Case $Button11 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "3") Case $Button14 GUICtrlSetData($Input1, GUICtrlRead($Input1) & "0") case $Button5 $plus = GUICtrlRead($Input1) GUICtrlSetData($Input2, $plus) GUICtrlSetData($Input1, "") GUICtrlSetData($Input3, "+") Case $Button12 $plus = GUICtrlRead($Input1) GUICtrlSetData($Input2, $plus) GUICtrlSetData($Input1, "") GUICtrlSetData($Input3, "-") Case $Button13 $plus = GUICtrlRead($Input1) GUICtrlSetData($Input2, $plus) GUICtrlSetData($Input1, "") GUICtrlSetData($Input3, "x") Case $Button15 $plus = GUICtrlRead($Input1) GUICtrlSetData($Input2, $plus) GUICtrlSetData($Input1, "") GUICtrlSetData($Input3, "/") Case $Button16 $plus = GUICtrlRead($Input1) GUICtrlSetData($Input2, $plus) GUICtrlSetData($Input1, "") GUICtrlSetData($Input3, "^") Case $Button17 $nombre1 = GUICtrlRead($Input1) $nombre2 = GUICtrlRead($Input2) $operateur = GUICtrlRead($Input3) If $operateur = "x" Then $nombrefinal = $nombre1*$nombre2 If $operateur = "+" Then $nombrefinal = $nombre1+$nombre2 If $operateur = "-" Then $nombrefinal = $nombre2-$nombre1 If $operateur = "/" Then $nombrefinal = $nombre2/$nombre1 If $operateur = "^" Then $nombrefinal = $nombre2^$nombre1 MsgBox(0, "résultat", $nombrefinal, 0, 0) GUICtrlSetData($Input1, $nombrefinal) GUICtrlSetData($Input2, "") GUICtrlSetData($Input3, "") EndSwitch WEnd