منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - حمل اشاره حسابيه في متغير و تنفيذها

السلام عليكم اخوتي في الله

لدي سؤال احاول ان اجد له حل منذ شهر ولكني عجزت ، ما اريد ان اقوم به عمل داله لعمليات حسابيه بين طرفين و اريد عمل داله واحده وارسال الارقام لها مع العمليه الحسابيه مثل (الجمع او الطرح ...) وهنا تكمن المشكله

كيف استخدم المتغير للتعبير عن العلامه الحسابيه مثال :

result= a+b

result = a operation b

اريد ان يحمل المتغير operation العمليه وان تنفذ ان كانت جمع او طرح او غيره ...

شكرا جزيلا لكم جميعا

روان جلاجل ...

كود :

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

شكرا لكم جميعا بعد عمل متواصل وجدت افضل الحلول ساضعه للفائده

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

rawon

boudyonline

rawon