تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] اصل الارقام
#1
السلام عليكم ورحمة الله
كما تعرفون ان اصل كل الارقام من ١-٩
فمثلا الرقم ٥٢ عبارة عن ٣+٥  =٨
الرقم ١٩٧٢ عبارة عن ٢+٧+٩+١ =١٩ والتى بدورها عبارة عن ٩+١ =10
والتي بدورها عبارة عن ٠+١ =١
اذن في كل الحالات الناتج النهائي محصور بين الارقام من ١-٩
كيف يمكن كتابة كود
بحيث نضع الرقم ١٩٧٢ =1
الرقم 2015= 5+1+0+2=8
١
ارجو الافادة
وشكرا
كن كالشمس تضئ الكون بالعلم والاخلاق Idea
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
Dim ns$, tl%, i%
ns$ = Trim$(Str(2015))
For 
1 To Len(ns$)
   tl% = tl% + Val(Mid$(ns$, i1))
Next
MsgBox tl

الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor
#3
أهلا أخي الكريم ، جرب الكود التالي :

PHP كود :
Dim zValue As String
Dim zTotal 
As String
Dim I 
As Integer

zValue 
"2015"
zTotal "00"

Do While Len(zTotal) > 1
      
      zTotal 
"00"

      
For 1 To Len(zValue)
            
zTotal Val(zTotal) + Val(Mid$(zValue,I,1))
      
Next

     zValue 
zTotal

Loop

MsgBox zTotal 
الرد }}}}
تم الشكر بواسطة: السندبااد , السندبااد , sami2015
#4
(29-12-15, 06:44 AM)sami2015 كتب :
PHP كود :
Dim ns$, tl%, i%
ns$ = Trim$(Str(2015))
For 
1 To Len(ns$)
   tl% = tl% + Val(Mid$(ns$, i1))
Next
MsgBox tl


اخي الكريم
كل الشكر لك على سرعة الاجابة
ولكن عند تجريب البرنامج على الارقام التى لا تحتاج الجمع المعنوي اكثر من مرة فانه يضبط مثل رقم 2015 يعطي نتيجة صحيحة لان 5+1+0+2=8

اما الارقام التي بها جمع معنوي اكثر من مرة فانه لا يجيدها
مثال 1972 فانه يعطي 19 ولكن المفروض نجمع 1+9=10 ثم نجمع 1+0=1
لاحظ هنا كررنا الجمع اكثر من مرة
ولعل الملف المرف يوضح ذلك
اكرر شكرى لك

(29-12-15, 08:45 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم ، جرب الكود التالي :

PHP كود :
Dim zValue As String
Dim zTotal 
As String
Dim I 
As Integer

zValue 
"2015"
zTotal "00"

Do While Len(zTotal) > 1
      
      zTotal 
"00"

 
     For I 1 To Len(zValue)
 
           zTotal Val(zTotal) + Val(Mid$(zValue,I,1))
 
     Next

     zValue 
zTotal

Loop

MsgBox zTotal 

الاخ الكريم احمد منصور
كل التحية والامتنان لك
الكود لا غبار عليه
بارك الله فيك
وهذا هو الكود مرفق ربما يحتاج اليه اعضاء اخرون
ارجو شرح هذا الجزء من الكود
PHP كود :
zTotal "00" 


الملفات المرفقة
.rar   جمع معنوي.rar (الحجم : 1.23 ك ب / التحميلات : 6)
.rar   جمع معنوي2.rar (الحجم : 1.29 ك ب / التحميلات : 6)
كن كالشمس تضئ الكون بالعلم والاخلاق Idea
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , sami2015
#5
أهلا أخي الكريم ، شكراً جزيلاً لك ، وضعت قيمة المتغير zTotal يساوي صفرين قبل اللوب وفي بدايتها لكي لايتم الخروج من اللوب إلا إذا كانت قيمته عباره عن رقم واحد أو خانه واحده .
الرد }}}}
تم الشكر بواسطة: sami2015 , تاج
#6
(30-12-15, 02:39 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم ، شكراً جزيلاً لك ، وضعت قيمة المتغير zTotal يساوي صفرين قبل اللوب وفي بدايتها لكي لايتم الخروج من اللوب إلا إذا كانت قيمته عباره عن رقم واحد أو خانه واحده .

شكرا جزيلا للتوضيح
كن كالشمس تضئ الكون بالعلم والاخلاق Idea
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ود ان اضيف هذه الارقام مع بعضها في تكست ثالث و وضع علامة ( / ) بينهما allobaed 3 95 23-11-16, 02:08 PM
آخر رد: sendbad100
  احتاج الى الكود لتحويل الارقام الى حروف hicham716 10 440 07-07-16, 09:29 PM
آخر رد: hicham716
  [سؤال] مطلوب برنامج تحويل الارقام او الحروف من شكل الى شكل تاج 8 552 31-12-15, 09:35 PM
آخر رد: تاج
  ارجوا الحل عن الارقام hisoma 0 142 29-12-15, 06:12 PM
آخر رد: hisoma
  ارجوا الرد للاهمية عن الارقام والنسخ hisoma 8 269 28-12-15, 06:44 PM
آخر رد: hisoma
  سؤال فيما يخص تحويل الارقام الى حروف abde6726 2 314 23-12-15, 12:48 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كود يسمحلي اختار ضمن range معين من الارقام mera 6 779 29-05-15, 02:00 PM
آخر رد: mera
  مطلوب كود يعبر عن الحروف بدلا من الارقام مبرمج مبتدئ 9 1,949 13-10-14, 01:28 PM
آخر رد: مبرمج مبتدئ
Thumbs Up [كود] مشكله فى كود تفقيط الارقام الى حروف eng_elsawy 16 4,101 02-05-14, 11:49 AM
آخر رد: king2512010

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


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