Расчет формулы записанной в виде строки

[Northwind]

Подскажите плз. Может быть есть такая функция
(не хочется самому писать) чтобы было примерно так:

Dim S as String
Dim I as Integer

S = "(5 + 5) / 2 - 3"
I = ФУНКЦИЯ(S)

Соответственно I = 2 после ее действия...
В справочнике не нашел, как написать представляю,
но если уже есть - зачем...

[Amed]

http://bbs.vbstreets.ru/viewforum.php?f=28

Там несколько топиков а-ля "Эвалютатор мат. выражений". Все готовенькое.

[Northwind]

Спасибо. Слово ЭВАЛЮТАТОР - было незнакомым (поиск по нему не делал)

[artful84]

Я сталкивался с похожей проблемой. Есть довольно хороший способ - использовать функцию eval из javascript. Для ее использования необходим MS Script Control. Если нужен пример, могу поискать.

[artful84]

Нашел пример - метод Симпсона для решения определенных инегралов с использованием MS SCript Control.

Код: Выделить всё


Option Explicit
Dim a As Double, b As Double, m As Integer
Dim h As Double
Dim x As Double
Dim sFun As String
Dim f As Double, n As Integer, i As Double

Private Sub cmdSol_Click()

On Error GoTo 100

f = 0
sFun = text1.Text

Dim strFunction As String

strFunction = "Function Eval(x)" & vbCrLf & " eval =" & text1.Text &_ vbCrLf & "End Function"

SCSimp.AddCode strFunction

a = CDbl(txtA.Text)
b = CDbl(txtB.Text)
m = CInt(txtM.Text)


     h = (b - a) / m / 2
     x = a
     f = SCSimp.Run("Eval", x)
     i = f: n = 0
10 x = x + h
     f = SCSimp.Run("Eval", x)
     i = i + 4 * f: n = n + 2
     If n = 2 * m Then GoTo 20
     x = x + h
     f = SCSimp.Run("Eval", x)
     i = i + 2 * f
     GoTo 10
20 x = b
     f = SCSimp.Run("Eval", x)
     i = (i + f) * h / 3
     txtSol.Text = Str(i)

Exit Sub

100 txtSol.Text = "Ошибка при решении. Проверьте данные"

End Sub


[Viper]

artful84, ты бы привел этот код в божеский вид перед тем как выложить. А то в этой жути без ящика пива не разберешься

[tyomitch]

Нашел пример - метод Симпсона для решения определенных инегралов с использованием MS SCript Control.

А я здесь выкладывал такой же пример, только без левых контролов -- через TLB...

[artful84]

artful84, ты бы привел этот код в божеский вид перед тем как выложить. А то в этой жути без ящика пива не разберешься

Гм... Первокурсники, которые VB первый раз видели, разобрались без ящика пива. Ладно, приведу.

[artful84]

А я здесь выкладывал такой же пример, только без левых контролов -- через TLB...

Ну не такой уж он и левый