تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تكرار بطريقة محددة
#1
السادة الافاضل
لو عندي   100   سجل  

ارغب  في  تعبئة   الجل الاول  ب  1  ثم  الثاني  ب 2  ثم  الثالث  ب 3  ثم الرابع ب 3  ثم  الخامس ب 2 ثم  السادس ب 1
اي  يكون  كالتالي
1  2  3  
3   2  1
1  2  3
وهكذا

برجاء تعديل  الكود التالي

for i=0  to  99
             gggg=(j)
j=j+1

if j=3  then  j=1

next
الرد }}}}
تم الشكر بواسطة:
#2
for i = 0 to 99
ifj>3 then j=0
j=j+1
next

عفوا تصحيا للكود السابق
PHP كود :
Private Sub Command1_Click()
For 
0 To 99
If >= 3 Then j 0
1
Next
End Su 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود
#3
Dim i, j As Integer

For i = 0 To 12
If j >= 3 Then j = 0
j = j + 1
MsgBox(j)

Next
الكود ناتجه
1
2
3
1
2
3

ولكن المطلوب
1
2
3
3
2
1
1
2
3
وهكذا
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود
#4
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
For i As Integer = 0 To 99
If i Mod 2 Then
For u = 1 To 3
Dim h As Integer = 4 - u
ListBox1.Items.Add(h)
Next
Else
For u = 1 To 3
ListBox1.Items.Add(u)
Next
End If
Next
End Sub
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
#5
طريقة اخرى بعد اذن اخوي ابو عمر

Dim i, j, v As Integer
v = 1
j = 1
For i = 1 To 100
msgbox(j)
j = j + v
If j > 3 Then v = -v: j = 3
If j < 1 Then v = -v: j = 1
Next i

يعطيكم العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}}
تم الشكر بواسطة: khodor1985 , أبو عمر , مبرمج بلا حدود
#6
اشكركم علي ردودكم
شكرا لكم جميعا
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 4 375 13-10-17, 10:03 AM
آخر رد: مصطفي الشكلي
  مشكله تكرار اول قيمه اضيقت لقاعدة البيانات !! Rabeea Qbaha 2 77 29-09-17, 04:51 AM
آخر رد: Rabeea Qbaha
  [VB.NET] ابحث عن شرح عمل صلاحيات محددة 0theghost0 13 314 28-08-17, 08:48 PM
آخر رد: 0theghost0
  [VB.NET] عمل صلاحيات محددة hitman48 6 158 15-08-17, 04:11 PM
آخر رد: hitman48
Rainbow [VB.NET] نسخة تجريبية منه تتوقف عن العمل بعد فترة محددة محمد مسافر 3 2,132 07-08-17, 02:40 PM
آخر رد: مصمم هاوي
  [VB.NET] كيف تحويل كلمة محددة من RichTextBox الي # e-coder 4 181 04-07-17, 04:41 PM
آخر رد: 20917
Information تكرار امر كلك شمال lval6402@gmail.com 2 145 16-06-17, 12:03 AM
آخر رد: lval6402@gmail.com
  السلام عليكم--مشكلة--منظومة لمكتبة جامعة وعند الأستعارة يتم تكرار مصطفى الجازوي 5 245 28-03-17, 09:41 PM
آخر رد: مصطفى الجازوي
  استفسار حول عدم تكرار البيانات في جمل SQL المتألق9 4 277 28-03-17, 08:41 PM
آخر رد: المتألق9
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 381 05-12-16, 02:18 PM
آخر رد: a_abdullah

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


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