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

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

عملية حسابية خاصة - محمد خيري - 20-08-23

السلام عليكم
اخواني رجاء مساعدة في حل هذه المسالة بارك الله فيكم
عندي 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
يوجد ملف مرفق لشرح العمية و لكم كل الشكر

RE: عملية حسابية خاصة - asmarsou - 20-08-23

وعليكم السلام و رحمة الله و بركاته
 هذا مثال للتكست بوكس الاول
بمكنك اكمال مشروعك بنفس الطريقة للتكستات الباقية
استعملت
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 
في هذا المثال كود قد طرحه احد الاخوة  مشكور في موضوع آخر

RE: عملية حسابية خاصة - Taha Okla - 20-08-23

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

جرب هذا الكود ...
كود :
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


RE: عملية حسابية خاصة - محمد خيري - 20-08-23

شكرا جزيلا وبارك الله فيك اخي 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
حل مختصر يفي بالغرض كذلك لك مني كل التقدير و الاحترام
زادها الله بموازين حسناتك ان شاء الله

RE: عملية حسابية خاصة - Taha Okla - 21-08-23

غير  اسم :
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


RE: عملية حسابية خاصة - محمد خيري - 21-08-23

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

RE: عملية حسابية خاصة - مصمم هاوي - 22-08-23

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

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

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