منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] سوال على الحاسبة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] سوال على الحاسبة (/showthread.php?tid=17699)



سوال على الحاسبة - عفيف الاثوري - 17-10-16

السلام عليكم 
لو سمحتو  اشتي افعل مشروع  حاسبة  في الفيجول بيسك بحيث يكون فيها تكست بوكس واحد فقط نكتب فيه العمليات الحسابية  ويطلع الاجابة في نفس التكست بوكس   مع مراعات الاولويات في العمليات الحساب مثال(    3*4+5-8(3+5)-8    )كل هاذا الارقام والاشارات تطهر في التكست بوكس ثم يمتسح الارقام وتظهر الاجابه Heart


RE: سوال على الحاسبة - mhmd_911 - 18-10-16

استخدم هذه الدالة
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



RE: سوال على الحاسبة - العواد الصغير - 18-10-16

(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
اعجبتني تسلم الايادي


RE: سوال على الحاسبة - alshandodi - 02-03-20

السلام عليكم ورحمة الله وبركاته 

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



RE: سوال على الحاسبة - alsalamoni - 02-03-20

(02-03-20, 07:54 AM)alshandodi كتب : السلام عليكم ورحمة الله وبركاته 

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

ممكن وضعه في زر اسمه =


RE: سوال على الحاسبة - asemshahen5 - 03-03-20

تفضل هذا مثال عما تريد :


RE: سوال على الحاسبة - الخير19 - 03-01-24

(02-03-20, 05:58 PM)alsalamoni كتب :
(02-03-20, 07:54 AM)alshandodi كتب : السلام عليكم ورحمة الله وبركاته 

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

ممكن وضعه في زر اسمه =
يمكن وضعه في زر كومونذ مثلا   Button