+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت (/showthread.php?tid=8829)
الصفحات:
1
2
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - اسلام الكبابى - 08-05-13
السلام عليكم ورحمة الله تعالى وبركاته
أود أن اعرف [SIZE=5]كيف يكتب الكود الصحيح للقيام بعملية التكرار هذه
[/SIZE]علمآ بأن عدد مرات التكرار متغير غير ثابت
PHP كود :
Private Sub Command1_Click()
N = 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
جزاكم الله خيرا ولكم الف شكر
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - VB_Coder - 08-05-13
السلام عليكم
- على حسب مافهمت . تستطيع عمل هذا :
كود :
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كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - اسلام الكبابى - 09-05-13
جزاكم الله خيرا
ولكن هذا الكود يحتوى على متغيرين اثنين فقط(Z,I)
أما الكود الذى أريده فيحتوى على عدة متغيرات عددها=In,......,I3,[SIZE=4]I2,I1) N)
[/SIZE]
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - VB_Coder - 09-05-13
السلام عليكم
- أخي تستطيع أن تضع الجمل في داخل لووب أو فور الz حيث أن لووب z تبدأ من ال 1 إلى العدد الذي كتبة المستخدم . مثل كودك السابق ولكن مختصر .
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - VB_Coder - 09-05-13
يعني ال z سيكون في كل مره z1،z2,z3.....z9
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - ناجي إبراهيم - 10-05-13
السلام عليكم...
إذا ذكرت لنا ما الغرض من ذلك فربما نستطيع مساعدتك بشكل أسهل.
سلام.
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - اسلام الكبابى - 10-05-13
الغرض من ذلك هو عملية توافيق واحتمالات
فاذا كان لينا 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]
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - محمد العبيدي - 10-05-13
اسلام الكبابى كتب :جزاكم الله خيرااخي العزيز يكنك استبدال جميع المتغيرات والتي عددها n بمصفوفة حجمها n ويمكنك تعريفها واستخدامها بالطريقة التالية
ولكن هذا الكود يحتوى على متغيرين اثنين فقط(z,i)
أما الكود الذى أريده فيحتوى على عدة متغيرات عددها=in,......,i3,[size=4]i2,i1) n)
[/size]
كود :
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كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - اسلام الكبابى - 10-05-13
هذا مرفق به [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]
كيف يكتب هذا الكود 0عدد مرات التكرار متغير غير ثابت - VB_Coder - 11-05-13
السلام عليكم
- هذا مثال على حسب مافهمت . من ردودك الاخيرة . علماً أن المثال أظهر نفس النتيجة التي شرحتها في ردك التي ذكرت فيه طريقة السرد .
- تحياتي .