تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
دالة تقريب لاقرب رقم عشرى
#1
بعد اذن الاخوة الاعزاء
عايز دالة تقريب لاقرب رقم عشرى فى الفيجوال بيسك 2010

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

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

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

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

        Label1
.Text M.mero5000(TextBox1.Text

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


الملفات المرفقة
.rar   mero5000.rar (الحجم : 7.89 ك ب / التحميلات : 34)
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}}
تم الشكر بواسطة:
#3
(13-05-16, 12:43 AM)nonoms كتب : السلام عليكم
دالة التقريب استخدم     Math.Round
بفرض ان لديك TextBox1 يحتوي على قيمة عددية و اردت تقريب القيمة فيه  استخدم TextBox2 لاستقبال القيمة المقربة عبر زر امر ينفذ الكود التالي
PHP كود :
       TextBox2.Text Math.Round(CDec(TextBox1.Text), 0MidpointRounding.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]
الرد }}}}
تم الشكر بواسطة:
#4
(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), 0MidpointRounding.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 ملف التفقيط هذا بالريال و انا اريده بالجنيه و لا يكتب كسر الريال
بعد اذنك عايز كود مفتوح  و ملف يفقط بالجنيه و يكتب كسر الجنيه و لكم جزيل الشكر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تقريب رقم تناسيم 1 67 26-09-17, 02:56 PM
آخر رد: wale90
  دالة التفقيط مجرب lkaam 1 147 09-06-17, 03:08 AM
آخر رد: alma2
  كيف يمكن تقريب الكسر العشري لاقرب رقم فى داتا جريد فيو السيد الجوهري 1 286 28-01-17, 06:34 PM
آخر رد: ابو ليلى
  دالة لجعل مربع النص لا يقبل حروف atefkhalf2004 6 569 17-09-16, 12:38 AM
آخر رد: أبو عمر
  طلب كود دالة جمع مهندس حيدر 16 873 08-09-16, 01:04 PM
آخر رد: مهندس حيدر
  [كود] كود تقريب الأعداد المبرمج العبقري 2 306 16-07-16, 12:20 AM
آخر رد: المبرمج العبقري
  [سؤال] دالة تتعرف علي الزر الذي تم النقر عليه وتغير قيمة مربع النص المقابل musab 1 424 12-01-16, 12:50 PM
آخر رد: silverlight
  [VB.NET] دالة datediff sphinx 20 2,217 25-07-15, 11:04 AM
آخر رد: sphinx
  [سؤال] تحويل دالة لعمل العكس html to bbcode سعود 3 865 29-09-14, 08:42 PM
آخر رد: vbnet
  [VB.NET] دالة ياخذ الكسر فقط البراء 3 1,355 18-09-14, 10:19 PM
آخر رد: aladein

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم