منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود جمع محيرني رجاء المساعدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود جمع محيرني رجاء المساعدة (/showthread.php?tid=11256)



كود جمع محيرني رجاء المساعدة - ابوسيف - 28-01-15

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









RE: كود جمع محيرني رجاء المساعدة - سعود - 28-01-15

كود :
   
        Dim m As Integer = 0
        For Each n In TextBox1.Text
            m += Val(n)
        Next
        TextBox2.Text = m
ارجو يكون المطلوب


RE: كود جمع محيرني رجاء المساعدة - محمد العبيدي - 28-01-15

تفضل اخي العزيز ارجو ن يكون هذا هو المطلوب
كود :
      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



RE: كود جمع محيرني رجاء المساعدة - ابوسيف - 29-01-15

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

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

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




RE: كود جمع محيرني رجاء المساعدة - سعود - 29-01-15

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


RE: كود جمع محيرني رجاء المساعدة - ابوسيف - 29-01-15

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

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


RE: كود جمع محيرني رجاء المساعدة - سعود - 29-01-15

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


RE: كود جمع محيرني رجاء المساعدة - ابوسيف - 29-01-15

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

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



RE: كود جمع محيرني رجاء المساعدة - سعود - 29-01-15

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


RE: كود جمع محيرني رجاء المساعدة - محمد العبيدي - 31-01-15

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

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