تقييم الموضوع :
  • 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 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود
#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
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
#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
اشكركم علي ردودكم
شكرا لكم جميعا
الرد }}}
تم الشكر بواسطة: مبرمج بلا حدود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معرفة عدد مرات تكرار الاسم في الداتاقريدفيو صالح عبدالله 8 426 05-02-24, 04:39 PM
آخر رد: صالح عبدالله
  [VB.NET] كيف نستورد أعمدة محددة من أكسل ؟ saud1004 10 402 25-01-24, 04:12 PM
آخر رد: saud1004
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  عدم تكرار الاسم yossefsaad370 0 262 02-11-23, 12:28 PM
آخر رد: yossefsaad370
  كود لعدم تكرار الرقم في قاعدة البيانات yossefsaad370 1 340 28-10-23, 10:29 AM
آخر رد: atefkhalf2004
  تكرار الرقم القومى salah525 1 264 02-10-23, 10:14 PM
آخر رد: سالم العنزي
Rainbow مشكلة تكرار القيم في الكريستال ريبورت devpos 1 330 07-09-23, 11:48 PM
آخر رد: Asem2
  منع تكرار البيانات المدخلة على قاعدة البيانات الرائد 14 7,157 18-08-23, 08:10 PM
آخر رد: ahmed_king2023
  مساعدة في تكرار صفحات الطبع Reportview نيمو 0 397 20-06-23, 09:14 PM
آخر رد: نيمو
  تكرار البيانات من زر تعديل البيانات ( في البيانات المحفوظة ) خليل احمد المراني 8 972 26-05-23, 11:00 PM
آخر رد: خليل احمد المراني

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


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