انجام عملیات ریاضی

[محمد حسینی]

سلام
من می خوام تو یه تکست باکس یه سری محاسبات ریاصی بنویسم. بعد اونا انجام بشن.
مثلا بنویسم (2+5)*4 و تو یه تکست باکس دیگه جواب این معلوم بشه
ممنون

[محمد حسینی]

انگار کسی بداد من نمیرسه ! خودم تا یه جاهایش رفتم
از کنترل Microsoft Script control به شکل زیر استفاده کردم

کد:

'General
    Dim intNum As Integer
'___________________________________

Private Sub Command1_Click()

    Dim strCode As String
    strCode = "intNum = " & Text1.Text
    MSC.AddCode strCode   ' MSC = a microsoft script control
    MsgBox intNum

End Sub

ولی نشد!! حالا اگه میشه اینو درستش کنین اگه نمیشه یه راه دیگه
من منتظرم

[Mamad2003]

عزیزم در لینک پایین هر چی خواستی هست :

http://deadline.3x.ro/vb6code_script_control.html

[hamed_Arfaee]

ایران ویج خودش منبع سورسه
http://iranvig.com/modules.php?name=News...le&sid=187

[ashkan]

ايران ويج خودش منبع هميناست ممد2003 چرا منبع جاي ديگه رو ميدي ;)

[Mamad2003]

اشکان جان شرمنده دیگه ! ایرانویج سروره ولی خوب اون لینک یه برنامه جالب بود گفتم بدم بد نباشه . نمی دونم چرا بعضی دوستان کم لطفی می کنن و از همه منابع موجود مثل سرچ همین سایت خودمون ، گوگل یا MSDN استفاده ای نمی کنن !
من از دوستان میخوام که در صورتیکه با یه مشکل برخورد کردند سعی کنند ابتدا به جستجو و بررسی مباحث و منابع موجود بپردازند و اگر راه حلی براش پیدا نکردند اینجا سوال مطرح کنند !

[محمد حسینی]

مشکل اینه که یه مدت من نمی تونم هیچ برنامه ای تو ایران ویج باز کنم.
میشه اونو یه جا برام آپلود کنی

راستش از این سر در نیاوردم http://deadline.3x.ro/vb6code_script_control.html
شاید هم منظورم رو نفهمیدین

[ashkan]

آقا بايستي الان درست شده باشه تمام برنامه ها بايد الان بتونن باز بشن
دليل مشكل رو هم تو تاپيك مربوطش ميگم.

[ashkan]

فقط قبلش همه صفحه هاي ايران ويج باز رو ببنديد و دوبار باز كنيد.

[Darg]

عزیزم در لینک پایین هر چی خواستی هست :

http://deadline.3x.ro/vb6code_script_control.html

دمت گرم ولی باسه من که فیلتره !!!

[hamed_Arfaee]

بیا اینم کداش :
    

کد:

On Error Resume Next
    Label1 = CStr(ScriptControl1.Eval(Text1.Text))