الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اعمل هذه الطريقة؟

مغلق
بدأه eslam31 في 24 مارس 2005 · 3 رد · 494 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

انا عامل 2 Text Box و 1 Lbale و ا Buton

عاوز ادخل قيمة فى كل من Text Box واضغط على Buton يجمع القميتين ويضعها فى Lbale

ومحتاج الكود

#2

جرب أخي هذا الكود

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
#3

السلام عليكم

فيه طريقتين يالغالي جربها

الطريقه الأولى

Lbale1.text = val(textbox1.text) + val(textbox2.text)

فائدة كلمة val هو التعامل مع النص الذي في مربع النص على انه قيمه لا نص

لأنه بدونها حين الجمع بدون وضع val سيكون ناتج جمع 2+3 = 32 ! مجرد إضافه فقط

لذا نستعين بكلمة val كي يتعامل ماداخل مربع النص على انه value قيمه

الثانيه

نفس طريقة اخي الغالي كريزي مان

#4

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

اشكر جدااا اخ 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

هذا الموضوع مغلق.

مواضيع مشابهة