script control

[محمد حسینی]

سلام
چطوری میشه توابعی رو که برنامه نویس مینویسه (Function) رو با script control اجرا کرد؟

[far_222000]

مثلاً تو تکست باکس داری: Sin(x)+cos(x)-1
به این صورت باید عمل کنی:
Dim k As ScriptControl
Set k = New ScriptControl
k.Language = "VBscript"
Y = k.Eval(Replace(UCase(Text1.Text), "X", X))
p1.PSet (X, Y), VBRed

[محمد حسینی]

منظورم این بود که توابعی که خود برنامه نویس مینویسه. اینطوری:
public function ABC (num as long)
....
....
end function
حالا اگه تو یه تکست باکس بنویسیم :
ABC(2)
بعد تو کد بنویسیم :
x = k.eval(text1.text)
ارور میده! یادم نیست چی می گفت. خودتون امتحان کنین. فکر کنم می گفت این تابع وجود نداره.

[hamed_Arfaee]

خوب شما اون دستورات داخل تابع رو بهش بده نه اینکه کل تابع رو

[محمد حسینی]

حامد جون من اینو برا اون برنامه DFS می خوام.مثلا خود ویژوال بیسیک که arc نداره. (یا چیزای دیگه). چند تا تابع از اینجا جور کردم. بعد با این مشکل برخوردم. توی تکست باکس کابر باید اون تابعی که می خواد رسم کنه رو بنویسه.(تابع تو تابع شد! ) مثلا باید بنویسه arc 2 . بعد برنامه arc رو بدست بیاره.

[محمد حسینی]

help meeeeee

[hamed_Arfaee]

چه فرقی داره باز هم میشه اطلاعات داخل تابع رو بفرستی
من که متوجه نمی شم
هر کاری که می خواهی تابع انجام بده با اون عدد همرو بفرست

[Iron_Fist]

ببینم شما می خوای تو یه تکست بنویسی مثلا jam(2,3) تو یه تکست
باکس دیگه برات بنویسه 5 ؟

[محمد حسینی]

دقیقا !

[Iron_Fist]

اگه می خوای من با توابع رشته ای می تونم درستش کنم
می خوای ؟

[محمد حسینی]

چرا نخوام!!
البته نمی دونم توابع رشته ای چی!