| Вопрос: Построение графика | Добавлено: 14.01.08 17:18 |
Автор вопроса:  Сергей
|
| Я строю так - PSet (X, F(X)). Как сделать что-бы пользователь смог сам набрать, пусть в тестбоксе, нужную ему функцию ? Т.е. как добится того, чтобы прога "поняла" что набранное пользователем X^2 не просто строка, а что это еще рассчитать нужно ? |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 14.01.08 22:57 |
| парсер надо писать, товарищ, парсер... | ||
|
Номер ответа: 2 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 14.01.08 22:59 |
| Польская инверсная запись поможет тебе, падаван юный, полагаю я. | ||
|
Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 14.01.08 23:02 |
| безусловно, поможет. почитай по теме | ||
|
Номер ответа: 4 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #4 | Добавлено: 14.01.08 23:46 |
|
оххх...
Одна фраза: Mathieu Math Parser И одна ссылка: http://www.codeproject.com/KB/recipes/MathieuMathParser.aspx?df=100&forumid=59609&exp=0&select=2173221 |
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 16.01.08 01:01 |
|
Script Control
.Eval |
||
|
Номер ответа: 6 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108 |
Web-сайт: Профиль | | #6 | Добавлено: 16.01.08 07:19 |
|
Надо текстбокс,листбокс,лэйбэл и две кнопки
Вариант этот очень рискованый так как опирается на сам Visual Basic Option Compare Text Option Explicit Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long ' For VB5 IDE 'Declare Function EbExecuteLine Lib "vba5 .dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long ' FOR Access 97 /VBE.dll clients like Word 97 and Excel 97 'Declare Function EbExecuteLine Lib "vba332 .dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long Function FExecuteCode(stCode As String, Optional fCheckOnly As Boolean) As Boolean FExecuteCode = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(fCheckOnly)) = 0 End Function Private Sub Command1_Click() Dim help As String help = "Введи команду языка VB,VBA нажми Enter" + vbNewLine + _ "Если ты все верно набрал то комманда выполнится" MsgBox help, vbInformation, "Execute project" End Sub Private Sub Command2_Click() 'List1.Clear 'Dim res As Boolean 'Dim code() As String 'Dim i As Long 'code = Split(Text1.Text, vbNewLine) 'For i = LBound(code) To UBound(code) 'res = FExecuteCode(code(i)) 'If res Then List1.AddItem "True" Else List1.AddItem "False" 'Next Dim txt As String txt = "hj=" + Text1.Text FExecuteCode (txt) txt = "msgbox(hj)" FExecuteCode (txt) End Sub |
||
|
Номер ответа: 7 Автор ответа: BonapartICQ: 175256 Вопросов: 32 Ответов: 108 |
Web-сайт: Профиль | | #7 | Добавлено: 16.01.08 07:22 |
| листбокс не нужен если не раскоментировать Command2_Click | ||
Страница: 1 |