Текстовый калькулятор

[PUNK-GRUNGER]

:shock:
Привет :)

Тут такие страсти творяться... я уже сутки не сплю. Девушка учиться в колледже и им дали курсовый "на пятерку" - сделать текстовый калькулятор.

Лююдии... Это ужас какой-то... У меня скоро отвалиться голова. Ничего не получается. Вернее, наполовину я сделал :) Работает криво, через раз зависает, а большие уравнения - не хочет даже начинать решать :)

Вот, пример, который должен быть решенным с помощью такой вот софтинки:

=2+(18-6(7/2))*(5+7/2)

Помогите! Исходником желательно! Или советом... А то на Убить Билла один пойду ;)

[CyberYen]

А почему бы не связать твою прожку с Exel-кой? Он такие вещи считает без проблем. Кодом, увы, помочь не могу -сам, как видишь новичок, но вроде бы, можно кинуть на форму OLE-обьект (лист Exel), а как с ним работать - поищи сам, или пусть подскажут люди более грамотные в таких вопросах
Вообщем, удачи

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=19676#19676

[PUNK-GRUNGER]

Да не новичок я ))) Уж давно программлю. Раньше правда в Сях, а последние года три в ВБ. Просто нужно срочно решить сложное

Простой калькулятор я в первом классе делал А тут надо текстовый.

GSerg'у балшой спасибо Интересный код.

[#HammeR#]

Есть еще такой контрол - Microsoft Script Control 1.0
А в нем функция Eval()

Так вот y=Eval("2+(18-6(7/2))*(5+7/2)") вернет то, что нужно!

[MOV]

Есть еще такой контрол - Microsoft Script Control 1.0
А в нем функция Eval()

Так вот y=Eval("2+(18-6(7/2))*(5+7/2)") вернет то, что нужно!

Так вот люди мучаются, мучаются. Тут приоходит человек и все портиит . Только собрался написать просто для себя, а ты... теперь неинтересно.
А вообще классная штука. Мне понравилось. И столько времени сэкономил, а то бы сидел дурью маялся
А вот еще из этой же области что-то, но посложнее. Программа для отгадывания японских кроссвордов. (Я в голове то их невсегда разгадаю, а объяснить машине - вообще анус ). У кого-нибудь может есть исходник?

[MOV]

функция Eval() не может считать нечотные горни из отрицателных чисел!

Это фигня. Что мешает проверить выражение под корнем (на предмет четности и знака с помощью этого же Eval, потом прербразовать к положительному, если надо, и вычислять свой отрицательный корень, не забыв после поменять знак, т.к. корень из отрицательного - отрицательное, - ну ты понимаешь.

[EvilCoder]

<DELETE>

[#HammeR#]

Ну а зачем изобретать велосипед, создавая свой парсер?

[Faust]

2MOV: Про японские кроссворды можешь узнать много нового здесь.

[PUNK-GRUNGER]

Товарищи раскрыли тему и спасили жизнь утопающему Всем балшой спасиба и много виртуального пива хыхыхы