منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

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

السلام عليكم

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

- مثال :

كود :

Dim A As Double

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

Label2.Caption = A

- تحياتي .

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

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

السلام عليكم

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

كود :

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

VB_Coder

laksas

VB_Coder

laksas