تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Loop
#1
السلام عليكم

اخواني الكرام أريد كود لعمل الأتي 

لدي رقم 300 في تيكست 1 ورقم 3 في تيكست 2 والمطلوب جمع الرقم 300 ثلاث مرات في كود واحد باستخدام اللوب بحيث كل رقم يزيد عن الأخر 80 

أريد أن أصل الي هذا   Text3 = 300+380+460

ولكم مني جزيل الشكر
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام
ما ادري اذا بيمشي الحال بس جرب
PHP كود :
for 1 to val(text2.text)
text3.text =val(text3.text)+80+val(text1.text)
next 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
#3
شكرا لاهتمامك أخي الكريم ولكن للأسف لم تنجح

أريد ان اصل الي هذا Text3 = 300+380+460
الرد }}}
تم الشكر بواسطة:
#4
PHP كود :
Dim sum as double

For 0 to Val(TextBox2.Text)-1
sum 
+= Val(TextBox1.Text) + 80 i
Next

MsgBox
(sum
الرد }}}
#5
PHP كود :
for 1 to val(text2.text)
text3.text =i*80+val(text1.text)
next 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
#6
وعليك السلام ورحمة الله وبركاته

أهلا أخي الكريم , جرب هذا الكود :

PHP كود :
Dim I As Integer
Dim zNumber 
As Integer

Text3
.Text ""

For 1 To Val(Trim$(Text2.Text))
    If 
Trim$(Text3.Text) = "" Then
       Text3
.Text Val(Trim$(Text1.Text))
       
zNumber Val(Trim$(Text1.Text))
    Else
       
Text3.Text Trim$(Text3.Text) & "+" zNumber 80
       zNumber 
zNumber 80
    End 
If
Next 
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , Amir_Alzubidy
#7
جزاك الله خيرا أخي الكريم Ahmed_Mansoor ومجهود كبير منك

وشكرا لكل واحد تعب معايا
الرد }}}
تم الشكر بواسطة: Amir_Alzubidy , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] Loop Ahmed Abdulla 2 1,678 02-10-16, 04:45 PM
آخر رد: Ahmed Abdulla
  سؤال : loop لعمل المتوسط الحسابي لكل عدد خلايا محددة student 1 1,858 24-04-14, 08:04 AM
آخر رد: asto

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


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