Как можно динамически создать функцию (формулу) в процессе работы программы?, для отображения графика функции. Типа синтаксическая разборка строки ввденной пользавателем???
Заранее благодарен.
Ввод функций???
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 8
• Страница 1 из 1
- _Vasya
- Новичок
- Сообщения: 30
- Зарегистрирован: 28.02.2004 (Сб) 21:21
Ввод функций???
_Vasya » 05.04.2004 (Пн) 16:56
- _Мика_
- Гуру
- Сообщения: 1459
- Зарегистрирован: 24.10.2003 (Пт) 15:05
- Откуда: г. Москва, м.Речной вокзал
_Мика_ » 05.04.2004 (Пн) 20:52
Используй оператор MID проверяй каждый символ предположим в текстбоксе, затем смотриш если цифра кидаеш в какунить переменную
если степень то тоже итд итп какроче геморой
если степень то тоже итд итп какроче геморой
-Папа, а правда, что форумы делают людей дибилами?
-гы гы гы, сынок, лол!
-гы гы гы, сынок, лол!
- Vi
- Постоялец
- Сообщения: 739
- Зарегистрирован: 25.01.2002 (Пт) 11:03
- Откуда: Россия, Ижевск
Vi » 07.04.2004 (Ср) 13:14
А чем Script Control не нравится?
- Код: Выделить всё
' ScriptControl1 Text1 Text2
Private Sub Form_Click()
With ScriptControl1
.AddCode "Function F(X)" & vbCrLf & "F=" & Text1.Text & vbCrLf & "End Function"
Text2.Text = .Eval("F(" & CStr(2) & ")")
End With
End Sub
Private Sub Form_Load()
Text1.Text = "x*x+1"
Text2.Text = ""
With ScriptControl1
.Language = "VBScript"
.AddObject "Me", Me, True
End With
End Sub
Vita
Выше головы не прыгнешь, ниже земли не упадешь, дальше границы не убежишь! (с) КВН
Выше головы не прыгнешь, ниже земли не упадешь, дальше границы не убежишь! (с) КВН
Сообщений: 8
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, PetalBot и гости: 16