[alaqsa]

السلام عليكم


اخواني الكرام

انا لدي اربعه textbox

اريد ان اضعط ارقام في التكس بوك الاول والثاني والثالث

ويخرج الناتج مباشره في التكس بوكس الرابع الى هوه عباره عن جمع الثلاث ارقام

اتمنى وضع الكود الخاص به


وشكرا جزيلا لاكم

[3booody]

اذا اردت الناتج مع الكسور ضع هذا الكود

كود :

TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)

واذا اردت من غير كسور غير كلمات CDbl الى Cint

[alaqsa]

اخي الكريم عبوودي

اتمنى اخباري ان يتم وضع الكود هل في حدث laod

ام اين بالضبط لانه لم يعمل معي في حدث load

وشكرا جزيلا لك

[kslawy]

ضعه في في حدث الضغط علي زر أمر

[alaqsa]

اخي العزيز الكريم Kslawy

ولكن انا في برنامجي لا يوجد زر امر للجمع

انا اريد ان يجمع تلقائيا بمجرد وضع الرقم يقوم بالجمع

مباشره


اتمنى تكون الفكره وصلت

[3booody]

[COLOR="#800000"]اخي غير ممكن الجمع مباشرة عند كتابة الارقام لازم يكون في شرط معين مثلآ عند الضغط على إنتر او اذا كان رقم واحد او رقمين مثلآ
هذا الكود يتم تنفيذه عند الضغط على التكست رقم 4[/COLOR]

كود :

Private Sub TextBox4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.Click
        TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
    End Sub

[أسامة]

تعديل على كود الاخ 3booody اذا لم يمانع
اضف Timer واعمل Enabled = True
ثم اضف هذا الكود فى حدث التيمر

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            TextBox4.Text = ""
        Else
            TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
        End If
    End Sub

[3booody]

إقتباس :تعديل على كود الاخ 3booody اذا لم يمانع
اضف Timer واعمل Enabled = True
ثم اضف هذا الكود فى حدث التيمر

صح كلامك اخي لكن راح ينفذ الكود كثيرآ وبدون فائدة وشي ثاني بدل عبارة if هذا الكود اسهل

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
        Catch ex As Exception

        End Try
    End Sub

[alaqsa]

اخي الكريم عبوووود شكرا جزيلا لك


اخي العزيز والكريم اسامه

نعم

هذا ما اريده بالضبط

ولكن هناك مشكله بسيطه

هذا الكود يلزمك ان تقوم بتعبأت كل البيانات

فمثلا لو اردت ان اضيف في التيكس بوكس 1 والتكيس بوكس 2 ولا اريد اضافه اي قيمه في الثالثه فانه لا يقوم بالعمليه لانه احيانا تكون العمليه تحتوى على رقمين فتح اريد الجمع بينهم واحيانا ثلاثه

اتمنى اجد حل لهذه المشكله

[alaqsa]

اخي عبوود حتى الكود ال>ي وضعته نفس المشكله لا بد منت ادخال جميع القيم في المربعات

اتمنى ايجاد الحل

لكم كل الشكر