المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
السادة الافاضل
لو عندي 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
المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
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
وهكذا
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة :
217
الشكر: 10451
تم شكره 17812 مرات في 844 مشاركات
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
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
المشاركات : 1,379
المواضيع 77
الإنتساب : Sep 2012
السمعة :
180
الشكر: 7891
تم شكره 14093 مرات في 904 مشاركات
طريقة اخرى بعد اذن اخوي ابو عمر
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
يعطيكم العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))
المشاركات : 1,203
المواضيع 210
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 501 مرات في 295 مشاركات
اشكركم علي ردودكم
شكرا لكم جميعا