السلام عليكم ورحمة الله وبركاته
انا عامل 2 Text Box و 1 Lbale و ا Buton
عاوز ادخل قيمة فى كل من Text Box واضغط على Buton يجمع القميتين ويضعها فى Lbale
ومحتاج الكود
السلام عليكم ورحمة الله وبركاته
انا عامل 2 Text Box و 1 Lbale و ا Buton
عاوز ادخل قيمة فى كل من Text Box واضغط على Buton يجمع القميتين ويضعها فى Lbale
ومحتاج الكود
جرب أخي هذا الكود
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim N1 As Integer = TextBox1.Text Dim N2 As Integer = TextBox2.Text Label1.Text = N1 + N2 End Sub
السلام عليكم
فيه طريقتين يالغالي جربها
الطريقه الأولى
Lbale1.text = val(textbox1.text) + val(textbox2.text)
فائدة كلمة val هو التعامل مع النص الذي في مربع النص على انه قيمه لا نص
لأنه بدونها حين الجمع بدون وضع val سيكون ناتج جمع 2+3 = 32 ! مجرد إضافه فقط
لذا نستعين بكلمة val كي يتعامل ماداخل مربع النص على انه value قيمه
الثانيه
نفس طريقة اخي الغالي كريزي مان
السلام عليكم ورحمة الله وبركاته
اشكر جدااا اخ crazy-man و حــ@ـــد الطريقتين شغالين كويس جداااا
بالاضافة الى هذا الكود
Label1.Text = cint(TextBox1.Text) + cint(TextBox2.Text )
لكن سوالى ما الفرق بين الثلاث اكود؟
Lbale1.text = val(textbox1.text) + val(textbox2.text)
Dim N1 As Integer = TextBox1.Text Dim N2 As Integer = TextBox2.Text Label1.Text = N1 + N2
هذا الموضوع مغلق.