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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=9884)

الصفحات: 1 2

جمع الارقام - @@أبورائد@@ - 01-08-13


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




أشكر الجميع ولدي طريقة أخرى تشبه أول مشاركة لأخي عبودي

PHP كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged
    Me.TextBox4.Text = Val(Me.TextBox1.Text) + Val(Me.TextBox2.Text) + Val(Me.TextBox3.Text)
End Sub 

لاحظ
Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged



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

جمع الارقام - 3booody - 01-08-13

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




أشكر الجميع ولدي طريقة أخرى تشبه أول مشاركة لأخي عبودي

PHP كود :
private sub textbox1_textchanged(byval sender as system.object, byval e as system.eventargs) handles textbox1.textchanged, textbox2.textchanged, textbox3.textchanged
    me.textbox4.text = val(me.textbox1.text) + val(me.textbox2.text) + val(me.textbox3.text)
end sub 

لاحظ
handles textbox1.textchanged, textbox2.textchanged, textbox3.textchanged



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

شكرآ لهذا
أعجبني هذا

جزاك الله خيرآ وجعله بميزان حسناتك

جمع الارقام - alaqsa - 01-08-13

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


اخي الكريم أبو رائد كم انت رائع

لقد عمل الكود بشكل سليم

اسال الله تعالى ان يبارك لك في عمرك وان يزيد رزقك

الف الف شكر لك

جمع الارقام - @@أبورائد@@ - 01-08-13

alaqsa كتب :اخواني الكرام شكرا جزيلا لكم


اخي الكريم أبو رائد كم انت رائع

لقد عمل الكود بشكل سليم

اسال الله تعالى ان يبارك لك في عمرك وان يزيد رزقك

الف الف شكر لك


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






لو لاحظت أنني استفدت من كود 3booody فهو وفر عليّ الجهد فقط عدلت تعديل بسيط

وأنا سعيد بتفاعل بقية الأعضاء فلهم الشكر أيضاً





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

جمع الارقام - alaqsa - 01-08-13

طبعا اخي الكريم أبو رائد فلك وللاخ عبود وكذلك الاخ اسامه كل الشكر فانا تلميذ اتعلم منكم

جمع الارقام - alaqsa - 01-08-13

اخي ابو رائد والاخوان اتنمى الاطلاع على هذا الموضوع

http://vb4arb.com/vb/showthread.php?6638-%C7%DF%CB%D1-%E3%E4-%D3%CC%E1-%E3%DA-%C7%E1%CA%DF%D1%C7%D1/page2

جمع الارقام - أسامة - 01-08-13

3booody كتب :صح كلامك اخي لكن راح ينفذ الكود كثيرآ وبدون فائدة وشي ثاني بدل عبارة 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
صح اخى اعتقد ان هذا الكود افضل لا يطلب اتخال الارقام فى جميع التكست بوكس
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            If TextBox3.Text = "" Then
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
            ElseIf TextBox2.Text = "" Then
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox3.Text)
            ElseIf TextBox1.Text = "" Then
                TextBox4.Text = CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
            Else
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
            End If
        Catch ex As Exception

        End Try
    End Sub

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

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

لكم كل الشكر
تفضل اخى
كود :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            If TextBox3.Text = "" Then
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text)
            ElseIf TextBox2.Text = "" Then
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox3.Text)
            ElseIf TextBox1.Text = "" Then
                TextBox4.Text = CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
            Else
                TextBox4.Text = CDbl(TextBox1.Text) + CDbl(TextBox2.Text) + CDbl(TextBox3.Text)
            End If
        Catch ex As Exception

        End Try
    End Sub
تم الاجابة فى هذا الموضوع http://vb4arb.com/vb/showthread.php?...D1%C7%D1/page2 ارجو ان يكون هذا هو المطلوب
استخدم كود @@أبورائد@@ فانه افضل بكثير

جمع الارقام - أسامة - 01-08-13

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




أشكر الجميع ولدي طريقة أخرى تشبه أول مشاركة لأخي عبودي

PHP كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged
    Me.TextBox4.Text = Val(Me.TextBox1.Text) + Val(Me.TextBox2.Text) + Val(Me.TextBox3.Text)
End Sub 

لاحظ
Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged



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

اسف اخى @@أبورائد@@ لم اى مشاركتك

جمع الارقام - @@أبورائد@@ - 01-08-13

أسامة كتب :اسف اخى @@أبورائد@@ لم اى مشاركتك


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






أعلم ذلك أخي أسامة بارك الله فيك وزادك خلقاً،
وتحصل معي إذا كان للموضوع أكثر من صفحة فلا أنتبه لما بعد الصفحة الأولى.





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

جمع الارقام - أسامة - 01-08-13

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته






أعلم ذلك أخي أسامة بارك الله فيك وزادك خلقاً،
وتحصل معي إذا كان للموضوع أكثر من صفحة فلا أنتبه لما بعد الصفحة الأولى.





السلام عليكم ورحمة الله وبركاته
شكرآ لك اخى ابورائد بارك الله فيك