Программа должна уметь распознавать функции, записанные в TextBox - VB

Формулировка задачи:

При запуске формы выводится пустой picturebox, кнопка и textbox. Вводим в textbox функцию, например sin(x), нажимаем кнопку, появляется синусоида. Я знаю всё, кроме как сделать так, что бы VB считывал функцию из textbox. вот кусок кода

                    Листинг программы
                
For x = -10 To 10 Step 0.001
If Text1.Text <> "" Then Picture1.PSet (x, ?), vbRred
Next x

Что вставить вместо "?"? Заранее благодарен!

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы