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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  دالة لجعل مربع النص لا يقبل حروف atefkhalf2004 6 148 17-09-16, 12:38 AM
آخر رد: أبو عمر
  طلب كود دالة جمع مهندس حيدر 16 318 08-09-16, 01:04 PM
آخر رد: مهندس حيدر
  [كود] كود تقريب الأعداد المبرمج العبقري 2 101 16-07-16, 12:20 AM
آخر رد: المبرمج العبقري
  [سؤال] دالة تتعرف علي الزر الذي تم النقر عليه وتغير قيمة مربع النص المقابل musab 1 219 12-01-16, 12:50 PM
آخر رد: silverlight
  [VB.NET] دالة datediff sphinx 20 1,451 25-07-15, 11:04 AM
آخر رد: sphinx
  [سؤال] تحويل دالة لعمل العكس html to bbcode سعود 3 668 29-09-14, 08:42 PM
آخر رد: vbnet
  [VB.NET] دالة ياخذ الكسر فقط البراء 3 883 18-09-14, 10:19 PM
آخر رد: aladein
  كيف بدى اضيف دالة sum محمد هبي 8 1,675 23-01-14, 08:18 PM
آخر رد: سعود
  [سؤال] طلب دالة تشفي النصوص ali.alfoly 6 839 08-12-13, 01:43 AM
آخر رد: ali.alfoly
  > طلب فى دالة التفقيط abatenovtch 2 959 28-08-13, 12:25 PM
آخر رد: abatenovtch

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


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