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

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

2014-06-01T18:48:50Z

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: Добавить в поле ввода калькулятора знак равно

2014-05-31T17:24:36Z

Так?


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: Добавить в поле ввода калькулятора знак равно

2014-05-31T16:37:43Z

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

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

2014-05-31T16:28:53Z

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

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

2014-05-31T16:12:20Z

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

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

2014-05-31T03:29:40Z

Так, что ли?


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: Добавить в поле ввода калькулятора знак равно

2014-05-30T17:30:09Z

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

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

2014-05-29T19:10:30Z

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


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

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

2014-05-29T18:56:50Z

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

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

2014-05-29T18:55:23Z

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

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

2014-05-29T18:46:57Z

Доброго времени суток. Подскажите пожалуйста как можно добавить в код калькулятора знак "=" в поле ввода , то есть в поле ввода можно вписать цифры "пример 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