VBNet - Форум - Построение графика

Вопрос: Построение графика Добавлено: 14.01.08 17:18

Автор вопроса: Сергей

Я строю так - PSet (X, F(X)). Как сделать что-бы пользователь смог сам набрать, пусть в тестбоксе, нужную ему функцию ? Т.е. как добится того, чтобы прога "поняла" что набранное пользователем X^2 не просто строка, а что это еще рассчитать нужно ?
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| Цитата \| #1	Добавлено: 14.01.08 22:57
	парсер надо писать, товарищ, парсер... Ответить

Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| Цитата \| #2	Добавлено: 14.01.08 22:59
	Польская инверсная запись поможет тебе, падаван юный, полагаю я. Ответить

Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| Цитата \| #3	Добавлено: 14.01.08 23:02
	безусловно, поможет. почитай по теме Ответить

Номер ответа: 4 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| Цитата \| #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-сайт: team16.tut.su Профиль \| Цитата \| #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 Автор ответа: Bonapart ICQ: 175256 Вопросов: 32 Ответов: 108	Web-сайт: team16.tut.su Профиль \| Цитата \| #7	Добавлено: 16.01.08 07:22
	листбокс не нужен если не раскоментировать Command2_Click Ответить

Страница: 1 |