Сообщество Чайников

Вопрос

Хочу построить простой график функции (например y=2↑x+3 или другой) На форме у меня picture1, command1, text1(ввожу в textbox например x↑2+3, но так ничего неполучается. У меня только получается, когда я функцию записываю в код(в цикл y=x↑2+3), но хочется сделать, чтобы функция считывалась из textboxa.

Ответ

Насколько я понял, вся проблема упирается в получение значения произвольной формулы. Так вот, можно подключить Ексель, а у него есть функция Evaluate — т.е. можно сделать так:

Dim XL as new Excel.Application
Dim res as Double
Dim i as integer
Dim s as string

For i=-20 to 20
    s=Replace(Text1.Text, "zzz", Str(i))
    res=XL.Evaluate(s)
    …
Next

Для этого надо поставить Ексель и подключить его в Project — References… Также нужно вместо переменной использовать одно и то же сочетание (в примере — ZZZ), чтобы реплейс корректно срабатывал. Хотя можно и еще один текстбокс с именем переменной…

Рязанов Андрей

На http://www.vb.kiev.ua/code/math множество графопостроителей и вычислителей выражений.

Артем Кривокрисенко