منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

السلام عليكم
دالة التقريب استخدم     Math.Round
بفرض ان لديك TextBox1 يحتوي على قيمة عددية و اردت تقريب القيمة فيه  استخدم TextBox2 لاستقبال القيمة المقربة عبر زر امر ينفذ الكود التالي

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

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

ثم في المكان الذي تريد فيه تطبيق التفقيط كما يلي

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

(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=http://vb4arb.com/vb/user-2202.html]

(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=http://vb4arb.com/vb/user-2202.html]

اى العزيز nonoms ملف التفقيط هذا بالريال و انا اريده بالجنيه و لا يكتب كسر الريال
بعد اذنك عايز كود مفتوح  و ملف يفقط بالجنيه و يكتب كسر الجنيه و لكم جزيل الشكر