تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سوال على الحاسبة
#1
السلام عليكم 
لو سمحتو  اشتي افعل مشروع  حاسبة  في الفيجول بيسك بحيث يكون فيها تكست بوكس واحد فقط نكتب فيه العمليات الحسابية  ويطلع الاجابة في نفس التكست بوكس   مع مراعات الاولويات في العمليات الحساب مثال(    3*4+5-8(3+5)-8    )كل هاذا الارقام والاشارات تطهر في التكست بوكس ثم يمتسح الارقام وتظهر الاجابه Heart
الرد }}}
تم الشكر بواسطة: alshandodi
#2
استخدم هذه الدالة
PHP كود :
Private Function calc(formula As String) As Double
    
Try
        
Dim obj As Object CreateObject("ScriptControl")
        
obj.Language "VBSCRIPT"
        
Return obj.Eval(formula)
    Catch 
ex As Exception
        MsgBox
(ex.Message)
    
End Try
End Function 

PHP كود :
Me.TextBox1.Text calc(Me.TextBox1.Text
الرد }}}
#3
(18-10-16, 12:10 AM)mhmd_911 كتب : استخدم هذه الدالة
PHP كود :
Private Function calc(formula As String) As Double
    Try
        Dim obj 
As Object CreateObject("ScriptControl")
 
       obj.Language "VBSCRIPT"
 
       Return obj.Eval(formula)
 
   Catch ex As Exception
        MsgBox
(ex.Message)
 
   End Try
End Function 

PHP كود :
Me.TextBox1.Text calc(Me.TextBox1.Text
اعجبتني تسلم الايادي
                                                        Heart سبحان الله والحمد لله ولا اله الا الله والله اكبر  Heart
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
السلام عليكم ورحمة الله وبركاته 

اين يمكن ان اضع هذا الكود
كود :
Me.TextBox1.Text = calc(Me.TextBox1.Text)
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#5
(02-03-20, 07:54 AM)alshandodi كتب : السلام عليكم ورحمة الله وبركاته 

اين يمكن ان اضع هذا الكود
كود :
Me.TextBox1.Text = calc(Me.TextBox1.Text)

ممكن وضعه في زر اسمه =
الرد }}}
تم الشكر بواسطة: alshandodi , ابراهيم ايبو
#6
تفضل هذا مثال عما تريد :


الملفات المرفقة
.zip   WindowsApplication3.zip (الحجم : 466.61 ك ب / التحميلات : 29)
الرد }}}
تم الشكر بواسطة: alshandodi , Taha Okla
#7
(02-03-20, 05:58 PM)alsalamoni كتب :
(02-03-20, 07:54 AM)alshandodi كتب : السلام عليكم ورحمة الله وبركاته 

اين يمكن ان اضع هذا الكود
كود :
Me.TextBox1.Text = calc(Me.TextBox1.Text)

ممكن وضعه في زر اسمه =
يمكن وضعه في زر كومونذ مثلا   Button
الرد }}}
تم الشكر بواسطة:



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


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