How can I make it possible to calculate the Numbers together.
Here is the Code:
Code: Select all
#Requires AutoHotKey v2.0
#Include libs\GuiButtonIcon.ahk
MainGui := {}
MainGui := Gui(, "Calculator")
MainGuiEdits := {}
MainGuiEdits.Result := MainGui.Add("Edit", "w230 h25 vResult ReadOnly")
MainGuiButtons := {}
MainGuiButtons.N1 := MainGui.Add("Button", "x10 y40 w50 h50", "1")
MainGuiButtons.N2 := MainGui.Add("Button", "x70 y40 w50 h50", "2")
MainGuiButtons.N3 := MainGui.Add("Button", "x130 y40 w50 h50", "3")
MainGuiButtons.Plus := MainGui.Add("Button", "x190 y40 w50 h50", "+")
MainGuiButtons.N4 := MainGui.Add("Button", "x10 y100 w50 h50", "4")
MainGuiButtons.N5 := MainGui.Add("Button", "x70 y100 w50 h50", "5")
MainGuiButtons.N6 := MainGui.Add("Button", "x130 y100 w50 h50", "6")
MainGuiButtons.Minus := MainGui.Add("Button", "x190 y100 w50 h50", "-")
MainGuiButtons.N7 := MainGui.Add("Button", "x10 y160 w50 h50", "7")
MainGuiButtons.N8 := MainGui.Add("Button", "x70 y160 w50 h50", "8")
MainGuiButtons.N9 := MainGui.Add("Button","x130 y160 w50 h50", "9")
MainGuiButtons.Multiplication := MainGui.Add("Button", "x190 y160 w50 h50", "*")
MainGuiButtons.Decimal := MainGui.Add("Button", "x10 y220 w50 h50", ".")
MainGuiButtons.N0 := MainGui.Add("Button","x70 y220 w50 h50", "0")
MainGuiButtons.Clear := MainGui.Add("Button", "x130 y220 w50 h50", "C")
MainGuiButtons.Division := MainGui.Add("Button", "x190 y220 w50 h50", "/")
MainGuiButtons.Enter := MainGui.Add("Button", "x250 y220 w50 h50 Background76B9ED", "=")
MainGuiButtons.Remove := MainGui.Add("Button", "x250 y160 w50 h50")
GuiButtonIcon(MainGuiButtons.Remove.Hwnd, A_ScriptDir . "\icons\clear.png")
MainGui.Show("w310 h280")
MainGuiButtons.N1.OnEvent("Click", PressN1)
MainGuiButtons.N2.OnEvent("Click", PressN2)
MainGuiButtons.N3.OnEvent("Click", PressN3)
MainGuiButtons.Plus.OnEvent("Click", PressPlus)
MainGuiButtons.Remove.OnEvent("Click", PressRemove)
MainGuiButtons.Enter.OnEvent("Click", PressEnter)
PressN1(*) {
MainGuiEdits.Result.Text := ControlGetText(MainGuiEdits.Result) . MainGuiButtons.N1.Text
}
PressN2(*) {
MainGuiEdits.Result.Text := ControlGetText(MainGuiEdits.Result) . MainGuiButtons.N2.Text
}
PressN3(*) {
MainGuiEdits.Result.Text := ControlGetText(MainGuiEdits.Result) . MainGuiButtons.N3.Text
}
PressPlus(*) {
MainGuiEdits.Result.Text := ControlGetText(MainGuiEdits.Result) . MainGuiButtons.Plus.Text
}
PressRemove(*) {
MainGuiEdits.Result.Text := SubStr(ControlGetText(MainGuiEdits.Result), 1, StrLen(ControlGetText(MainGuiEdits.Result)) - 1)
}
PressEnter(*) {
}