Серый форум — AHK: Добавить в поле ввода калькулятора знак равно

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (Ядрён) — Sun, 01 Jun 2014 18:48:50 +0000

YMP пишет:

Так?


oSC := ComObjCreate("ScriptControl")
oSC.Language := "VBScript"
Gui, Add, Edit,vEdit x6 y11 w330 h30 R1,
Gui, Add, Button, x106 y51 w100 h30 , =
Gui, Font, S8 CGreen, Verdana
Gui, Show, x131 y91 h94 w342, КАЛЬКУЛЯТОР
Return
GuiClose:
ExitApp
#If WinActive("КАЛЬКУЛЯТОР ahk_class AutoHotkeyGUI")
Button=:
GuiControlGet, Edit,, Edit
StringReplace, Edit, Edit, =
Result := oSC.Eval(Edit)
GuiControl,, Edit, %Result%
Clipboard := Result
Return

Да именно так спасибо.

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (YMP) — Sat, 31 May 2014 17:24:36 +0000

Так?


oSC := ComObjCreate("ScriptControl")
oSC.Language := "VBScript"
Gui, Add, Edit,vEdit x6 y11 w330 h30 R1,
Gui, Add, Button, x106 y51 w100 h30 , =
Gui, Font, S8 CGreen, Verdana
Gui, Show, x131 y91 h94 w342, КАЛЬКУЛЯТОР
Return
GuiClose:
ExitApp
#If WinActive("КАЛЬКУЛЯТОР ahk_class AutoHotkeyGUI")
Button=:
GuiControlGet, Edit,, Edit
StringReplace, Edit, Edit, =
Result := oSC.Eval(Edit)
GuiControl,, Edit, %Result%
Clipboard := Result
Return

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (Ядрён) — Sat, 31 May 2014 16:37:43 +0000

Я выделяю двойным кликом "20 + 20 =" (не 20 + 20 ) а именно: "20 + 20 =" вписываю в калькулятор , получаю ответ , копирую из калькулятора и вставляю в поле ответ .

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (YMP) — Sat, 31 May 2014 16:28:53 +0000

Кто их туда должен вписывать и каким образом?

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (Ядрён) — Sat, 31 May 2014 16:12:20 +0000

Нет опять не так. Вот цифры и знаки которые должны быть вписаны в поле "Edit" перечисляю: 20 , + , 20 , = .

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (YMP) — Sat, 31 May 2014 03:29:40 +0000

Так, что ли?


oSC := ComObjCreate("ScriptControl")
oSC.Language := "VBScript"
Gui, Add, Edit,vEdit x6 y11 w330 h30 R1,
Gui, Add, Button, x106 y51 w100 h30 , =
Gui, Font, S8 CGreen, Verdana
Gui, Show, x131 y91 h94 w342, КАЛЬКУЛЯТОР
Return
GuiClose:
ExitApp
#If WinActive("КАЛЬКУЛЯТОР ahk_class AutoHotkeyGUI")
Button=:
GuiControlGet, Edit,, Edit
Result := oSC.Eval(Edit)
GuiControl,, Edit, %Edit% = %Result%
Clipboard := Result
Return

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (Ядрён) — Fri, 30 May 2014 17:30:09 +0000

Нет вы не поняли , нужно в поле "Edit" ввести "20 + 20 = " а в ответе получилось "40" , а у вас получается "20 + 20 = 40 " и копируется в буфер это "20 + 20 = 40 " а нужно копировать в буфер "40".

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (serzh82saratov) — Thu, 29 May 2014 19:10:30 +0000

Зачем вк код? Эта клавиша и по имени, работает в любой раскладке.


=::
Button=:
    GuiControlGet, Edit 
    Result := oSC.Eval(Edit)
    GuiControl,, Edit, % Clipboard := Edit "=" RegExReplace(Result, "(.*)\.0+$|(.*\..*?)0+$", "$1$2")
    Return

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (ypppu) — Thu, 29 May 2014 18:56:50 +0000

Наверно узнать vk-код клавиши [=] и назначить на неё те же действия, что выполняет кнопка в GUI.

Re: AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (serzh82saratov) — Thu, 29 May 2014 18:55:23 +0000

GuiControl,, Edit, % Clipboard := Edit "=" RegExReplace(Result, "(.*)\.0+$|(.*\..*?)0+$", "$1$2")

AHK: Добавить в поле ввода калькулятора знак равно

null@example.com (Ядрён) — Thu, 29 May 2014 18:46:57 +0000

Доброго времени суток. Подскажите пожалуйста как можно добавить в код калькулятора знак "=" в поле ввода , то есть в поле ввода можно вписать цифры "пример 20 + 20 " , а нужно вписать в таком формате "20 + 20 = " и чтобы ответ сразу копировался в буфер.

oSC := ComObjCreate("ScriptControl")
oSC.Language := "VBScript"
Gui, Add, Edit,vEdit x6 y11 w330 h30 R1,
Gui, Add, Button, x106 y51 w100 h30 , =
Gui, Font, S8 CGreen, Verdana
Gui, Show, x131 y91 h94 w342, КАЛЬКУЛЯТОР
Return
GuiClose:
ExitApp
#If WinActive("КАЛЬКУЛЯТОР ahk_class AutoHotkeyGUI")
Button=:
GuiControlGet, Edit,, Edit
Result := oSC.Eval(Edit)
GuiControl,, Edit, % RegExReplace(Result, "(.*)\.0+$|(.*\..*?)0+$", "$1$2")
Return