جمع و ضرب جبری

[Mahdi-v]

درود بر اساتید گرامی که همیشه خوب جایی به داد آدم میرسن
دوستان عزیز یه سوال داشتم فرض کنید دو تکست باکس داریم یکی رو کاربر وارد میکنه 3m + 1 یکی رو وارد میکنه 4m + 2 میخوام همچین نمایشی از کاربر بگیر ه و اینا رو با زدن باتن جمع کنه متاسفانه این جور جمع ها رو تو ویژوال بیسیک بلد نیستم
خروجی : 3m + 1 + 4m+2 = 7m + 3

[Mahdi-v]

بهتره من سوالمو جور دیگری بپرسم :
فرض کنید تکست باکسی مکس لنسش یا همون بیشترین حروفی که حق ورود بهش دارن 5 باشه
چه طور میتونیم به سیسنتم حالی کنیم دو حرف اولو به عنوان m بشناسه 2 حرف دومو a بشناسه و الی آخر
که بعد بگیم قسمت m رو جمع بزن با قسمت m مثلا اون یکی تکست باکس

[sagggad]

درود بر اساتید گرامی که همیشه خوب جایی به داد آدم میرسن
دوستان عزیز یه سوال داشتم فرض کنید دو تکست باکس داریم یکی رو کاربر وارد میکنه 3m + 1 یکی رو وارد میکنه 4m + 2 میخوام همچین نمایشی از کاربر بگیر ه و اینا رو با زدن باتن جمع کنه متاسفانه این جور جمع ها رو تو ویژوال بیسیک بلد نیستم
خروجی : 3m + 1 + 4m+2 = 7m + 3
سلام
والا من سوال اولتون رو بهتر از توضیح دوم متوجه شدم !!! :گیج:
اگر میخواید براتون یه سورس بنویسم
البته برنامه خیلی پیچیده ای میشه

[Mahdi-v]

آگه وقت داری که واقعا ممنون میشم دمت گرم مینویسی ؟؟؟؟؟؟؟؟؟:قلب::قلب::قلب::قلب: :قلب:

[sagggad]

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


Dim n1, n2 As String
Dim s As String = TextBox1.Text
Dim chr As Char() = New Char(s.Length - 1) {}
chr = s.ToArray()
For i = 0 To chr.Length - 1
If i < chr.Length - 1 Then
If chr(i + 1) = "+" Or IsNumeric(chr(i + 1)) = True Then
n1 = Val(n1) + Val(chr(i))
Else
n2 = Val(n2) + Val(chr(i)) + Val(chr(i + 1)) & chr(i + 1)
End If
ElseIf i = chr.Length - 1 Then
If chr(i) = "+" Or IsNumeric(chr(i)) = True Then
n1 = Val(n1) + Val(chr(i))
Else
n2 = Val(n2) + Val(chr(i)) + Val(chr(i)) & chr(i)
End If
End If
MsgBox(n1 & "+" & n2 & " : حاصل جمع این دو عبارت جبری برابر است با")
موفق باشید

[Mahdi-v]

خودشه دمت گرم دیگه فهمیدم چه طوری بنویسم البته کد ها زیاد هم پیچیده نیستن:بامزه: :قلب::تشویق::تشویق::لبخند::بو� �:

[sagggad]

خودشه دمت گرم دیگه فهمیدم چه طوری بنویسم البته کد ها زیاد هم پیچیده نیستن:بامزه: :قلب::تشویق::تشویق::لبخند::بو� �:
آره دوست من
اما اگه بخوای برای اولین بار بنویسی واست خیلی خیلی پیچیده است (یعنی رو مخ من که خیلی فشار اومد):لبخند: