اسف والله النت فصل وسه جى الان
التكرار فور يمكنك التحكم فى سير الخطواط سؤاء تصاعدى او تنازلى عن طريق كلمة Step تقوم بكتابتها فى ااخر سطر التكرار
الكلمة Step مثلا انظر
للانتقال خطوه خطوه
Step 1
وايضا عند عدم كتابة Step يعتبر المترجم انك كتبت Step 1
يمكنك تحديد قيمة الانتقال كما تحب انا كتبت له Step -1
بمعنى ان ينتقل بخطوه للاسفل ولاكن لاحظ المتغير I يحمل القيمه الكبيره والـ TO يحمل القيمه الصغيره لانى سانتقل تنازلى
فانا جعلت قيمة النهايه TO جعلتها 1
والقيمة العليا جعلتها هى القيمة التى يحددها المستخدم مثلا المستخدم ادخل الرقم 10 سيقوم التكرار بالانتقال من 10 بمعدل خطوة -1 الى ان يصل الى 1
10 9 8 7 6 5 4 3 2 1
اتمنى ان يكون الامر اتضح وانا اسف جدا على التاخير
اخ علي
قمت بتجربة البرنامج ولم يعمل
ظهرت الرسالة الاولى لادخال عدد الارقام فكتبت 5
ثم ظهرت الرسالة لادخال الارقام فكتتب 13574
فظهرت الارقام كما هي دون ترتيب
مرفق المشروع برجاء مراجعته وافادتي
Dim lst As New List(Of Integer)
For r = 0 To 10 Step 1
lst.Add(r)
Next
كود :
For r As Integer = lst.Max To lst.Min
MsgBox(r)
Next
بينما التصاعدي يعمل
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
Dim a() As Integer = {2, 6, 9, 7, 5, 8}Array.Sort(a) ' ترتيب تصاعديArray.Reverse(a) ' ترتيب تنازلي
[/b] [b]السلام عليكم ورحمة الله وبركاته
[/b]
راائع جدا
كود :
Dim a() As Integer = {0, 1, 2, 3, 4, 5}
Array.Sort(a) ' ترتيب تصاعدي
' Array.Reverse(a) ' ترتيب تنازلي
For Each t In a
MsgBox(t)
Next
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
