الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ]مشكلة عملية الضرب والفاصلة العشرية

بدأه i1982 في 23 يناير 2009 · 5 رد · 804 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

لدي برنامج يحتوي على الحقول التالية وهي الوزن والذي اقوم بكتابته بهذه الصضيغة مثلا 5.250 ومن الضروري ان اكتب الفاصلة ولا مشكلة في ذلك وحقل السعر والمطلوب للدفع ولحساب المطلوب للدفع فان المعادلة هي

المطلوب للدفع = السعر * الوزن

المشكلة عندما القيام بكتابة 4.000 وزن * 5 وهو السعر النتيجة تكون 20 وهذا خطأ ويجب ان تكون النتيجة بدلا من ذلك 20000

وماذا لو اردنا كتابة الرقم 4.500 وزن فان النتيجة تظهر بشكل غير صحيح

فكيف عمل ذلك؟

يوجد ملف مرفق به مثال عن ذلك وارجو ان يتم التعديل عليه ولكم جزيل الشكر

topay.rar

تم تعديل هذه المشاركة بواسطة i1982 في 23 يناير 2009 في 21:39

#2

ولماذا لا تضرب بألف:

  1.  
  2. Text3 = Val(Text2) * Val(Text1) * 1000
  3.  


      
      

      
هذه الجملة خاطئة  :wacko: 


    

  

    
    

      
#3
        
        

      
مرحباً أخي الكريم .
جرب التالي :
Private Sub Command1_Click()
Text3.Text = CDbl(Text1.Text * Text2.Text)
End Sub
_________________
بالمناسبة عليّك التدقيق في الفاصلة المستخدمة هل تستخدم ( , ) ام ( . ) ؟
بالنسبة للأولى فستحصل على النتيجة التي تكلمت عنها اي ( 25 * 1,000 )=( 25000 ), بالنسبة للثانية فستحسب بفاصلة عشرية :S اي ( 25 * 1.000 )=( 25 ) .
بالتوفيق .

      
تم تعديل هذه المشاركة بواسطة Bashar Rabat في 23 يناير 2009 في 23:48

      

      
The important thing is not so much
that every child should be taught,
as that every child should be given the wish to learn.

    

  

    
    

      
#4
        
        

      
السلام عليكــم ورحمـة الله وبركاتــه
إستخدم هذا الـ Code
Text3 = Format(Val(Text2) * Val(Text1), " #,##0.000")
ولاحظ أن الـ Format هو نفسه الذي وضعته أنت في الـ Text1
وبإمكانك أيضا وضع الـ Format في الـ Text3 نفسه دون إستخدام اي تنسيق في عملية الضرب

      
      

      
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي

    

  

    
    

      
#5
        
        

      
الله يفتح عليك أستاذ / mrx_ta7ady ويزيدك من علمه
فعلاً الكود تمام وقمت بتجربته والمشروع بعد التعديل بالمرفقات
مع تحيات شادي المصري
topay.rar

      
      

      
    

  

    
    

      
#6
        
        

      
جزاكم الله كل خير جميعا والحمدلله انتهت المشكلة

      
      

      
    

  

    
    
    
 مواضيع مشابهة





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…