بله به صورت رشته هست..اون عبارت بصورت رشته هس؟
Dim lngPos As Integer
Dim num1, num2 As Integer
lngPos = InStr(Text1.Text, "+")
num1 = Val(Mid$(Text1.Text, 1, lngPos - 1))
num2 = Val(Mid$(Text1.Text, lngPos + 1, Len(Text1.Text)))
sumtxt.Text = num1 + num2
مرسی دوست عزیز...اول باید تشخص بدیم که + چندمین کاراکتر این رشته هست ، رشته ای که بعد از + هست عدد دوم و رشته ای که قبل از + هست عدد اول در نظر می گیرم .
بعد این دو تا رو باهم جمع می کنیم . کدش هم برات نوشتم
کد:Dim lngPos As Integer Dim num1, num2 As Integer lngPos = InStr(Text1.Text, "+") num1 = Val(Mid$(Text1.Text, 1, lngPos - 1)) num2 = Val(Mid$(Text1.Text, lngPos + 1, Len(Text1.Text))) sumtxt.Text = num1 + num2
دوست عزیز اگر این کد رو برای درس ساختمان داده ات میخوای فکر کنم الگوریتمی مخصوص خودش داشت و استادت روشی رو که من گفتم قبول نمی کنهمرسی دوست عزیز...
حالا من میخوام حاصل عبارتی رو پیدا کنم که در آن عملگرهای + و - و * و / قرار دادند ...ضمن رعایت اولویت عملگرها...ممنون میشم این کد رو هم بهم بدین...
باشه ممنونم ازت...دوست عزیز اگر این کد رو برای درس ساختمان داده ات میخوای فکر کنم الگوریتمی مخصوص خودش داشت و استادت روشی رو که من گفتم قبول نمی کنه
اما اگر برای کار شخصی خودت میخوای یه کوچولو فرصت بده ، دیشب نخوابیدم الان توانایی فکر کردن ندارم ، اسونه حلش می کنیم
داداش ببخش دیر شدباشه ممنونم ازت...
برای کار شخصی خودم میخوام....من درسم تموم شده
MsgBox ScriptControl1.Eval("5 + 10*2*2")