Программа должна уметь распознавать функции, записанные в TextBox - VB
Формулировка задачи:
При запуске формы выводится пустой picturebox, кнопка и textbox. Вводим в textbox функцию, например sin(x), нажимаем кнопку, появляется синусоида. Я знаю всё, кроме как сделать так, что бы VB считывал функцию из textbox.
вот кусок кода
Что вставить вместо "?"?
Заранее благодарен!
Решение задачи: «Программа должна уметь распознавать функции, записанные в TextBox»
textual
Листинг программы
Private Sub Command1_Click()
Set objScript = CreateObject("MSScriptControl.ScriptControl")
objScript.Language = "VBScript"
On Error Resume Next
objScript.AddCode ("Function UserFunc(x)" & _
"UserFunc = " & Text1.Text & _
"End Function")
If Err Then MsgBox "Неверный синтаксис функции!": Exit Sub
For x = -10 To 10 Step 0.001
' Debug.Print x, objScript.Run("UserFunc", x)
Picture1.PSet (x * 1000, 2000 + 1000 * objScript.Run("UserFunc", x)), vbRred
Next x
End Sub