|
[Урок] Калькулятор. Считаем выражение
|
|
| Artem_Buero |
Дата: Среда, 23.04.2014, 22:08 | Сообщение # 1
|
Сообщений: 4223
Статус: Offline
|
Сам код:
Код test := "2+2*2"
oSC := ComObjCreate("ScriptControl")
oSC.Language := "VBScript"
Result := oSC.Eval(test)
var = % RegExReplace(Result, "(.*)\.0+$|(.*\..*?)0+$", "$1$2")
MsgBox,%var%
Переменную test суём выражение которое надо посчитать
МОЙ ВК - https://vk.com/gospodin_buero
|
|
|
|
|
| AlexRAzor |
Дата: Вторник, 29.04.2014, 20:01 | Сообщение # 2
|
Боец
Сообщений: 89
Статус: Offline
|
Улучшил твою версию(начинающий скриптер)
InputBox, 1111, Какулятор v1337, Настрочи пример
test = %1111%
oSC := ComObjCreate("ScriptControl")
oSC.Language := "VBScript"
Result := oSC.Eval(test)
var = % RegExReplace(Result, "(.*)\.0+$|(.*\..*?)0+$", "$1$2")
MsgBox,%var%
Сообщение отредактировал AlexRAzor - Вторник, 29.04.2014, 20:03 |
|
|
|
|
| Artem_Buero |
Дата: Вторник, 29.04.2014, 20:11 | Сообщение # 3
|
Сообщений: 4223
Статус: Offline
|
AlexRAzor, Лучше не стало ты просто добавил ввод переменной
МОЙ ВК - https://vk.com/gospodin_buero
|
|
|
|
|
| AlexRAzor |
Дата: Вторник, 29.04.2014, 20:35 | Сообщение # 4
|
Боец
Сообщений: 89
Статус: Offline
|
Так удобней(ну мне во всяком)
|
|
|
|
|
| Artem_Buero |
Дата: Вторник, 29.04.2014, 21:17 | Сообщение # 5
|
Сообщений: 4223
Статус: Offline
|
AlexRAzor, Конечно,ибо я лишь дал код высчитывания переменной
МОЙ ВК - https://vk.com/gospodin_buero
|
|
|
|
|
| fedek13245 |
Дата: Четверг, 05.01.2017, 17:52 | Сообщение # 6
|
Любитель
Сообщений: 36
Статус: Offline
|
Cпасибо. полезно для серверов где за решение примеров дают что-нибудь.
--------------------------
Advance RP Chocolade,Purlpe.
Ставьте + плиз.
Мои темы:
http://cheat-master.ru/forum/150-643136-1 - MVD v3.
http://cheat-master.ru/forum/150-657057-1 - auto leet
http://cheat-master.ru/forum/150-648405-1 - Создать любую шпору.
|
|
|
|
|
