استفسار في عملية الجمع

بسم الله الرحمن الرحيم

اخى اختى

يعنى حضرتك تقصد ان الجمع فيه خطأ و بيطلع اشارة سالب بالخطأ

ولا العملية صح بس حضرتك عاوز تشيل القيمة السالب

على العموم

الكود ده بيغير السااب الى موجب

 Label9.Text = Math.Abs(s1 + s2 + s3 + s4)

& الأمل & كتب:

السلام عليكم

اخوتى الكرام

الكودالتالى لجمع عدد من الارقام والكود صحيح في عملية الجمع

Dim s1 As Integer

Dim s2 As Integer

Dim s3 As Integer

Dim s4 As Integer

s1 = Label5.Text

s2 = Label6.Text

s3 = Label7.Text

s4 = Label8.Text

Label9.Text = s1 + s2 + s3 + s4

المشكلة عند جمع العدد تكون الاشارة سالبة

مثال بدل من ان يكون مثلا الرقم(30)يكون (-30)فما الحل لذلك ؟

السلام عليكم اختي الفاضلة

هل تأكدتي من القيم التي في label

ثانيايفضل استخدام دالة val مع المتغير فهي تقوم على ارجاع الصيغة على شكل رقم

ثم استخدمي integer.pars وهي تقوم بارجاع الرقم على شكله الصحيح

ليصبح الكود كتالي

        Dim s1 As integer
        Dim s2 As Integer
        Dim s3 As Integer
        Dim s4 As Integer


       s1 = val(label5.text)
        s2 = val(label6.text)
        s3 = val(Label7.Text)
        s4 = val(Label8.Text)

        Label9.Text =integer.pars( s1 + s2 + s3 + s4)

هكذا اعتقد ان عملية الجمع ستكون صحيحة باذن الله

والافضل من هذا كله ان تجعلي المستخدم هو الذي يدخل الارقام عن طريق التيكست بوك textbox

بالتوفيق

جزاكم الله خيرا جميعا

جاري التطبيق