+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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
Dim SecondNumber As Integer
Dim Operation As Integer
Select Case Operation
Case 1
add(FirstNumber, SecondNumber)
Case 2
multiply(FirstNumber, SecondNumber)
Case 3
subtract(FirstNumber, SecondNumber)
Case 4
divide(FirstNumber, SecondNumber)
End Selectمثال آخر منقول :
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
شكرا لكم جميعا بعد عمل متواصل وجدت افضل الحلول ساضعه للفائده