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

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

استخدم هذه الدالة

(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) 


اعجبتني تسلم الايادي

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

اين يمكن ان اضع هذا الكود

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

اين يمكن ان اضع هذا الكود

كود :

Me.TextBox1.Text = calc(Me.TextBox1.Text)

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

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

(02-03-20, 05:58 PM)alsalamoni كتب : [ -> ]

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

اين يمكن ان اضع هذا الكود

كود :

Me.TextBox1.Text = calc(Me.TextBox1.Text)

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

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