[laksas]

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

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

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

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

[VB_Coder]

السلام عليكم

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

- مثال :

كود :

Dim A As Double

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

- تحياتي .

[laksas]

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

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

[VB_Coder]

السلام عليكم

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

كود :

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

- تحياتي .

[laksas]

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