تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حمل اشاره حسابيه في متغير و تنفيذها
#1
السلام عليكم اخوتي في الله

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


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


result= a+b

result = a   operation b 

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



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

روان جلاجل ...
الرد }}}}
تم الشكر بواسطة:
#2
كود :
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
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم أختي العزيزة ورحمة الله وبركاته

الكود :
PHP كود :
Public Function Total(No1 As IntegerMyOperator As StringNo2 As Integer) As Integer

        Dim nTotal 
As Integer

        Select 
Case MyOperator
            
Case "+"
                
nTotal = (No1 No2)
            Case 
"-"
                
nTotal = (No1 No2)
            Case 
"*"
                
nTotal = (No1 No2)
            Case 
"/"
                
nTotal = (No1 No2)
        
End Select

        
Return nTotal

    End 
Function 
أتمنى لك التوفيق

الأكواد :
الوظيفة :
PHP كود :
Public Function Total(Num1 As IntegerMyOPerator As StringNum2 As Integer) As Integer
        Dim nTotal 
As Integer
      
        Select 
Case MyOPerator
            Case 
"+"
 
               nTotal Num1 Num2

            Case 
"-"
 
               nTotal Num1 Num2

            Case 
"*"
 
               nTotal Num1 Num2

            Case 
"/"
 
               nTotal Num1 Num2

        End Select

        Return nTotal

    End 
Function 

تحديد المعامل :
PHP كود :
 Private Sub btnAdd_Click(sender As ObjectAs EventArgsHandles btnAdd.ClickbtnSubtract.ClickbtnMultiply.ClickbtnDivision.Click
        txtOperator
.Text sender.text
        txtNum2
.Focus()
 
   End Sub 

النتيجة :
PHP كود :
Private Sub btnEqual_Click(sender As ObjectAs EventArgsHandles btnEqual.Click
       
        Try
            Dim tot 
As Integer
            If String
.IsNullOrWhiteSpace(txtOperator.TextThen

                MsgBox
("No Operator Found")

 
               txtNum1.Clear()
 
               txtNum2.Clear()
 
               txtNum1.Focus()

 
               Return
            End 
If

 
           tot Total(txtNum1.TexttxtOperator.TexttxtNum2.Text)
 
           txtSum.Text tot

        Catch ex 
As Exception
            MsgBox
(ex.Message)
 
       End Try
 
   End Sub 

الصور :
   

المرفق :
.rar   khodor1985 - CalFunction.rar (الحجم : 74.05 ك ب / التحميلات : 5)
أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة:
#4
شكرا لكم جميعا بعد عمل متواصل وجدت افضل الحلول ساضعه  للفائده
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  فكره اريد تنفيذها medoddd 5 180 13-09-16, 03:39 AM
آخر رد: silverlight
  [VB.NET] كيف يتم اعطاء متغير قيمه يختارها المتسخدم ؟ jassim316 5 173 19-08-16, 08:40 PM
آخر رد: أسامة السالمي
  [VB.NET] كيفية وضع connection string متغير فيي target برنامج؟ Incubus 12 368 16-07-16, 12:58 PM
آخر رد: الوادي
  كيف اسوي متغير عام لكل الفورمات .. starosta 2 303 11-05-15, 10:44 AM
آخر رد: starosta
  أخذ قيم اكثر من 30 متغير ووضعها ادخل مصفوفة silverlord 0 278 22-03-15, 01:20 AM
آخر رد: silverlord
  [VB.NET] سؤال : كيف اضم عدد صحيح الى نص لكي ينتج متغير جديد سبق تعريفه Fantastico 5 679 19-01-15, 06:28 PM
آخر رد: mohamdser
  إضافة بيانات من متغير الى الداتا قريد aftfm 1 594 01-05-14, 02:54 PM
آخر رد: aftfm
  [سؤال] انشاء متغير في الـ Settings من نوع خاص ali.alfoly 8 1,369 25-01-14, 06:38 PM
آخر رد: ali.alfoly
  [سؤال] كيف نحذف السطر الجديد من متغير ممتليء بالنصوص سعود 2 498 26-10-13, 03:41 AM
آخر رد: سعود
  [سؤال] هل يمكن اضافة حدث الى متغير من نوع Integer سعود 2 512 25-10-13, 10:48 AM
آخر رد: @@أبورائد@@

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم