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

السلام عليكم
اخواني رجاء مساعدة في حل هذه المسالة بارك الله فيكم
عندي 10 تاكسات بوكس من 1 الى 10
و عندي 10 تاكسات بوكس من 11 الى 20
اريد لما اكتب رقم في تاكست بوكس 1 .. الرقم يلي كتبته ينضرب تلقائي في العدد 4 و تظهر النتيجة في التاكست بوكس 11
لما اكتب رقم في تاكست بوكس 2 .. الرقم يلي كتبته ينضرب تلقائي في العدد 5 و تظهر النتيجة في التاكست بوكس 12
لما اكتب رقم في تاكست بوكس 3 .. الرقم يلي كتبته ينضرب تلقائي في العدد 6 و تظهر النتيجة في التاكست بوكس 13
لما اكتب رقم في تاكست بوكس 4 .. الرقم يلي كتبته ينضرب تلقائي في العدد 7 و تظهر النتيجة في التاكست بوكس 14
لما اكتب رقم في تاكست بوكس 5 .. الرقم يلي كتبته ينضرب تلقائي في العدد 8 و تظهر النتيجة في التاكست بوكس 15
لما اكتب رقم في تاكست بوكس 6 .. الرقم يلي كتبته ينضرب تلقائي في العدد 9 و تظهر النتيجة في التاكست بوكس 16
لما اكتب رقم في تاكست بوكس 7 .. الرقم يلي كتبته ينضرب تلقائي في العدد 10 و تظهر النتيجة في التاكست بوكس 17
لما اكتب رقم في تاكست بوكس 8 .. الرقم يلي كتبته ينضرب تلقائي في العدد 11 و تظهر النتيجة في التاكست بوكس 18
لما اكتب رقم في تاكست بوكس 9 .. الرقم يلي كتبته ينضرب تلقائي في العدد 12 و تظهر النتيجة في التاكست بوكس 19
لما اكتب رقم في تاكست بوكس 10 .. الرقم يلي كتبته ينضرب تلقائي في العدد 13 و تظهر النتيجة في التاكست بوكس 20
يوجد ملف مرفق لشرح العمية و لكم كل الشكر

وعليكم السلام و رحمة الله و بركاته
هذا مثال للتكست بوكس الاول
بمكنك اكمال مشروعك بنفس الطريقة للتكستات الباقية
استعملت

PHP كود :

Public Class Form1
    Public Sub OnlyNumbers(e As KeyPressEventArgs)
        If Char.IsDigit(e.KeyChar) = False And AscW(e.KeyChar) <> 8 Then
            e.Handled = True
        End If
    End Sub
    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        OnlyNumbers(e)
    End Sub
    Private Sub TextBox1_Leave(sender As Object, e As EventArgs) Handles TextBox1.Leave
        TextBox11.Text = Val(TextBox1.Text) * 4
    End Sub
End Class 

في هذا المثال كود قد طرحه احد الاخوة مشكور في موضوع آخر

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

جرب هذا الكود ...

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _

                            Handles TextBox1.TextChanged, TextBox2.TextChanged,

                            TextBox3.TextChanged, TextBox4.TextChanged,

                            TextBox5.TextChanged, TextBox6.TextChanged,

                            TextBox7.TextChanged, TextBox8.TextChanged,

                            TextBox9.TextChanged, TextBox10.TextChanged

    For Each tx As TextBox In (From t1 In Controls.OfType(Of TextBox)()

                                Where t1.Name = "TextBox" & (Val(sender.Name.ToString.Replace("TextBox", "")) + 10))

        tx.Text = Val(sender.text) * (3 + Val(sender.Name.ToString.Replace("TextBox", "")))

    Next

End Sub

شكرا جزيلا وبارك الله فيك اخي asmarsou
كلو مضبوط و الحمد لله بفضل الله ثم بفضلك
بقي لي فقط نقطة اخيرة لو سمحت
عندي تاكست بوكس 21 اجمع فيها الارقام يلي بالتاكسات من 11 الى 20

كود :

   TextBox21.Text = Val(Me.TextBox11.Text) + Val(Me.TextBox12.Text) + Val(Me.TextBox13.Text) + Val(Me.TextBox14.Text) + Val(Me.TextBox15.Text) + Val(Me.TextBox16.Text)+ Val(Me.TextBox17.Text)+ Val(Me.TextBox18.Text)+ Val(Me.TextBox19.Text)+ Val(Me.TextBox20.Text)

اريد اضيف تاكست بوكس رقم 22 بحيث احصل فيها على الرقمين الاولين فقط من المجموع الظاهر بالتاكست بكس 21
مثلا المجموع بالتاكست بكس 21 يساوي 258
تظهر بالتكست بكس 22 فقط الرقمين 58
مثلا المجموع بالتاكست بكس 21 يساوي 193
تظهر بالتكست بكس 22 فقط الرقمين 93
و بارك الله فيك و الهي يسعدك

بارك الله فيك اخي الغالي Taha Okla
حل مختصر يفي بالغرض كذلك لك مني كل التقدير و الاحترام
زادها الله بموازين حسناتك ان شاء الله

غير اسم :
TextBox21 إلى tTextBox21
TextBox22 إلى tTextBox22

واستخدم بدلا من الكود السابق الكود التالي :

كود :

   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _

                            Handles TextBox1.TextChanged, TextBox2.TextChanged,

                            TextBox3.TextChanged, TextBox4.TextChanged,

                            TextBox5.TextChanged, TextBox6.TextChanged,

                            TextBox7.TextChanged, TextBox8.TextChanged,

                            TextBox9.TextChanged, TextBox10.TextChanged

        For Each tx As TextBox In (From t1 In Controls.OfType(Of TextBox)()

                                   Where t1.Name = "TextBox" & (Val(sender.Name.ToString.Replace("TextBox", "")) + 10))

            tx.Text = Val(sender.text) * (3 + Val(sender.Name.ToString.Replace("TextBox", "")))

        Next

        tTextBox21.Text = (From t1 In Controls.OfType(Of TextBox)() Where Val(t1.Name.ToString.Replace("TextBox", "")) > 10).Sum(Function(t1) Val(t1.Text))

        tTextBox22.Text = Strings.Right(tTextBox21.Text, 2)

    End Sub

بارك الله فيك اخي Taha okla
و جزاك الله خيراً .. الهي يرضى عليك و على والديك ان شاء الله
هو كله مضبوط و لم كل الشكر و الاحترام

(21-08-23, 02:15 AM)محمد خيري كتب : [ -> ]بارك الله فيك اخي Taha okla
و جزاك الله خيراً .. الهي يرضى عليك و على والديك ان شاء الله
هو كله مضبوط و لم كل الشكر و الاحترام

من أفضل الأساتذة الذين استفدت من خبرتهم وتوجيههم وارشادتهم الأستاذ الحبيب طه

ولا أنسى أستاذتي الأولين
أحمد منصور الحاضر الغائب
أمير الزبيدي فتح الله عليه ورزقه من حيث لا يحتسب.
المهندس أحمد عبد العليم