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

== خطأ عملية حسابية ==

بدأه sniper-jawadino في 14 سبتمبر 2013 · 5 رد · 906 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم إخواني

 

347864983.jpg
ماسبب خطأ العملية الحسابية
فكما تلاحضون فإنه لم يجمع الأرقام وراء الفاصلة

وتكون صحيحة فقط عندما أضع نقة بدل الفاصلة
لكن المعطيات المالية لدي بالفاصلة وليس بالنقطة

ما الحل إخواني

#2

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


الحل هو استبدال الفاصلة أثناء العملية الحسابية ، تفضل الكود :


Text3.Text = Val(Replace(Text1.Text, ",", ".")) + Val(Replace(Text2.Text, ",", "."))

لا تنسانا من دعاءك


1

فاعلم أنه لا إله إلا الله

#3

السلام عليكم 

يمكنك ان تستخدم الدالة Csng

Text3.Text = CSng(Text1.Text) + CSng(Text2.Text)
1

"نحن لا نستسلم... ننتصر أو نموت.... وهذه ليست النهاية... بل سيكون عليكم أن تحاربوا الجيل القادم والاجيال التي تليه... اما أنا... فإن عمري سيكون أطول من عمر شانقي."

عمر المختار

اللهم انعم على بلادي بالأمن والأمان

#4

الفاصلة هي النقطة . وليس الفاصلة العادية بالعربي ، أو بالأجنبي ,

ما أقبـح المعصية ، تذهب لذتها ويبقى إثمها ... ومأ أحسن الطاعة ، تذهب مشقتها ويبقى ثوابها

كل نعيم دون الجنة غرور ... وكـل شقـاء دون النـار سرور

الدورة التطبيقية لتعليم التصميم بالإليستريتور

#5
أبو أحمد المبرمج كتب:

الفاصلة هي النقطة . وليس الفاصلة العادية بالعربي ، أو بالأجنبي ,

فعلا تسرعت بالإجابة ضنا منى ان المشكلة حسابية فقط

"نحن لا نستسلم... ننتصر أو نموت.... وهذه ليست النهاية... بل سيكون عليكم أن تحاربوا الجيل القادم والاجيال التي تليه... اما أنا... فإن عمري سيكون أطول من عمر شانقي."

عمر المختار

اللهم انعم على بلادي بالأمن والأمان

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