[ابوسيف]

لدينا فورم به عدد 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 خانة