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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  السلام عليكم--مشكلة--منظومة لمكتبة جامعة وعند الأستعارة يتم تكرار مصطفى الجازوي 5 128 28-03-17, 09:41 PM
آخر رد: مصطفى الجازوي
  استفسار حول عدم تكرار البيانات في جمل SQL المتألق9 4 152 28-03-17, 08:41 PM
آخر رد: المتألق9
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 2 172 25-01-17, 04:06 PM
آخر رد: riad21
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 281 05-12-16, 02:18 PM
آخر رد: a_abdullah
  كود لحساب عدد تكرار الاحرف hano 4 284 08-11-16, 06:49 AM
آخر رد: silverlight
Star [VB.NET] واجهتني مشاكل فى التنزيل من اليوتيوب حبيت اعملها بطريقة تانية لكنها لم تنجح بشكل كامل elhon.tec 0 186 07-11-16, 01:41 AM
آخر رد: elhon.tec
  [سؤال] تكرار الضغط في مكان ما في الشاشه Test 8 349 06-11-16, 07:09 PM
آخر رد: silverlight
  استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر العواد الصغير 6 301 30-10-16, 08:07 PM
آخر رد: العواد الصغير
  كيف يمكن عرض النماذج بطريقة مبوبة walkady 4 270 15-10-16, 10:03 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ماهو الكود لمنع تكرار الاسم المتشابه في العمود هاوي1995 8 571 07-10-16, 03:51 PM
آخر رد: tifagreet

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


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