01-06-19, 11:58 AM
(آخر تعديل لهذه المشاركة : 01-06-19, 02:14 PM {2} بواسطة khairallah.)
الرجاء من الاخوة الكرام اريد تقريب كسر الالف في الرقم الى الالف مثلا : 150300 الى 151000 ولكم جزيل الشكر
[VB.NET] تحية طيبة وبعد : تقريب كسر الالف الى الالف
|
01-06-19, 11:58 AM
(آخر تعديل لهذه المشاركة : 01-06-19, 02:14 PM {2} بواسطة khairallah.)
الرجاء من الاخوة الكرام اريد تقريب كسر الالف في الرقم الى الالف مثلا : 150300 الى 151000 ولكم جزيل الشكر
01-06-19, 12:41 PM
السلام عليكم اخي الكريم
تفضل هذا الكود الشطر الاول لتقريب الرقم والثاني لعدد الخانات بعد الفاصلة
كود : ' استخدم هذا الكود اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
تم الشكر بواسطة: حريف برمجة , dubai.eig
01-06-19, 02:18 PM
(01-06-19, 12:41 PM)ابراهيم ايبو كتب : الف شكر لاكن الرقم عندي ليس فيه فواصل انما على الشكل التالي 175550250 اريد تحويل كسر الالف الى الف 175551000 مع كل التقدير تم الشكر بواسطة: ابراهيم ايبو
01-06-19, 03:09 PM
السلام عليكم اخي الكريم
تفضل هذا الكود
كود : Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
تم الشكر بواسطة: حريف برمجة , حريف برمجة
01-06-19, 03:45 PM
(آخر تعديل لهذه المشاركة : 01-06-19, 03:51 PM {2} بواسطة khairallah.)
(01-06-19, 03:09 PM)ابراهيم ايبو كتب : كود : Public Function XRound(c As Double) As Double تم الشكر بواسطة: ابراهيم ايبو , حريف برمجة
02-06-19, 05:06 AM
الحمد لله والشكر لله
ولك اخي الكريم
رمضان كريم والعيد على الابواب
كل عام وانتم بخير
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
04-06-19, 04:46 PM
لاتمام الامر بصورة صحيحة وبدون اى اخطاء
فقط استخدم هذا الكود كود : Function RunNum(ByVal a As Integer, Optional b As Integer = 3) وعند الاستدعاء يكون بهذا الشكل كمثال كود : MsgBox(RunNum(150300)) وظيفة الكود يقوم بجلب اخر 3 ارقام طبقاً لما هو محدد هنا بهذا الجزء كود : Optional b As Integer = 3 حيث رقم 3 تشير الـ الالاف و 2 الى المئات و 1 تشير الى العشرات
طيب لو فجاء كنت محتاج التعامل مع هذا الكود
مرة فى زر بحيث يكون عشرات
كل ما عليك استخدام الكود بهذا الشكل كود : MsgBox(RunNum(150306, 1)) واذا كان فى الزر الثاني كمثال لـ المئات كود : MsgBox(RunNum(150390, 2)) وطبعة الحال اذا كان لـ المئات فيمكن استخدام الكود هكذا كود : MsgBox(RunNum(150300, 3)) وايضاً بهذا الشكل كود : MsgBox(RunNum(150300)) طيب لو كان المطلوب لاكثر من ثلك مثلاً لـ 4 ارقام او 5
كل الامر فقط انك تستخدم الكود مع تغيير الرق فقط الاخير كمثال كود : MsgBox(RunNum(150300, 4)) كود : MsgBox(RunNum(150300, 5)) كود : MsgBox(RunNum(150300, 6)) اتمنى الصورة تكون واضحة تماماً
الكود بدوت اى اخطاء تماماً طوال ان الرقم صحيح بدون ارقام عشرية
بمعنى اذا كان الرقم المدخل بهذا الشكل كود : 652131124 فستجد ان الكود يقوم بجلب القيمة صحيحة بدون اى خطاء
واذا كان القيمة مثل كود : 5434982.52 فهنا ستجد ان الناتج الذى سيخرج قيمة صحيحة بدون اى كسور
فاذا كنت تريد اظهار الكسور فاتمنى التوضيح حتى اقوم بتعديل بسيط على الكود لاظهار الكسور
تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ] ساهم دائماً فى لكل من يقوم بالمساهمة فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله ▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية تم الشكر بواسطة: ابراهيم ايبو , حريف برمجة , dubai.eig
|
|