Графики функций

[serix]

На сайте vbstreets в faq'ах где-то была статейка про построение графиков функций, примерно это было так:
Private Function FGraph(x as double)
Fgraph = x^3+x^2+1
End Function

Private sub Form_Load()
for x=-10 to 10 do
Picture1.pset x,FGraph(x)
next x
End Sub
Че то я здесь не записал, т.к. сайт vbstreets у меня не грузится.
А проблема в том, что функцию можно задать только в процессе разработки, а вот как-бы это сделать при выполнении проги??
Псибо...

[RayShade]

Я советую делать так:

Используй Microsoft Script Control. В него можно в процессе выполнения запихать любой код и исполнять его там же.

Примерно так:

Код: Выделить всё

Private Function FGraph(x as double) as double
Dim obj As ScriptControl
Dim m As Module
Set obj = New ScriptControl
obj.Language = "VBScript"
Set m = obj.Modules.Add("NewModule")
m.AddCode ("function MyFunc (v as double ) as double " & vbcrlf & " myfunc = v*2" & vbcrlf & " end function") 'тут ты динамически можешь подставлять любую функцию, какую надо.
FGraph = m.Run("MyFunc", x)
Set m = Nothing
Set obj = Nothing
end function

[serix]

Спасибо, попробую...

[serix]

Вот правильный листинг проги, если кому надо:

(Form1,mnuDraw) – необходимые части содержимого формы

Function Example(ByVal x As Single)
y = x ^ 3 - 12 * x ^ 2 + 3 ^ x
Debug.Print y
Example = y
End Function

Private Sub Form_Resize()
Refresh
End Sub

Private Sub mnuDraw_Click()
Form1.BackColor = &H80000009
DrawWidth = 2
Scale (-10, 200)-(10, -200)
Form1.ForeColor = &H0&
Line (-10, 0)-(10, 0)
Line (0, -200)-(0, 200)
DrawWidth = 1
Form1.ForeColor = &HFF&
For x = -10 To 10 Step 0.01
Line -(x, Example(x))
Next
End Sub

[Ronin]

Если надо, могу дать исходник, я раньше такую писал... Качайте на здоровье!