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

السلام عليكم
الرجاء المساعده فى لكي يظهر الناتج تلقائي فى تيكست بوكس رقم 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

(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

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

Rabeea Qbaha
جزاك الله خيرا تمام

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

Rabeea Qbaha
جزاك الله خيرا تمام

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