تقييم الموضوع :
  • 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 ك ب / التحميلات : 118)
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: mr_hso , mr_hso , علاء الكبابي
#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 ) ضيف كريم