تقييم الموضوع :
  • 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
اشكركم علي ردودكم
شكرا لكم جميعا
الرد }}}}
تم الشكر بواسطة: مبرمج بلا حدود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 48 أمس, 02:18 PM
آخر رد: a_abdullah
  كود لحساب عدد تكرار الاحرف hano 4 126 08-11-16, 06:49 AM
آخر رد: silverlight
Star [VB.NET] واجهتني مشاكل فى التنزيل من اليوتيوب حبيت اعملها بطريقة تانية لكنها لم تنجح بشكل كامل elhon.tec 0 45 07-11-16, 01:41 AM
آخر رد: elhon.tec
  [سؤال] تكرار الضغط في مكان ما في الشاشه Test 8 129 06-11-16, 07:09 PM
آخر رد: silverlight
  استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر العواد الصغير 6 128 30-10-16, 08:07 PM
آخر رد: العواد الصغير
  كيف يمكن عرض النماذج بطريقة مبوبة walkady 4 137 15-10-16, 10:03 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ماهو الكود لمنع تكرار الاسم المتشابه في العمود هاوي1995 8 321 07-10-16, 03:51 PM
آخر رد: tifagreet
  [سؤال] يف اعمل حلقة تكرار للضغط على هذا الزر ابو روضة 12 369 22-08-16, 09:09 AM
آخر رد: أبو عمر
  [سؤال] تكرار الصوت فى الليست بوكس ابو روضة 2 135 13-08-16, 09:28 AM
آخر رد: سعود
  تكرار الصفوف في الكريستل ريبورت makky 0 96 20-07-16, 02:43 AM
آخر رد: makky

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


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