تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في حساب مجموع label و textbox
#1
السلام و عليكم و رحمة الله

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

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

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


الملفات المرفقة
.rar   المجموع.rar (الحجم : 1.56 ك ب / التحميلات : 79)
الرد
تم الشكر بواسطة:
#2
السلام عليكم

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

- مثال :

كود :
Dim A As Double

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

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة:
#3
بارك الله فيك اخي الفاضل لكن لم يعمل معي الكود

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


الملفات المرفقة
.rar   المجموع.rar (الحجم : 1.56 ك ب / التحميلات : 86)
الرد
تم الشكر بواسطة:
#4
السلام عليكم

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

كود :
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

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد
تم الشكر بواسطة:
#5
بارك الله فيه اخي الكريم اسال الله ان يدخلك الجنة ويغفر لك و لوالديك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة بخصوص Listview haniblack 3 462 26-05-18, 02:56 PM
آخر رد: Abdellah
  طلب مساعدة في ربط الباركود بالفيجوال بسيك 6 ناصر شير 0 93 03-05-18, 02:01 PM
آخر رد: ناصر شير
Lightbulb [vb6.0] مجموع : حاصل جمع عمود في ListView1 بواسطة Adodc1 Xima 5 166 03-02-18, 01:25 AM
آخر رد: anoname
  كود قيمة ثابته داخل TEXTBOX مع كل ادخال للبينات دهشوش1 2 180 31-10-17, 07:07 PM
آخر رد: دهشوش1
  مساعدة في تحزيم المشروع VB6 عبد الرحمان البسكري 14 742 15-04-17, 11:01 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] طلب مساعدة - أريد كود البحث السريع وعمل ملف تثبيت لبرنامجي المرفق Soufyane 1 319 10-04-17, 01:45 PM
آخر رد: Amir_Alzubidy
  [vb6.0] ارجو التعديل على مجموع الحسابين الموجود في المشروع عبدالقادرعواد 2 496 23-02-17, 01:35 AM
آخر رد: عبدالقادرعواد
  مساعدة فى تقسيم الشهر إلى 3 أقسام hsab 7 757 06-02-17, 10:39 PM
آخر رد: اسلام الكبابى
  مساعدة في كود جلب الصورة وحفظها في قاعدة البيانات مصمم هاوي 3 798 04-09-16, 09:36 AM
آخر رد: مصمم هاوي
  [vb6.0] اخوتي الاعزاء في المنتدى مساعدة عاجلة sher 0 426 30-08-16, 09:37 AM
آخر رد: sher

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم