+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تكرار بطريقة محددة (/showthread.php?tid=13200)
تكرار بطريقة محددة - atefkhalf2004 - 11-09-15
السادة الافاضل
لو عندي 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
RE: تكرار بطريقة محددة - أبو عمر - 11-09-15
for i = 0 to 99
ifj>3 then j=0
j=j+1
next
عفوا تصحيا للكود السابق
PHP كود :
Private Sub Command1_Click()
For i = 0 To 99
If j >= 3 Then j = 0
j = j + 1
Next
End Su
RE: تكرار بطريقة محددة - atefkhalf2004 - 11-09-15
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
وهكذا
RE: تكرار بطريقة محددة - أبو عمر - 11-09-15
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
RE: تكرار بطريقة محددة - abulayth - 11-09-15
طريقة اخرى بعد اذن اخوي ابو عمر
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
يعطيكم العافية
RE: تكرار بطريقة محددة - atefkhalf2004 - 11-09-15
اشكركم علي ردودكم
شكرا لكم جميعا