ارجو المساعدة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4) +--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18) +---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28) +---- الموضوع : ارجو المساعدة (/showthread.php?tid=14641)

ارجو المساعدة - احمداحمداحمد6 - 04-02-16 بسم الله الرحمن الرحيم عند القسمة 1/11 يكون الناتج يبداء 9.09 والصحيح هو 0.09 ماهو السبب هل يوجد خلل بالبرنامج ام ماذا والي ما مجرب خلي ايجرب وشكراً ارجو الرد... RE: ارجو المساعدة - عبد العزيز البسكري - 04-02-16 السّلام عليكم و رحمة الله و بركاته فعلاً أخي الكريم جربت بهذا الشّكل و كانت النتيجة مثلما أشرت إحتراماتي RE: ارجو المساعدة - احمداحمداحمد6 - 04-02-16 اشكرك اخي عبد العزيز على هذا الجواب شكراً... RE: ارجو المساعدة - abulayth - 04-02-16 السلام عليكم اخي الكريم ان النتيجة التي تظهر صحيحة 100% والدليل على ذلك استخدم الاقتران int في ناتج القسمة تكون النتجة 0 وهذا يعني ان الناتج اقل من صفر ولكن لماذا تظهر النتيجة بهذه الطريقة يعود السبب لان الرقم الناتج هو رقم دوري 0.090909090909090909 وهذا الرقم لا يمكن تمثيله بالطريقة العادية واظهاره بطريقة رياضية 9.090909090909090E-2 ولحل هذه المشكلة استخدم الامر التالي text3.text=format(val(text1)/val(text2),"0.0000") والله اعلم يعطيك العافية RE: ارجو المساعدة - VB_Local - 04-02-16 السلام عليكم هذا مثال تطبيقي لمعادلة الاستاذ ابو الليث  [attachment=9313] RE: ارجو المساعدة - السيد الغالي - 04-02-16 وللفائدة استخدم الكود التالي Text3 = Val(Text1) / Val(Text2) Text3 = Round(Text3, 4)