تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت
#1
السلام عليكم ورحمة الله تعالى وبركاته
أود أن اعرف
[SIZE=5]كيف يكتب الكود الصحيح للقيام بعملية التكرار هذه
[/SIZE]
علمآ بأن عدد مرات التكرار متغير غير ثابت
PHP كود :
Private Sub Command1_Click()
    
InputBox("  ""أدخل قيمة N")
For 
I1 1 To 20
For I2 I1 1 To 20
For I3 I2 1 To 20
For I4 I3 1 To 20
Rem 
"N وهكذا وهكذا .........حتى نصل لقيمة  "
Rem "مثلا فان آخر جملة تكون N=9  فاذا كانت  "
For I9 I8 1 To 20


Rem 
" I1,I2,I3,.......هنا توجد مجموعة الجمل المحتوية على كل من"


Next I4
Next I3
Next I2
Next I1

End Sub 

جزاكم الله خيرا ولكم الف شكر
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- على حسب مافهمت . تستطيع عمل هذا :

كود :
Private Sub Command1_Click()

Dim N As String
Dim I As Integer
Dim Z As Integer

N = InputBox(". ", "أدخل قيمة N")
For I = 1 To Val(Trim$(N))
For Z = I To 20
Rem "N وهكذا وهكذا .........حتى نصل لقيمة "
Rem "مثلا فان آخر جملة تكون N=9 فاذا كانت "

Rem " I1,I2,I3,.......هنا توجد مجموعة الجمل المحتوية على كل من"

Next Z
Next I

End Sub
الرد }}}}
تم الشكر بواسطة:
#3
جزاكم الله خيرا

ولكن هذا الكود يحتوى على متغيرين اثنين فقط(Z,I)
أما الكود الذى أريده فيحتوى على عدة متغيرات عددها=In,......,I3,
[SIZE=4]I2,I1) N)
[/SIZE]
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- أخي تستطيع أن تضع الجمل في داخل لووب أو فور الz حيث أن لووب z تبدأ من ال 1 إلى العدد الذي كتبة المستخدم . مثل كودك السابق ولكن مختصر .
الرد }}}}
تم الشكر بواسطة:
#5
يعني ال z سيكون في كل مره z1،z2,z3.....z9
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم...

إذا ذكرت لنا ما الغرض من ذلك فربما نستطيع مساعدتك بشكل أسهل.

سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:
#7
الغرض من ذلك هو عملية توافيق واحتمالات
فاذا كان لينا 6 أشياء نريد اختيار 3منهم فكلنايعلم ان عدد طرق اختيارهم=6ق3 =(1*2*3)/(4*5*6)=20
ولكنى أريد سرد كل احتمالات طرق الاختيار الممكنة وليس معرفة عددهم فقط
أى اريد سرد (1,2,6) , (1,2,5) , (1,2,4) , (1,2,3)
(1,3,6) , (1,3,5) , (1,3,4)
(1,4,6) , (1,4,5)
(1,5,6)
ثم سرد (2,3,6) , (2,3,5) , (2,3,4)
(2,4,6) , (2,4,5)
(2,5,6)
ثم سرد (3,4,6) , (3,4,5)
(3,5,6)
ثم سرد (4,5,6)

[SIZE=4]وأريد طبعآ مثل ذلك لأى عددين غير ال6 أو ال3
[/SIZE]
الرد }}}}
تم الشكر بواسطة:
#8
اسلام الكبابى كتب :جزاكم الله خيرا

ولكن هذا الكود يحتوى على متغيرين اثنين فقط(z,i)
أما الكود الذى أريده فيحتوى على عدة متغيرات عددها=in,......,i3,
[size=4]i2,i1) n)
[/size]
اخي العزيز يكنك استبدال جميع المتغيرات والتي عددها n بمصفوفة حجمها n ويمكنك تعريفها واستخدامها بالطريقة التالية
كود :
Dim Arr() As String
      Dim N As Integer
      N = InputBox("ادخل عدد المتغيرات")
      If Val(N) < 0 Then Exit Sub
      ReDim Arr(Val(N))
      Dim I As Integer
      For I = 0 To N
            Arr(I) = I
      Next
الرد }}}}
تم الشكر بواسطة:
#9
هذا مرفق به [SIZE=3][b]مثال بسيط يوضح للجميع الكود الذى أريده اذا كان لينا 8 أشياء نريد اختيار 3منهم مثلآ 8ق3
[/b][/SIZE][SIZE=3][b][SIZE=3]ومثال بسيط آ[SIZE=3]خر[/SIZE] يوضح للجميع الكود الذى أريده اذا كان لينا 8 أشياء نريد اختيار 4منهم مثلآ 8ق4
[/SIZE]
[/b][/SIZE][ATTACH]2672[/ATTACH]ولكنى أريد مثالآ عامآ[SIZE=3] لأى رقمين[/SIZE]


الملفات المرفقة
.zip   سؤال فى اللوب.zip (الحجم : 1.75 ك ب / التحميلات : 13)
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم

- هذا مثال على حسب مافهمت . من ردودك الاخيرة . علماً أن المثال أظهر نفس النتيجة التي شرحتها في ردك التي ذكرت فيه طريقة السرد .

- تحياتي .


الملفات المرفقة
.rar   VB_Coder.rar (الحجم : 1.88 ك ب / التحميلات : 20)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل على الكود لو سمحتو يامعلمين.... amer2000 8 164 01-11-16, 09:50 AM
آخر رد: amer2000
  الغاء التكرار m-kaylani 6 226 07-08-16, 03:54 PM
آخر رد: Ahmed_Mansoor
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 789 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  من المنتدى القديم (هل حلمت يوما بتنفيذ الكود المكتوب في التكست؟!!!!!!!!!!!!) VBMaged 3 508 23-10-15, 11:51 PM
آخر رد: اسلام الكبابى
  الرجاء المساعدة فى تصحيح الكود king2512010 1 425 25-10-14, 11:49 PM
آخر رد: تركي الحلواني
  عندي مشكله في الكود جمعه عريفه 4 564 21-05-14, 09:00 PM
آخر رد: جمعه عريفه
  تعديل بسيط على الكود samee119485r 5 605 20-06-13, 10:30 AM
آخر رد: mmali127
  تعديل على الكود جزاكم الله الجنه samee119485r 16 1,812 14-06-13, 02:01 PM
آخر رد: samee119485r
  خطأ في الكود يرجى المساعدة shafiq 1 403 09-06-13, 12:14 PM
آخر رد: shafiq
  هل تريد ان تحدد عدد مرات عمل لبرنامجك ؟ ادخل هنا ! VBMaged 8 747 02-06-13, 09:50 AM
آخر رد: عبد الله190

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


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