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

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

سؤال عملية حسابية - محمد خيري - 15-11-18

السلام عليكم.اخواني لو سمحتم النظر بالمثال
لماذا النتيجة باتاكست بكس رقم8 لا تطلع صحيحة عند قسمة التاكست رقم 7 على التاكست رقم3
اجمع التاكست 1 + التاكست بكس2 و النتيجة بأعداد طبيعية فقط تظهر بالتاكست 3
اجمع التاكست 4 + 5 +6 و النتيجة تطلع بالتاكست 7 بأعداد صحيحة
التاكست 8 يساوي التاكست 7 / التاكست 3
لكن اجد النتيجة بالتاكست8 غير صحيحة .بارك الله فيكم وين الغلط او كيف يمكن اجراء هذا العمليات

RE: سؤال عملية حسابية - محمد خيري - 15-11-18

اخي شكرا لكن الفواصل كثيرة لم افهم ماذا تقصد

RE: سؤال عملية حسابية - rmnr - 15-11-18

الفواصل أتت بسبب 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


RE: سؤال عملية حسابية - محمد خيري - 15-11-18

بارك الله فيك اخي سؤال اخير لو سمحت كيف اضبط النتيجة بالتاكست 7 و التاكست 8 برقمين عشريين بعد الفاصلة يعني لو كانت النتيجة مثال 12345.789432555 تصبح فقط 12345.78

RE: سؤال عملية حسابية - rmnr - 15-11-18

باستخدام ToString ثم 0.00
هذا مثال وقس عليه
كود :
TextBox8.Text = Val(TextBox8.Text).ToString("0.00")


RE: سؤال عملية حسابية - محمد خيري - 15-11-18

بارك الله فيك اخي و زادك من علمه و فضله وهو الذي ابحث عنه بالفعل يعطيك الصحة و العافية