ايران ويج

سلام
من می خوام تو یه تکست باکس یه سری محاسبات ریاصی بنویسم. بعد اونا انجام بشن.
مثلا بنویسم (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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

کد: 
On Error Resume Next

    Label1 = CStr(ScriptControl1.Eval(Text1.Text))

محمد حسینی

محمد حسینی

Mamad2003

hamed_Arfaee

ashkan

Mamad2003

محمد حسینی

ashkan

ashkan

Darg

hamed_Arfaee