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

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

حل مشكلة الفاصلة الرقمية لحقل العملة - عبدالكريم برشدان - 20-01-22

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

اصدقائي الاعزاء 

لدي عملية حسابية بين حقل من نوع decimal(8, 2)  وحقل اخر من نوع int وقمت بعملية حسابية كتالي :

الحقل الاول                    الحقل الثاني 

4.00                    *               150
15.00                  *                300
30.00                  *                500
80.00                  *               800

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

المفترض الناتج يظهر بهذه الطريقة : 84.100.00

ولكن يظهر لي بهذه الطريقة  :  84100.00


كود :
   Sub sum_totl()
       Dim tt, qut As Double
       For i As Integer = 0 To FlowLayoutPanel1.Controls.Count - 1
           tt += FlowLayoutPanel1.Controls(i).Controls("Label1").Text
           qut += FlowLayoutPanel1.Controls(i).Controls("Label5").Text
       Next
       Label14.Text = tt
       Label15.Text = qut
       Label13.Text = Val(Label14.Text) * Val(Label15.Text)
     
   End Sub


RE: حل مشكلة الفاصلة الرقمية لحقل العملة - ابراهيم ايبو - 20-01-22

السلام عليكم ورحمة الله وبركاته
تفضل اخي هذه كما في الكود عندك
كود :
TextBox3.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)).ToString("0,0.00")
وهذه طريقتي
كود :
Dim AA As Decimal
       AA = Val(TextBox1.Text) * Val(TextBox2.Text)
       'هذا السطر
       TextBox3.Text = String.Format("{0:0,0.00}", AA)
       'أو هذا السطر
       TextBox3.Text = AA.ToString("0,0.00")