[فارس احمد السيد]

(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 ملف التفقيط هذا بالريال و انا اريده بالجنيه و لا يكتب كسر الريال
بعد اذنك عايز كود مفتوح  و ملف يفقط بالجنيه و يكتب كسر الجنيه و لكم جزيل الشكر