Программа должна уметь распознавать функции, записанные в 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы