السلام عليكم.اخواني لو سمحتم النظر بالمثال
لماذا النتيجة باتاكست بكس رقم8 لا تطلع صحيحة عند قسمة التاكست رقم 7 على التاكست رقم3
اجمع التاكست 1 + التاكست بكس2 و النتيجة بأعداد طبيعية فقط تظهر بالتاكست 3
اجمع التاكست 4 + 5 +6 و النتيجة تطلع بالتاكست 7 بأعداد صحيحة
التاكست 8 يساوي التاكست 7 / التاكست 3
لكن اجد النتيجة بالتاكست8 غير صحيحة .بارك الله فيكم وين الغلط او كيف يمكن اجراء هذا العمليات
اخي شكرا لكن الفواصل كثيرة لم افهم ماذا تقصد
الفواصل أتت بسبب Format "#,##0.00" من الكود
كود :
Public Class Form1
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
End Sub
Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
TextBox7.Text = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text)
TextBox7.Text = Val(TextBox7.Text)
End Sub
Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
TextBox7.Text = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text)
TextBox7.Text = Val(TextBox7.Text)
End Sub
Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles TextBox6.TextChanged
TextBox7.Text = Val(TextBox4.Text) + Val(TextBox5.Text) + Val(TextBox6.Text)
TextBox7.Text = Val(TextBox7.Text)
End Sub
Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged
TextBox8.Text = Val(TextBox7.Text) / Val(TextBox3.Text)
TextBox8.Text = Val(TextBox8.Text)
End Sub
End Class
بارك الله فيك اخي سؤال اخير لو سمحت كيف اضبط النتيجة بالتاكست 7 و التاكست 8 برقمين عشريين بعد الفاصلة يعني لو كانت النتيجة مثال 12345.789432555 تصبح فقط 12345.78
باستخدام ToString ثم 0.00
هذا مثال وقس عليه
كود :
TextBox8.Text = Val(TextBox8.Text).ToString("0.00")
بارك الله فيك اخي و زادك من علمه و فضله وهو الذي ابحث عنه بالفعل يعطيك الصحة و العافية