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

لدينا فورم به عدد 2 تكست بوكس
كنت اريد اذا تم كتابة عدد مثلا 123
التكست الثاني يجمع العدد 6
او مثلا 777 = 21 هكذا

كود :

        Dim m As Integer = 0

        For Each n In TextBox1.Text

            m += Val(n)

        Next

        TextBox2.Text = m

ارجو يكون المطلوب

تفضل اخي العزيز ارجو ن يكون هذا هو المطلوب

كود :

      Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

            Dim I As Integer

            Dim X As Integer

            X = 0

            For I = 1 To Len(TextBox1.Text)

                  X = X + Val(Mid(TextBox1.Text, I, 1))

            Next

            TextBox2.Text = X

      End Sub

اخي سعود واخي محمد العبيدي
الف الف شكر الكود يعمل بنجاح
سلمتم من كل سؤ وجزاكم الله الف خير

======================================

لي طلب اخير ولكم جزيل الشكر
هل من حل للاعداد الطويلة لانها يخرج مع الاعداد حروف
مثل هذه الصورة

مافهمت عليك اخوي
هل تقصد انك تريد تجربة الكود على ماهو ظاهر بالصورة؟؟؟

لا لا الكود تمام التمام جزاك الله الف خير

انا اقصد بعض العمليات الحسابية يوجد بها ارقام طويلة
ياتي بها حروف اريد عدم اظهار هذه الحروف لكي تظهر العملية الحسابية كاملة

ممكن تجيب مثال اطبق عليه؟
يعني عطني رقم واشوف له طريقة

لو افترضنا لدينا عددين نريد نقوم بعملية ضرب هكذا
59716056 * 59716056 = 3.56600734419514E+15
خرج العدد النهائي لكن لاحظ اخر اربع اعداد خرج حرف e+15
هل يوجد كود لاخراج عملية الضرب كاملة بدون هذه الحروف

وانا اسف اذا كنت اثقلت عليك
لكن انت كريم بن كريم جزاك الله الف خير

هذي حتى بالالة الحاسبة العادية تظهر
لكن جرب حاسبة الجهاز تلاحظ ان الكود جاب الرقم المقرب

اخي العزيز وجدة السؤال التالي وقد تم الاجابة عليه من قبل السيد [b]Ahmed_Mansoor [/b]وهو شبيه لما تريده

عرض رقم 32/ 64 خانة

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

ابوسيف

سعود

محمد العبيدي

ابوسيف

سعود

ابوسيف

سعود

ابوسيف

سعود

محمد العبيدي