+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=23316)
التحكم بعدد الاعداد العشرية بعد الفاصلة - الميساني - 14-01-18
السلام عليكم ورحمة الله وبركاته
اخواني لدي تكست بوكس تظهر به نتيجة حسايبة من ضرب او جمع او غيره اريد التحكم بعد الارقام العشرية بعد الفاصلة حسب حاجتي من خلالNmeric UpDown فعند تغيير الرقم فيه بتحدد عدد الارقام بعد الفاصلةوكما في الصورة التالية علما اني استخدم فيوال بيسك 2010
RE: التحكم بعدد الاعداد العشرية بعد الفاصلة - طالب برمجة - 14-01-18
توجد خاصية اسمها DecimalPlaces حدد فيها عدد الأرقام العشرية بعد الفاصلة
RE: التحكم بعدد الاعداد العشرية بعد الفاصلة - الميساني - 14-01-18
اخي العزيز شكراًً على سرعة الرد ولكني احتاج في بعض الاحيان رقمين واخرى ثلاثة ارقام حسب حاجتي الحسابية
RE: التحكم بعدد الاعداد العشرية بعد الفاصلة - طالب برمجة - 14-01-18
عفوا، لم أركز في المطلوب
PHP كود :
TextBox1.Text = FormatNumber(n, NumericUpDown1.Value)
حيث n هي النتيجة الحسايبة والتي عادة تكون من نوع Double
RE: التحكم بعدد الاعداد العشرية بعد الفاصلة - الميساني - 14-01-18
الف شكر استاذي الغالي وبارك الله فيك وصباحية مباركة عليك وعلى كل من تحب هذا هو المطلوب
RE: التحكم بعدد الاعداد العشرية بعد الفاصلة - عبد العزيز البسكري - 14-01-18
(14-01-18, 10:19 AM)طالب برمجة كتب : توجد خاصية اسمها DecimalPlaces حدد فيها عدد الأرقام العشرية بعد الفاصلة
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم " طالب برمجة " لما تبذله من جهد كبير في سبيل مساعدة و تنوير درب المبتدئين أمثالي ..
بعد إذن صاحب الموضوع ..
في سياق نفس الموضوع .. لو سمحت و تكرّمت ..
1 - أين أجد الخاصيّة DecimalPlaces
2 - لديَّ هذا الكود لتحديد عدد الأرقام العشرية بعد الفاصلة .. و جدته بالصدفة .. لو سمحت : هل هو صحيح من حيث الكتابة البرمجية
لأنّي أحيانا أجد ( "#,##0.00" ) و أحيانا أجد ( "00.00" ) و أحيانا أجد كتابات أخرى .. فأيهم أصح الله يرضى عليك و على والديك ..
كود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
TextBox3.Text = Val(Replace(TextBox1.Text, ",", ".")) / Val(Replace(TextBox2.Text, ",", "."))
TextBox3.Text = Format(Val(TextBox3.Text), "#,##0.00")
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
TextBox3.Text = Val(Replace(TextBox1.Text, ",", ".")) / Val(Replace(TextBox2.Text, ",", "."))
TextBox3.Text = Format(Val(TextBox3.Text), "#,##0.00")
End Subإحتراماتي
RE: التحكم بعدد الاعداد العشرية بعد الفاصلة - طالب برمجة - 14-01-18
مرحبا أخي عبدالعزيز
الخاصية DecimalPlaces هذه تخص الأداة NumericUpDown
نأتي للكود يللي من حضرتك
Replace الموجود في الكود يحذف فواصل الآلاف من أجل تطبيق عملية حسابية
فواصل الألاف يظهرها كود تنسيق عند مغادرة TextBox (غير موجود في الكود الظاهر) وهو
PHP كود :
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
TextBox1.Text = Format(Val(TextBox1.Text), "#,##0.00")
End Sub
Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
TextBox2.Text = Format(Val(TextBox2.Text), "#,##0.00")
End Sub
التنسيق #,##0.00 يحتوي جزئين أحدهم #,## هو لوضع فواصل الآلاف والأخر 0.00 لوضع كسر عشري من رقمين
التنسيق 00.00 هو ليكون الرقم الصحيح لا يقل عن رقمين بحيث رقم واحد سيضع صفر مكان العشرات بالاضافة الى كسر عشري من رقمين ولكن
هناك دالة بديله وهو FormatNumber
وفي الدت نت تستطيع استخدام التنسيق داخل ToString مثل
PHP كود :
Dim n As Double = 1234.5
Dim s As String = n.ToString("#,##0.00")
MsgBox(s)
الخلاصة أن التنسيق ستكون نتيجته نصية وهي مخصصة للعرض وليست للعمليات الحسابية
RE: التحكم بعدد الاعداد العشرية بعد الفاصلة - عبد العزيز البسكري - 14-01-18
السّلام عليكم و رحمة الله و بركاته
تشكر يا غالي .. إلهي يزيدك من علمه و فضله و يرزقك من حيث تحتسب و من حيث لا تحتسب
أخي الكريم .. أنت تعلم أنّ العمليات الحسابية لها حساسيّة كبيرة بالنسبة لحساب معدّلات التّلاميذ
و لذلك لو تكرّمت بالنظر في الملف المرفق فقط لكي أطوي صفحة العمليات و الأعداد العشرية من أفكاري باعتماد طريقة معيّنة
ما أريده هو .. الجمع أو القسمة أو الضرب أو الطّرح يكون الجزء العشري النّاتج دائمًا برقميْن بعد الفاصلة و الجزء الصّحيح يكون برقمين ..
مثلا 2.25 + 7.11 = 9.36
النتيجة أريدها أن تظهر بهذا الشّكل ( 09.36 )
بارك الله فيك و لك مقدّمًا و جزاك خير الجزاء
إحتراماتي
RE: التحكم بعدد الاعداد العشرية بعد الفاصلة - طالب برمجة - 14-01-18
تحتاج فقط لهذا الكود
PHP كود :
Private Sub TextBox1_TextBox2_TextChanged(ByVal sender As Object, ByVal e As EventArgs) _
Handles TextBox1.TextChanged, TextBox2.TextChanged
TextBox3.Text = (Val(TextBox1.Text) + Val(TextBox2.Text)).ToString("00.00")
End Sub
تلاحظ أنه تم تحويل النص الى قيمة لكل أداة بواسطة Val
ثم وضعت العملية الحسابية داخل أقواس () لأطبق على الناتج ToString بالتنسيق المطلوب
فالأقواس لها دور في الترتيب المطلوب تنفيذه
لكن كما ذكرت لك أن التنسيق للعرض فقط ولا يستغل ما فيما بعد للعميات الحسابية
RE: التحكم بعدد الاعداد العشرية بعد الفاصلة - عبد العزيز البسكري - 14-01-18
السّلام عليكم و رحمة الله و بركاته
باسم الله .. ما شاء الله .. تبارك الله
تمام التّمام و لله الحمد و الشّكر .. إلهي يرزقك من خيرات و طيّبات الدّاريْن إن شاء الله
فائق الشّكر و التّقدير و الاحترام و الامتنان لك و لجميل إبداعاتك
تحياتي