| Вопрос: >> Текст в качестве КОДА << | Добавлено: 15.11.05 15:03 |
Автор вопроса:  AgentFire | ICQ: 192496851 |
| Ответы | Всего ответов: 24 |
|
Номер ответа: 16 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #16 | Добавлено: 16.11.05 19:57 |
|
Спасибо, Игось. Сейчас буду разбераться.
To others: да мне не нужно еще один ВБ компилятор писать! у меня есть переменная Х, которая изменяется по заданной формуле (напр. x^2+x*3-8) и у меня есть Y, который должен принимать значения, получаемые в результате решения формулы! |
||
|
Номер ответа: 17 Автор ответа: Barsik Разработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #17 | Добавлено: 16.11.05 20:16 |
| парсить? | ||
|
Номер ответа: 18 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #18 | Добавлено: 16.11.05 22:54 |
|
у меня есть переменная Х, которая изменяется по заданной формуле (напр. x^2+x*3-8) сорри, выразился неправильно 
...у меня есть переменная Х и есть формула, использую которую Y должен принимать значения... |
||
|
Номер ответа: 19 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #19 | Добавлено: 17.11.05 01:48 |
| тогда тебе ScriptContol в самый раз | ||
|
Номер ответа: 20 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #20 | Добавлено: 17.11.05 15:34 |
| но переменные X и Y объяылены в самой моей среде разроботки! че мне писать? | ||
|
Номер ответа: 21 Автор ответа: VictorICQ: 345743490 Вопросов: 42 Ответов: 385 |
Web-сайт: Профиль | | #21 | Добавлено: 18.11.05 00:26 |
|
А я такой модуль сам делал. Для исполнения скриптиков. Но он не очень-то удобен, к тому же работает жутко медленно. И строк там нет. Но я юзаю, так как контролы подключать не хочу - их вместе с проектом таскать приходится.
Могу кинуть, но мне неохота вырезать оттуда все функции, относящиеся к тому проекту, к которому он разрабатывался. |
||
|
Номер ответа: 22 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #22 | Добавлено: 18.11.05 13:07 |
|
Если самым тупым методом, то
Option Explicit Dim MSC As New ScriptControl Private Sub Form_Load() MSC.Language = "VBScript" MsgBox EvalFormula(15, 10, "sin(x)*5 + cos(y)"
End Sub Private Function EvalFormula(X, Y, Formula) As Variant MSC.AddCode "X=" & X & vbCrLf & "Y=" & Y & vbCrLf EvalFormula = MSC.Eval(Formula) End Function |
||
|
Номер ответа: 23 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #23 | Добавлено: 18.11.05 18:42 |
таааак... 
я воде все сделал, но у меня теперь тип double не пашет... Private Function EvalFormula(X As Double, Formula As String) As Double
все получается такими квадратиками... SC.AddCode "X = " & X & vbCrLf EvalFormula = SC.Eval(Formula) End Function Y = EvalFormula(X, "sin(X)"
|
||
|
Номер ответа: 24 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #24 | Добавлено: 18.11.05 19:03 |
| Говорил же - никаких типов! Только Variant! Скрипты других не знают. | ||