Программа должна уметь распознавать функции, записанные в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д