منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تجميع تلقائي - نسخة قابلة للطباعة

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

تجميع تلقائي - Halim2008 - 28-09-17

السلام عليكم 
الرجاء المساعده فى لكي يظهر الناتج تلقائي فى تيكست بوكس رقم 18 


Public Class Form9

        Dim Number1 As Integer 
        Dim number2 As Integer
        Dim number3 As Integer 
        Dim answer As Integer 

Private Sub TextBox18_TextChanged( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles TextBox18.TextChanged
        Number1 = TextBox9.Text
        number2 = TextBox11.Text
        number3= TextBox13.Text
        answer = TextBox18.Text

        answer = Number1*number2/100 + Number1+number3

End Sub
End Class

RE: تجميع تلقائي - Rabeea Qbaha - 28-09-17

(28-09-17, 03:58 PM)Halim2008 كتب : السلام عليكم 
الرجاء المساعده فى لكي يظهر الناتج تلقائي فى تيكست بوكس رقم 18 


Public Class Form9

        Dim Number1 As Integer 
        Dim number2 As Integer
        Dim number3 As Integer 
        Dim answer As Integer 

Private Sub TextBox18_TextChanged( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles TextBox18.TextChanged
        Number1 = TextBox9.Text
        number2 = TextBox11.Text
        number3= TextBox13.Text
        answer = TextBox18.Text

        answer = Number1*number2/100 + Number1+number3

End Sub
End Class

صديقي الكود الخاص قيك سوف يظهر الناتج عندما يقوم المستخدم بالكتابه في TextBox18 
لكن انت تريد ان يظهر الناتج في 18.
اما ان تضع الكود في textbox13.textchanged او يكون لديك كبسه لحساب المجموع و اظهاره في textbox18
اما بالنسبه للعمليه الحسابيه عليك اولا اعطاء الاولويات عن طريق الاقواس 
تفضل :

كود :
       number1 = TextBox9.Text
       number2 = TextBox11.Text
       number3 = TextBox13.Text
       answer = (((number1 * number2) / 100) + (number1 + number3))

       TextBox18.Text = answer


RE: تجميع تلقائي - Halim2008 - 28-09-17

جزاك الله خيرا ياأخي ما ظبط
Rabeea Qbaha
جزاك الله خيرا تمام

RE: تجميع تلقائي - Rabeea Qbaha - 28-09-17

(28-09-17, 04:22 PM)Halim2008 كتب : جزاك الله خيرا ياأخي ما ظبط
Rabeea Qbaha
جزاك الله خيرا تمام

هلا اخ حليم، لكن لم افهم هل حصلت على ما اردت ؟؟
هل نجحت الطريقه ؟؟