ايران ويج

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

مثلاً تو تکست باکس داری: 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)
ارور میده! یادم نیست چی می گفت. خودتون امتحان کنین. فکر کنم می گفت این تابع وجود نداره.

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

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

help meeeeee

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

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

دقیقا !

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

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