تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود جمع محيرني رجاء المساعدة
#1
لدينا فورم به عدد 2 تكست بوكس  
كنت اريد اذا تم كتابة عدد مثلا 123
التكست الثاني يجمع العدد 6  
او مثلا 777 = 21 هكذا






الرد
تم الشكر بواسطة:
#2
كود :
   
        Dim m As Integer = 0
        For Each n In TextBox1.Text
            m += Val(n)
        Next
        TextBox2.Text = m
ارجو يكون المطلوب
الرد
تم الشكر بواسطة:
#3
تفضل اخي العزيز ارجو ن يكون هذا هو المطلوب
كود :
      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
الرد
تم الشكر بواسطة: سعود
#4
اخي سعود واخي محمد العبيدي
الف الف شكر الكود يعمل بنجاح
سلمتم من كل سؤ وجزاكم الله الف خير

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

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

الرد
تم الشكر بواسطة: سعود
#5
مافهمت عليك اخوي
هل تقصد انك تريد تجربة الكود على ماهو ظاهر بالصورة؟؟؟
الرد
تم الشكر بواسطة:
#6
لا لا الكود تمام التمام جزاك الله الف خير

انا اقصد بعض العمليات الحسابية يوجد بها ارقام طويلة
ياتي بها حروف اريد عدم اظهار هذه الحروف لكي تظهر العملية الحسابية كاملة
الرد
تم الشكر بواسطة:
#7
ممكن تجيب مثال اطبق عليه؟
يعني عطني رقم واشوف له طريقة
الرد
تم الشكر بواسطة:
#8
لو افترضنا لدينا عددين نريد نقوم بعملية ضرب هكذا
59716056 * 59716056 = 3.56600734419514E+15
خرج العدد النهائي لكن لاحظ اخر اربع اعداد خرج حرف  e+15
هل يوجد كود لاخراج عملية الضرب كاملة بدون هذه الحروف

وانا اسف اذا كنت اثقلت عليك
لكن انت كريم بن كريم جزاك الله الف خير
الرد
تم الشكر بواسطة:
#9
هذي حتى بالالة الحاسبة العادية تظهر
لكن جرب حاسبة الجهاز تلاحظ ان الكود جاب الرقم المقرب
الرد
تم الشكر بواسطة:
#10
اخي العزيز وجدة السؤال التالي وقد تم الاجابة عليه من قبل السيد [b]Ahmed_Mansoor [/b]وهو شبيه لما تريده

عرض رقم 32/ 64 خانة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المساعدة - في حل مشكلة حجم الفورم Mohamed El Meziani 1 63 18-04-18, 02:39 AM
آخر رد: ملهمـ
  [مشروع] مشكلة في جملة Select لمشروع تسديدات شهرية ارجو المساعدة من كل ذوي الخبرة الحسين احمد 11 378 02-04-18, 03:32 PM
آخر رد: عبدالله الدوسري
  السادة الافاضل أرجو المساعدة للضرورة القصوة "كود حفظ صورة من ويب كام مباشرة " nohadking 1 78 22-03-18, 11:00 AM
آخر رد: silverlight
  [سؤال] مشكلة في ربط قاعدة بيانات مع فيوال بيسك \الرجاء المساعدة :"( cayo12300 3 111 19-03-18, 08:37 PM
آخر رد: عبدالله الدوسري
  [مشروع] مشكلة في جملة Select لمشروع تسديدات شهرية ارجو المساعدة من كل ذوي الخبرة الحسين احمد 0 58 19-03-18, 06:11 AM
آخر رد: الحسين احمد
  المساعدة في إيجاد حل كود للجريدفيو مرفق مثال بيسك لكل العرب 4 157 05-03-18, 07:23 PM
آخر رد: بيسك لكل العرب
  المساعدة - في تفعيل نسخة VB 2015 emamtron2014 1 42 26-02-18, 07:10 AM
آخر رد: emamtron2014
  المساعدة بزر حذف العيدروس 13 36 26-02-18, 12:41 AM
آخر رد: العيدروس
  [سؤال] المساعدة - في انشاء علاقة بين الجداول DOX.1 2 42 20-02-18, 03:26 AM
آخر رد: spoony
  [سؤال] المساعدة - في المسائل الحسابية komar 3 38 19-02-18, 11:29 PM
آخر رد: عبد العزيز البسكري

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


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