|
ارجو المساعدة
|
04-02-16, 08:46 PM
(آخر تعديل لهذه المشاركة : 04-02-16, 09:28 PM {2} بواسطة احمداحمداحمد6.)
بسم الله الرحمن الرحيم
عند القسمة 1/11 يكون الناتج يبداء 9.09 والصحيح هو 0.09 ماهو السبب هل يوجد خلل بالبرنامج ام ماذا والي ما مجرب خلي ايجرب وشكراً ارجو الرد... 
04-02-16, 09:43 PM
السّلام عليكم و رحمة الله و بركاته
فعلاً أخي الكريم جربت بهذا الشّكل و كانت النتيجة مثلما أشرت
إحتراماتي
 تم الشكر بواسطة: Ahmed_Mansoor , ahmedabdelaliem
السلام عليكم
اخي الكريم ان النتيجة التي تظهر صحيحة 100% والدليل على ذلك استخدم الاقتران int في ناتج القسمة تكون النتجة 0 وهذا يعني ان الناتج اقل من صفر ولكن لماذا تظهر النتيجة بهذه الطريقة يعود السبب لان الرقم الناتج هو رقم دوري 0.090909090909090909 وهذا الرقم لا يمكن تمثيله بالطريقة العادية واظهاره بطريقة رياضية 9.090909090909090E-2 ولحل هذه المشكلة استخدم الامر التالي text3.text=format(val(text1)/val(text2),"0.0000") والله اعلم يعطيك العافية (( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
 تم الشكر بواسطة: VB_Local , عبد العزيز البسكري , السيد الغالي , Ahmed_Mansoor , ahmedabdelaliem
04-02-16, 10:54 PM
السلام عليكم هذا مثال تطبيقي لمعادلة الاستاذ ابو الليث
 
Val_text.rar (الحجم : 1.2 ك ب / التحميلات : 36)
(( وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلّهِ وَإِنَّا إِلَيْهِ رَاجِعونَ ))
تم الشكر بواسطة: عبد العزيز البسكري , السيد الغالي , Ahmed_Mansoor , ahmedabdelaliem
04-02-16, 11:13 PM
وللفائدة استخدم الكود التالي
Text3 = Val(Text1) / Val(Text2) Text3 = Round(Text3, 4) تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم
تم الشكر بواسطة: عبد العزيز البسكري , Ahmed_Mansoor , Ahmed_Mansoor , VB_Local , ahmedabdelaliem , abulayth
|
|
|
