منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مساعدة في حساب مجموع label و textbox - نسخة قابلة للطباعة

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



مساعدة في حساب مجموع label و textbox - laksas - 01-03-14

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

ارجوا من الاخوة المساعدة في حساب مجموع label و textbox

عملت هذا الكود لكن يعطيني نتائج خاطئة حيث انه يتجاهل الارقام بعد الفاصلة
Label1.Caption = Val(Label1.Caption) + Val(Text1.Text)

مرفق مثال للتعديل
جزاكم الله خيرا


RE: مساعدة في حساب مجموع label و textbox - VB_Coder - 01-03-14

السلام عليكم

- أخي العزيز إذا أردت ، إستخدام العمليات الحسابية والتي تحتوي على أرقام عشرية أو فواصل وتريد النتيجة أن تكون دقيقة ، أسند العملية إلى متغير من نوع single أو Double :

- مثال :

كود :
Dim A As Double

A = Val(Text1.Text) + Val(Label1.Caption)
Label2.Caption = A

- تحياتي .


RE: مساعدة في حساب مجموع label و textbox - laksas - 01-03-14

بارك الله فيك اخي الفاضل لكن لم يعمل معي الكود

ارجوا التعديل على المثال المرفق


RE: مساعدة في حساب مجموع label و textbox - VB_Coder - 01-03-14

السلام عليكم

- أنا آسف أخطأت في الإجابة السابقة ، حيث لابد أن تسند كل طرف من العملية الحسابية وليس الناتج فقط ، كما يلي :

كود :
Dim A As Double
Dim B As Double
Dim C As Double

A = Val(Text1.Text) + Val(Label1.Caption)
B  = Val(Text1.Text) + Val(Label1.Caption)
C = A + B
Label2.Caption = C

- تحياتي .


RE: مساعدة في حساب مجموع label و textbox - laksas - 01-03-14

بارك الله فيه اخي الكريم اسال الله ان يدخلك الجنة ويغفر لك و لوالديك