تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة
#1
بسم الله الرحمن الرحيم
عند القسمة 1/11 يكون الناتج يبداء 9.09 والصحيح هو 0.09 ماهو السبب هل يوجد خلل بالبرنامج ام ماذا والي ما مجرب خلي ايجرب وشكراً ارجو الرد...
الرد }}}
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته

فعلاً أخي الكريم جربت بهذا الشّكل و كانت النتيجة مثلما أشرت

إحتراماتي
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , ahmedabdelaliem
#3
اشكرك اخي عبد العزيز على هذا الجواب شكراً...
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم
اخي الكريم ان النتيجة التي تظهر صحيحة 100%
والدليل على ذلك استخدم الاقتران int في ناتج القسمة تكون النتجة 0 وهذا يعني ان الناتج اقل من صفر
ولكن لماذا تظهر النتيجة بهذه الطريقة
يعود السبب لان الرقم الناتج هو رقم دوري 0.090909090909090909 وهذا الرقم لا يمكن تمثيله بالطريقة العادية واظهاره بطريقة رياضية 9.090909090909090E-2

ولحل هذه المشكلة استخدم الامر التالي

text3.text=format(val(text1)/val(text2),"0.0000")

والله اعلم
يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
#5
السلام عليكم هذا مثال تطبيقي لمعادلة الاستاذ ابو الليث  Smile

.rar   Val_text.rar (الحجم : 1.2 ك ب / التحميلات : 32)
(( وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلّهِ وَإِنَّا إِلَيْهِ رَاجِعونَ ))
الرد }}}
#6
وللفائدة استخدم الكود التالي
Text3 = Val(Text1) / Val(Text2)
Text3 = Round(Text3, 4)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 387 19-11-23, 10:49 PM
آخر رد: Microformt
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
Question [vb6.0] كيف استخدم هذه الخوارزمية في برنامجي نامل المساعدة العاجله؟ Microformt 0 224 04-10-23, 11:44 PM
آخر رد: Microformt
  اخوانى الاحباب ارجو المساعدة فى كود النسخ واللصق mhareek 1 404 15-07-23, 02:28 PM
آخر رد: Amir_Alzubidy
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  السلام عليكم احبابى ارجو ان تكونو بخير ارجو المساعد فى عمل رابط mhareek 4 506 28-05-23, 12:33 PM
آخر رد: mhareek
  [vb6.0] المساعدة في تحويل كود بلغة ال VB.Net الى لغة ال VB6 وادي العوضي 0 371 16-12-22, 11:24 AM
آخر رد: وادي العوضي
  [vb6.0] ارجو المساعدة في حل هذه المسألة سويلم 1 673 03-09-22, 04:52 PM
آخر رد: سويلم
Question كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ Microformt 1 913 22-11-21, 07:51 PM
آخر رد: اسلام الكبابى
  [vb6.0] ارجو التعديل على كود الطباعه ragab_most 3 952 14-11-21, 04:45 AM
آخر رد: ragab_most

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


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