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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : دالة تقريب لاقرب رقم عشرى (/showthread.php?tid=15785)

دالة تقريب لاقرب رقم عشرى - فارس احمد السيد - 12-05-16

بعد اذن الاخوة الاعزاء
عايز دالة تقريب لاقرب رقم عشرى فى الفيجوال بيسك 2010

 و كذلك كود التفقيط

RE: دالة تقريب لاقرب رقم عشرى - ابو ليلى - 13-05-16

السلام عليكم
دالة التقريب استخدم     Math.Round
بفرض ان لديك TextBox1 يحتوي على قيمة عددية و اردت تقريب القيمة فيه  استخدم TextBox2 لاستقبال القيمة المقربة عبر زر امر ينفذ الكود التالي
PHP كود :
       TextBox2.Text = Math.Round(CDec(TextBox1.Text), 0, MidpointRounding.AwayFromZero) 

حيث العدد 0 يمثل عدد الارقام بعد الفاصلة

بالنسبة للتفقيط سارفق لك ملف جاهز استورده الى المراجع لديك ثم تعامل معه كما في الكود 
في بداية الكلاس الخاصة بك
PHP كود :
Imports mero5000 

ثم في المكان الذي تريد فيه تطبيق التفقيط كما يلي
PHP كود :
       Dim M As New mero

        Label1.Text = M.mero5000(TextBox1.Text) 

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

RE: دالة تقريب لاقرب رقم عشرى - فارس احمد السيد - 14-05-16

(13-05-16, 12:43 AM)nonoms كتب : السلام عليكم
دالة التقريب استخدم     Math.Round
بفرض ان لديك TextBox1 يحتوي على قيمة عددية و اردت تقريب القيمة فيه  استخدم TextBox2 لاستقبال القيمة المقربة عبر زر امر ينفذ الكود التالي
PHP كود :
       TextBox2.Text = Math.Round(CDec(TextBox1.Text), 0, MidpointRounding.AwayFromZero) 

حيث العدد 0 يمثل عدد الارقام بعد الفاصلة

بالنسبة للتفقيط سارفق لك ملف جاهز استورده الى المراجع لديك ثم تعامل معه كما في الكود 
في بداية الكلاس الخاصة بك
PHP كود :
Imports mero5000 

ثم في المكان الذي تريد فيه تطبيق التفقيط كما يلي
PHP كود :
       Dim M As New mero

        Label1.Text = M.mero5000(TextBox1.Text) 

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

الاخ الغالى nonoms لك منى افضل التحيات
شكرا على هذا الرد
و اتمنى لك دوام التوفيق

[/url][url=https://vb4arb.com/vb/user-2202.html]

RE: دالة تقريب لاقرب رقم عشرى - فارس احمد السيد - 23-05-16

(14-05-16, 10:32 PM)فارس احمد السيد كتب :
(13-05-16, 12:43 AM)nonoms كتب : السلام عليكم
دالة التقريب استخدم     Math.Round
بفرض ان لديك TextBox1 يحتوي على قيمة عددية و اردت تقريب القيمة فيه  استخدم TextBox2 لاستقبال القيمة المقربة عبر زر امر ينفذ الكود التالي
PHP كود :
       TextBox2.Text = Math.Round(CDec(TextBox1.Text), 0, MidpointRounding.AwayFromZero) 

حيث العدد 0 يمثل عدد الارقام بعد الفاصلة

بالنسبة للتفقيط سارفق لك ملف جاهز استورده الى المراجع لديك ثم تعامل معه كما في الكود 
في بداية الكلاس الخاصة بك
PHP كود :
Imports mero5000 

ثم في المكان الذي تريد فيه تطبيق التفقيط كما يلي
PHP كود :
       Dim M As New mero

        Label1.Text = M.mero5000(TextBox1.Text) 

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

الاخ الغالى nonoms لك منى افضل التحيات
شكرا على هذا الرد
و اتمنى لك دوام التوفيق

[/url][url=https://vb4arb.com/vb/user-2202.html]
اى العزيز nonoms ملف التفقيط هذا بالريال و انا اريده بالجنيه و لا يكتب كسر الريال
بعد اذنك عايز كود مفتوح  و ملف يفقط بالجنيه و يكتب كسر الجنيه و لكم جزيل الشكر