حمل اشاره حسابيه في متغير و تنفيذها - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : حمل اشاره حسابيه في متغير و تنفيذها (/showthread.php?tid=14649) |
حمل اشاره حسابيه في متغير و تنفيذها - rawon - 06-02-16 السلام عليكم اخوتي في الله لدي سؤال احاول ان اجد له حل منذ شهر ولكني عجزت ، ما اريد ان اقوم به عمل داله لعمليات حسابيه بين طرفين و اريد عمل داله واحده وارسال الارقام لها مع العمليه الحسابيه مثل (الجمع او الطرح ...) وهنا تكمن المشكله كيف استخدم المتغير للتعبير عن العلامه الحسابيه مثال : result= a+b result = a operation b اريد ان يحمل المتغير operation العمليه وان تنفذ ان كانت جمع او طرح او غيره ... شكرا جزيلا لكم جميعا روان جلاجل ... RE: حمل اشاره حسابيه في متغير و تنفيذها - boudyonline - 06-02-16 كود : Dim FirstNumber As Integer مثال آخر منقول : Function GetNum(ByVal txt As String) As Double On Error Resume Next If txt.Contains("+") Then Return CDbl(txt.Split("+")(0)) + CDbl(txt.Split("+")(1)) End If If txt.Contains("-") Then Return CDbl(txt.Split("-")(0)) - CDbl(txt.Split("-")(1)) End If If txt.Contains("*") Then Return CDbl(txt.Split("*")(0)) * CDbl(txt.Split("*")(1)) End If If txt.Contains("/") Then Return CDbl(txt.Split("/")(0)) / CDbl(txt.Split("/")(1)) End If End Function RE: حمل اشاره حسابيه في متغير و تنفيذها - rawon - 06-02-16 شكرا لكم جميعا بعد عمل متواصل وجدت افضل الحلول ساضعه للفائده |