السلام عليكم ورحمه الله وبركاته
ممكن تساعدوني في كود يقوم بتنسيق الاعداد
مثال :
22/15=1.466666666666
اريد تنسيقه على شكل
1.46
او
1.47
اريد خانتين من الكسور فقط
ارجو ان يكون سؤالي واضح
واكون شاكر لكم حسن تعاونكم
سؤال بخصوص تنسيق الاعداد
مغلق
السلام عليكم
هناك عدة طرق وهذه واحده منها إذا كنت تستخدم الرقم داخل كود فسيكون كالتالي
dim MyNumber as Double
MyNumber=Format("1.4666666","#0.00")أما إذا كنت تقوم بعمل إدخال ويظهر هذا التنسيق بعد إنتقالك من الاداه فأستخدم نفس الطريقة السابقة ولكن في حدث lost focus للأداه ... مع تغير الرقم بالاداه التي يظهر فيها .
وإما إذا كنت تستقبل هذه الأرقام من قاعدة البيانات فهناك طريقة يدويه في الكائن نفسه .
مع مراعاه استخدام المتغير الصحيح حسب ما تتوقعه من بياناتك مثل :-
Int16
Int32
Int64
Decimal
integer
Double
long
تم تعديل هذه المشاركة بواسطة aswany في 17 نوفمبر 2007 في 11:36
شكرا على المعلومة أخي أسواني
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
اشكرك كثيرا عزيزي aswany
لردك على موضوعي
واتمنا انك توضحلي اكثر
اريد لما اضغط على button1 يضهر الناتج في textbox1 منسق وتتكون الكسور من خانتين مثل 1.46
واكون شاكر لك حسن تعاونك معي
للحصول على النتيجة في TextBox استخدم
TextBox1.Text = (22/15).ToString("##.##")مقالاتي في VB.NET وبرامجي على موقعي الجديد :
تقدر تستخدم الكود الخاص بدالة التقريب كما يلي : -
اولا بتستدعي فضاء الخاص بكلاسات الرياضيات كما يلي : ( وينكتب في قسم التعريفات العامة )
Imports system .math
تكتب الكود التالي الا بيستخدم في تقريب العدد باي علامة عشرية انتا عايزها :
dim x as doubel x=round(num1,2)
حيث x : هو الرقم النهائي والمقرب
حيث num1 : هو الرقم المراد تقريبه
حيق 2 : هو العلامة المراد تقريب الرقم اليها وهنا طبعا تقريبها لاقرب علامتين عشريتين يعني في الميه
السلام عليكم
شكرا اخوي
Fikou-sama على الكود وانا جربته وهو تمام التمام
ولك الف شكر على ردك.
وشكرا عزيزي
aswany
على المجهود وبرنامجك وضحلي كثير ووفر على الجهد
وإن شاء الله ماتحرمنا من استشاراتك المفيده
ولك الف شكر
.
وشكرا اخوي
Max bayne
على مرورك وتوضيحك ولك الف شكرا على تعاونك معاي
اخوكم الصغير QtrrtQ
يمكنك بكل سهولة استخدام الداله math.round للتقريب كالتالى
Dim x As Double = 22
Dim y As Double = 15
Dim xy = Math.Round(x / y, 2)
كل من فى الوجود يطلب صيداً :::: غير ان الشباك مختلفات
هذا الموضوع مغلق.