+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : Loop (/showthread.php?tid=17886)
Loop - Ahmed Abdulla - 02-11-16
السلام عليكم
اخواني الكرام أريد كود لعمل الأتي
لدي رقم 300 في تيكست 1 ورقم 3 في تيكست 2 والمطلوب جمع الرقم 300 ثلاث مرات في كود واحد باستخدام اللوب بحيث كل رقم يزيد عن الأخر 80
أريد أن أصل الي هذا Text3 = 300+380+460
ولكم مني جزيل الشكر
RE: Loop - أبو عمر - 02-11-16
وعليكم السلام
ما ادري اذا بيمشي الحال بس جرب
PHP كود :
for i = 1 to val(text2.text)
text3.text =val(text3.text)+80+val(text1.text)
next
RE: Loop - Ahmed Abdulla - 02-11-16
شكرا لاهتمامك أخي الكريم ولكن للأسف لم تنجح
أريد ان اصل الي هذا Text3 = 300+380+460
RE: Loop - Fantastico - 02-11-16
PHP كود :
Dim sum as double
For i = 0 to Val(TextBox2.Text)-1
sum += Val(TextBox1.Text) + 80 * i
Next
MsgBox(sum)
RE: Loop - أبو عمر - 02-11-16
PHP كود :
for i = 1 to val(text2.text)
text3.text =i*80+val(text1.text)
next
RE: Loop - Ahmed_Mansoor - 03-11-16
وعليك السلام ورحمة الله وبركاته
أهلا أخي الكريم , جرب هذا الكود :
PHP كود :
Dim I As Integer
Dim zNumber As Integer
Text3.Text = ""
For I = 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
RE: Loop - Ahmed Abdulla - 03-11-16
جزاك الله خيرا أخي الكريم Ahmed_Mansoor ومجهود كبير منك
وشكرا لكل واحد تعب معايا